VBA：为何变量引用数组可修改，Dictionary内数组修改无效？如何解决？

为什么Dictionary中的数组无法直接修改？ #

这是因为VBA在处理Scripting.Dictionary的Item属性时，返回的数组是原数组的副本，而不是指向原数组的引用。

当你直接写dict("a")(0) = 5时，实际发生的步骤是：

• 从Dictionary中取出键"a"对应的数组，创建一个临时的副本
• 修改这个临时副本的第0个元素为5
• 临时副本用完后被丢弃，原数组根本没被改动

而直接用变量arr引用数组时，变量直接指向原数组的内存地址，修改操作直接作用在原数组上，所以能生效。

解决方法：通过临时变量中转 #

要修改Dictionary里的数组，需要先把数组取出来存到一个临时变量里，修改完成后再把整个数组存回Dictionary：

Dim dict As New Scripting.Dictionary, item As Variant
Dim tempArr As Variant ' 临时变量存储数组

' 初始化数组并存入Dictionary
dict("a") = Array(1)

' 取出数组到临时变量
tempArr = dict("a")
' 修改临时变量中的数组元素
tempArr(0) = 5
' 把修改后的数组存回Dictionary
dict("a") = tempArr

' 验证结果
For Each item In dict("a")
    Debug.Print item ' 现在会输出5
Next

补充优化方案（适合频繁修改场景） #

如果你的场景中需要频繁修改数组元素，也可以考虑把数组封装到类模块中：

1. 创建一个新的类模块（比如命名为ArrayHolder）
2. 在类模块中添加一个公共数组变量：Public arr As Variant
3. 存入Dictionary时，创建类实例并赋值数组
4. 修改时直接通过类实例访问数组，无需重新存入Dictionary

示例代码：

' 类模块 ArrayHolder 中的代码
Public arr As Variant

' 标准模块中的代码
Dim dict As New Scripting.Dictionary, item As Variant
Dim holder As New ArrayHolder

' 初始化数组并存入Dictionary
holder.arr = Array(1)
dict("a") = holder

' 直接修改类实例中的数组元素
dict("a").arr(0) = 5

' 验证结果
For Each item In dict("a").arr
    Debug.Print item ' 输出5
Next

这种方法利用了类对象是引用类型的特性，修改操作会直接作用在原数组上，省去了反复赋值的步骤。

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