vba - ReDim保存错误

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

Dim BayQuestionArray() As Variant
Dim numberofbay As Double

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

numberofbay = 1
ReDim Preserve BayQuestionArray(numberofbay, 37)

第二个按钮用于放大数组

ReDim Preserve BayQuestionArray(numberofbay + 1, 37)

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

最佳答案

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