Question

如何在Excel VBA中使用字典Dictionary对象

Answer 1

专门给你写了个使用字典的例子 并加了注释 你可以参考一下

代码如下:

Sub 字典示例()
Dim Dic As Object
Dim Arr1, Arr2          ' 创建一些变量

Set Dic = CreateObject("Scripting.Dictionary")    '把Dic对象变量设置为字典对象

Arr1 = Split("A,B,C,D,E,A,B,D", ",")   '为数组赋值
Arr2 = Split("A,C,D,G,H", ",")    '为数组赋值

For i = 0 To UBound(Arr1)
    Dic(Arr1(i)) = Dic(Arr1(i)) + 1           '把数组元素以元素的内容为关键字写入字典对象Dic,并把元素内容的重复次数写入对应的条目
Next
For ii = 0 To UBound(Arr2)
    If Not Dic.exists(Arr2(ii)) Then Dic.Add Arr2(ii), "数组2-" & ii     '把数组2中不包含在数组1中的元素内容写入字典对象Dic,并把该元素在数组2中的位置写入对应的条目
Next
MsgBox Join(Dic.keys, "           ") & vbCrLf & Join(Dic.items, "           ")   '用msgbox显示Dic中的内容

For Each d In Dic.keys
    If Dic(d) Like "数组*" Then Str1 = Str1 & d      '检索Dic条目中包含"数组"字样的条目 并在str1中记录对应的关键字
Next
MsgBox "数组1没有的元素是:" & Str1           '显示不包含在数组1中的数组2中的元素

End Sub

Answer 2

Dim myDic

set myDic=createObject("Scripting.Dictionary")

这个myDic就是字典了。