VBScript Dictionary存储的数组元素修改问题及最优方案咨询

哈哈，我之前在VBA里折腾Dictionary数组的时候也踩过这个坑，太懂这种明明写了修改代码却没生效的憋屈感了！下面给你拆解原因和最优的解决方法：

核心问题出在Dictionary的Item属性返回的是数组的临时副本，而非原数组的引用。

当你写出dict("myKey")(1) = 100这种代码时，背后其实发生了三步：

1. 程序从字典里取出对应键的数组，悄悄创建了一个临时的数组副本；
2. 你修改的只是这个临时副本里的元素；
3. 这条代码执行完，临时副本就被销毁了，字典里的原数组完全没被碰过——这就是为啥你看不到变化。

而当你把数组赋值给临时变量时，比如tempArr = dict("myKey")，VBA会把原数组的引用（相当于指向数组内存地址的指针）赋值给tempArr。这时候你修改tempArr的元素，实际上是直接操作原数组的内存空间，字典里的数组自然会同步变化——甚至不需要把tempArr再赋值回字典，因为它们本来就指向同一个东西。

根据你的使用频率，有两种实用方案：

方案1：临时变量法（最直接，零额外配置） #

这是你已经在用的方法，其实它已经是VBA里最简洁的原生方案了，并没有你想的那么繁琐。示例代码：

' 假设已经初始化好包含数组的字典dict
Dim tempArr As Variant
tempArr = dict("myKey") ' 获取原数组的引用
tempArr(2) = 200 ' 修改目标元素
' 不用再把tempArr存回字典！修改已经同步到原数组了

这个方法的优势是不用额外创建任何结构，代码可读性拉满，日常场景完全够用。

方案2：类包装数组（适合频繁修改的场景） #

如果你的代码需要反复修改字典里的数组元素，不想每次都写临时变量，可以把数组包在一个类里：

1. 新建一个类模块，命名为ArrayContainer；
2. 在类模块里写一行简单代码：

Public Data As Variant ' 用来存放你的数组

3. 然后在主代码里这么用：

Dim dict As New Dictionary
Dim container As New ArrayContainer
container.Data = Array(1, 2, 3)
dict.Add "myKey", container

' 直接修改，完全不需要临时变量！
dict("myKey").Data(1) = 150

因为类实例是引用类型，直接访问dict("myKey").Data操作的就是原数组，修改会立刻生效。这个方案适合需要大量操作字典数组的场景，能减少重复代码。

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