excel - 更改 VBA 字典中的数组值

Question

我有一段代码似乎没有达到预期的效果。 VBA 数组无论如何都是可变的，但似乎当它们作为某些键的值存储到字典中时，它们就不再可变了。有什么想法吗？

Sub foo()
    Dim mydict As New Dictionary
    mydict.Add "A", Array(1, 2, 3)
    MsgBox mydict("A")(1)
    ''# The above shows 2, which is fine
    mydict("A")(1) = 34
    MsgBox mydict("A")(1)
    ''# The above also shows 2, which is not fine
End Sub

Answer 1

看来您还需要设置另一个变量来更新数组值。

mArray = mydict.Item(1)
mArray(1) = 34
mydict.Item(1) = mArray