VBA Excel中的数组的Redim大小

Question

我在VBA Excel中使用函数redim保留时遇到一些问题。

我想redim我已经在宏中使用过的数组，而不清楚里面的数据。

我的宏看起来像这样：

Dim table_data As Variant
...
ReDim table_data(2 * n + 2 * m + 2 * n, table_case.ListColumns.Count - 1)
...
dim1 = UBound(table_data, 1)
dim2 = UBound(table_data, 2)
ReDim Preserve table_data(0 To dim1 + 2 * n, 0 To dim2)

你知道我应该修改什么吗？

Answer 1

使用Preserve关键字时;您只能为最后一个维度更改大小。声明的其他尺寸的大小必须保持不变。

以下代码应该有效：

ReDim Preserve table_data(LBound(table_data, 1) To UBound(table_data, 1), 0 To dim2)