37、[VBA入门到放弃笔记]字典：判断key是否存在

判断字典key存在与否，用exists方法。

仍然以下面的数据为测试。

源数据

Sub a()
    Dim arr, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    '----------新增字典d的条目-----------------------
    For i = 2 To UBound(arr)
        d(arr(i, 1)) = arr(i, 2)
    Next
    If d.exists("金砖") Then
    MsgBox "存在金砖这个key"
    Else
    MsgBox "不存在金砖这个key"
    End If
End Sub

运行代码，结果是：不存在金砖这个key。

exists方法常用来操作字典，十分有用和使用频繁。