vba - ReDim 保留错误

Question

我正在尝试重新保存二维数组。在我的代码的最顶部我有:

Dim BayQuestionArray() As Variant
Dim numberofbay As Double

我有两个按钮，第一个按钮用于初始化数组大小:

numberofbay = 1
ReDim Preserve BayQuestionArray(numberofbay, 37)

第二个按钮用于扩大数组

ReDim Preserve BayQuestionArray(numberofbay + 1, 37)

第二个按钮不起作用，它一直给我一个错误，说运行时错误 9 下标超出范围。为什么？

Answer 1

当使用 Preserve 调整数组变量(这样声明，而不是 Variant)大小时，您只能更改最后一个维度的上边界。您需要转置数组，或使用锯齿状数组或其他结构，例如字典/集合。