vba将数组数据存入字典中

在VBA中，可以使用Dictionary对象来创建和管理键/值对。以下是将数组数据存储到字典中的示例代码：

Sub ArrayToDictionary()
    Dim arr As Variant
    Dim dict As New Dictionary
    Dim i As Long
    '将数组数据赋值给变量
    arr = Array("苹果", "香蕉", "橙子", "草莓", "葡萄")
    '将数组数据添加到字典中
    For i = LBound(arr) To UBound(arr)
        dict.Add i, arr(i)
    Next i
    '遍历字典，输出键/值对
    For Each key In dict.Keys
        Debug.Print key & " - " & dict(key)
    Next key
End Sub
在上面的示例中，首先将数组数据赋值给变量arr，然后创建一个新的Dictionary对象，并使用Add方法将每个数组元素添加到字典中。最后，使用Keys属性遍历字典，并输出每个键/值对。
需要注意的是，在使用Dictionary对象之前，需要在VBA编辑器的"工具"-"引用"中添加"Microsoft Scripting Runtime"引用。