VBA有字典结构吗?比如key<>value array?
当前回答
Yes.
设置对MS脚本运行时('Microsoft脚本运行时')的引用。根据@regjo的评论，转到工具->参考，并勾选“微软脚本运行时”。
使用下面的代码创建一个字典实例:
Set dict = CreateObject("Scripting.Dictionary")
or
Dim dict As New Scripting.Dictionary
使用示例:
If Not dict.Exists(key) Then
dict.Add key, value
End If
当你用完字典时，别忘了把它设置为Nothing。
Set dict = Nothing
其他回答
脚本运行时字典似乎有一个bug，可能会在高级阶段破坏您的设计。
如果字典值是数组，则不能通过对字典的引用更新数组中包含的元素的值。
所有其他人都已经提到了Dictionary类的scripting.runtime版本的使用。如果您无法使用此DLL，您也可以使用此版本，只需将其添加到代码中。
https://github.com/VBA-tools/VBA-Dictionary/blob/master/Dictionary.cls
它与微软的版本完全相同。
VBA没有字典的内部实现，但是在VBA中你仍然可以使用MS Scripting Runtime Library中的字典对象。
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "aaa"
d.Add "b", "bbb"
d.Add "c", "ccc"
If d.Exists("c") Then
MsgBox d("c")
End If
Yes.
设置对MS脚本运行时('Microsoft脚本运行时')的引用。根据@regjo的评论，转到工具->参考，并勾选“微软脚本运行时”。
使用下面的代码创建一个字典实例:
Set dict = CreateObject("Scripting.Dictionary")
or
Dim dict As New Scripting.Dictionary
使用示例:
If Not dict.Exists(key) Then
dict.Add key, value
End If
当你用完字典时，别忘了把它设置为Nothing。
Set dict = Nothing
VBA可以使用Scripting.Runtime的字典结构。
它的实现实际上是一个很奇特的——只要执行myDict(x) = y，它就会检查字典中是否有键x，如果没有，它甚至会创建一个键x。如果它在那里，它就利用它。
而且它不会对这个“幕后”执行的额外步骤“大喊大叫”或“抱怨”。当然，您可以显式地使用Dictionary.Exists(key)检查键是否存在。因此，这5行:
If myDict.exists("B") Then
myDict("B") = myDict("B") + i * 3
Else
myDict.Add "B", i * 3
End If
myDict("B") = myDict("B") + i * 3。看看吧:
Sub TestMe()
Dim myDict As Object, i As Long, myKey As Variant
Set myDict = CreateObject("Scripting.Dictionary")
For i = 1 To 3
Debug.Print myDict.Exists("A")
myDict("A") = myDict("A") + i
myDict("B") = myDict("B") + 5
Next i
For Each myKey In myDict.keys
Debug.Print myKey; myDict(myKey)
Next myKey
End Sub
