VBA_Excel_教程：字典类型

Sub testDic()
    Dim strV As String
    Dim key As String
    key = "name"
    Dim value As String
    value = "关羽"
    
    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    
    ‘增
    If dic.exists(key) = False Then
        dic.Add key, value
    End If
    
    Call read(dic)

    ‘删1
    dic.Remove (key)
    Call read(dic)
    
    ‘删2：移除全部内容 ‘
    dic.RemoveAll
    Call read(dic)
End Sub

Sub read(dic As Object)
    ‘遍历读取
    For Each k In dic
        strV = dic.Item(k)
        
        Debug.Print strV
    Next
End Sub