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 SubSub read(dic As Object)    ‘遍历读取    For Each k In dic        strV = dic.Item(k)                Debug.Print strV    NextEnd Sub