如何向VBA Dictionary添加多组数据并提取至单元格？求其他方法

除了数组，你还可以用以下几种方式给Dictionary添加多组关联数据：

1. 自定义类模块封装数据 #

创建一个类来定义你需要存储的字段，把类的实例作为Dictionary的值，这样数据结构更清晰，可读性和可维护性更强。

步骤： #

1. 插入一个类模块（右键VBA工程 → 插入 → 类模块），命名为clsFruitData，在类里添加属性：

Public Price As String
Public Location As String
Public ExpiryDate As String

2. 在主模块中使用类实例添加数据：

Sub AddDataWithClass()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim fruitInfo As clsFruitData
    ' 添加橙子的数据
    Set fruitInfo = New clsFruitData
    fruitInfo.Price = "200"
    fruitInfo.Location = "NewYork"
    fruitInfo.ExpiryDate = "2023-2-28"
    dict.Add "orange", fruitInfo
    
    ' 添加苹果的数据
    Set fruitInfo = New clsFruitData
    fruitInfo.Price = "150"
    fruitInfo.Location = "London"
    fruitInfo.ExpiryDate = "2023-3-15"
    dict.Add "apple", fruitInfo
    
    ' 提取数据到单元格
    If Range("A1").Value = "orange" Then
        With dict("orange")
            Range("B1").Value = .Price
            Range("C1").Value = .Location
            Range("D1").Value = .ExpiryDate
        End With
    End If
End Sub

2. 使用Collection集合 #

Collection是VBA自带的集合类型，和数组类似但支持动态增减元素，也能作为Dictionary的值存储多组数据。

Sub AddDataWithCollection()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim dataCol As Collection
    ' 添加橙子的数据
    Set dataCol = New Collection
    dataCol.Add "200"
    dataCol.Add "NewYork"
    dataCol.Add "2023-2-28"
    dict.Add "orange", dataCol
    
    ' 添加苹果的数据
    Set dataCol = New Collection
    dataCol.Add "150"
    dataCol.Add "London"
    dataCol.Add "2023-3-15"
    dict.Add "apple", dataCol
    
    ' 提取数据到单元格
    If Range("A1").Value = "orange" Then
        Range("B1").Value = dict("orange")(1) ' Collection索引从1开始
        Range("C1").Value = dict("orange")(2)
        Range("D1").Value = dict("orange")(3)
    End If
End Sub

3. 分隔符拼接字符串 #

如果数据结构简单，没有复杂的操作需求，可以把多组数据用一个不会和内容冲突的分隔符（比如|、^）拼接成单个字符串，存入Dictionary，提取时再拆分。

Sub AddDataWithDelimitedString()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 用|分隔多字段数据
    dict.Add "orange", "200|NewYork|2023-2-28"
    dict.Add "apple", "150|London|2023-3-15"
    
    ' 提取并拆分数据到单元格
    If Range("A1").Value = "orange" Then
        Dim dataArr As Variant
        dataArr = Split(dict("orange"), "|")
        Range("B1").Value = dataArr(0)
        Range("C1").Value = dataArr(1)
        Range("D1").Value = dataArr(2)
    End If
End Sub

内容的提问来源于stack exchange，提问作者dive2blue