VBA Excel中數組的Redim大小

Question

我在使用VBA Excel中的redim保留功能時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)