vba 字典

VBA中的字典是一种数据结构，可以存储键值对，使你能够通过键来快速访问对应的值。在VBA中，你可以使用Scripting.Dictionary对象来创建字典。下面是一个简单的示例代码，演示了如何创建和使用字典：

Sub DictionaryExample()

    ' 创建一个新字典
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 添加一些键值对
    dict.Add "apple", 1
    dict.Add "banana", 2
    dict.Add "orange", 3
    
    ' 获取某个键对应的值
    Debug.Print dict("banana") ' 输出2
    
    ' 遍历字典中的所有键值对
    Dim key As Variant
    For Each key In dict
        Debug.Print key & " - " & dict(key)
    Next key

End Sub

在上面的示例代码中，我们首先创建了一个新的字典对象，然后使用Add方法向字典中添加了三个键值对。接着，我们使用索引运算符(dict("banana"))获取了键为"banana"的值，并将其输出到调试窗口中。最后，我们使用For Each循环遍历了字典中的所有键值对，并将它们依次输出到调试窗口中。