arrays - ReDim (VBA) 下标超出范围

Question

您能否向我解释为什么这个简单的 VBA 代码在最后一行失败(“下标超出范围”):

    Dim test() As Variant
    ReDim test(0, 1)
    test(0,0) = "key"
    test(0,1) = 1
    ReDim Preserve test(1, 1)

Answer 1

使用保留调整大小。如果使用 Preserve，则只能调整数组的最后一个维度的大小，并且对于每个其他维度，您必须指定它在现有数组中已有的相同边界。

例如，如果您的数组只有一个维度，您可以调整该维度的大小并仍然保留数组的所有内容，因为您正在更改最后一个也是唯一的维度。但是，如果您的数组有两个或更多维度，则您可以在使用 Preserve 的情况下仅更改最后一个维度的大小。