VBA数组作为Dictionary值时修改异常：为何无法像普通数组操作？

这个问题我当初刚用VBA Dictionary的时候也踩过一模一样的坑！核心原因是VBA从Dictionary中取出数组时，拿到的是原数组的副本而非引用——你直接修改这个副本的元素，根本不会同步回Dictionary里的原数组。

先看一下你遇到的失败场景的完整代码（和你描述的情况完全一致）：

Sub dictArrTest_Failed()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    Dim arr As Variant
    arr = Array(1, 2, 3)
    dict.Add "key1", arr
    
    ' 尝试直接修改Dictionary内数组的元素
    dict("key1")(1) = 8 ' 这里不会报错，但修改完全没生效！
    Debug.Print dict("key1")(0), dict("key1")(1), dict("key1")(2)
End Sub

运行后输出还是 1 2 3，和你遇到的问题完全匹配。

背后的原因 #

当你通过dict("key1")访问Dictionary里的数组时，VBA会自动把这个数组复制到一个临时的Variant变量中。你修改的只是这个临时变量里的数组元素，修改完成后这个临时变量就被销毁了，Dictionary中存储的原数组根本没被触动。而普通数组是直接绑定在变量上的，你操作的是变量指向的原始内存区域，所以修改能直接生效。

解决方法：先取出、修改、再放回 #

最直接且实用的解决办法是：先把Dictionary里的数组取出存到一个临时变量，修改这个变量里的元素后，再把整个数组重新赋值回Dictionary对应的键。

示例代码：

Sub dictArrTest_Working()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    Dim arr As Variant
    arr = Array(1, 2, 3)
    dict.Add "key1", arr
    
    ' 1. 取出数组到临时变量
    arr = dict("key1")
    ' 2. 修改临时变量中的元素
    arr(1) = 8
    ' 3. 将修改后的数组放回Dictionary
    dict("key1") = arr
    
    Debug.Print dict("key1")(0), dict("key1")(1), dict("key1")(2)
End Sub

这次运行后就能得到你想要的输出：1 8 3。

如果你需要频繁修改Dictionary中的数组元素，建议每次操作都遵循这个“取出-修改-放回”的流程，就能避免这个问题啦。

内容的提问来源于stack exchange，提问作者Ádám Bukovinszki