arrays - 如何创建未知大小的多维数组？

Question

我有一个简单的问题:

我有一组数据，我正在筛选并在条件匹配时添加到数组中

问题是，我不知道可能有多少匹配，所以我需要数组的大小未指定。

数组的第二个索引是静态的。

在(伪语言)示例中:

if <matched criteria> = True {
    i = i + 1
    array( i,  1 ) => "John Doe" ' name
    array( i,  2 ) => "New York" ' location
    array( i,  3 ) => "02. 08. 1992" ' birthdate
}

问题是，在 vba您必须预先声明数组(尤其是启用 Option Explicit 时)。我的想法是声明一个数组，该数组将从 0 处的第一个索引开始。我会逐渐ReDim根据需要。

这是我的代码的简化示例:

Dim cell as Range
Dim arr(0, 1 to 3) as String
Dim i As Integer: i = 0

For each cell in Range("A1:A100")
  If criteria_match(cell) = True Then
      arr(i, 1) = Cells(cell.row, 4)
      arr(i, 2) = Cells(cell.row, 5)
      arr(i, 3) = Year(Cells(cell.row, 6))
      i = i + 1
      ReDim Preserve arr(i, 1 to 3)
  End If
Next cell

问题是，这会引发异常:



也许有什么办法，我可以根据需要稳步增加第一个数组索引的大小？

Answer 1

不要在变量声明语句中调整数组大小。
改变:

Dim arr(0, 1 to 3) as String

至:

Dim arr() as String
ReDim arr(1 to 3, i)

根据需要重新调整它。
编辑:
如需更多信息，请参阅此链接:https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/array-already-dimensioned
简单总结一下，当您在声明语句中调整数组大小时，它会创建一个静态数组(无法调整大小)。当你不声明大小时，它就变成了一个动态数组，可以调整大小。

An important note to make: ReDim Preserve can only be applied on the last dimension of the array

eg. ReDim Preserve arr(1 to 3, i) will work.
Meanwhile, ReDim Preserve arr (i, 1 to 3) will not.