将单个值添加到多维数组 vba 然后 redim

Question

我在尝试填充多维变量数组时遇到了一些问题。我想要做的是向数组中的第 1 行第 1 列添加一个值。但是下面的代码不起作用。

Dim arr() As Variant
arr(1,1) = 3

在此基础上，我希望在满足某些条件时向数组添加更多值。例如

 For c = 2 To 10001
        Sheets("Data").Select
        If Range("P" & c) = branch And Range("Q" & c) = dept And Range("R" & c) = subdept Then
            arr(UBound(arr) + 1, 1) = Range("A" & c)
        End If
    Next c

在循环完成并且我已经完成提取我希望将其重新调整为可变长度数组之后的值之后。不过，

Redim arr()

也无法正常工作。另外，我应该指出，我并不真正需要数组是多维的，只是大小可变。话虽如此，我不知道在 VBA 中创建一维动态数组的方法。

总结

1) 为什么 arr(1,1) 会抛出错误？

2) 为什么 Redim arr() 会抛出错误？ （我不想调整为固定大小）

3) 有没有办法在 VBA 中创建动态一维数组？

注意：我想我可以声明一个 1D 100 长度的数组，然后我可以操作它来计算其中填充值的数量并将其重新调整为（0 到 100），但首先希望探索是否有任何答案回答我的上述问题。

非常感谢。

更新：（我的第二次尝试：仍然在 arr(arrLen, 1) = Range("A" & c)) 上失败

 arrLen = 1

    For c = 2 To 10001
        Sheets("Data").Select
        If Range("P" & c) = branch And Range("Q" & c) = dept And Range("R" & c) = subdept Then
            ReDim Preserve arr(arrLen To 1)
            arr(arrLen, 1) = Range("A" & c)
            arrLen = arrLen + 1
        End If
    Next c

Answer 1

下面的工作代码。

Option Base 1

Dim arr() as string
    arrLen = 1

    For c = 2 To 10001
        Sheets("Data").Select
        If Range("P" & c) = branch And Range("Q" & c) = dept And Range("R" & c) = subdept Then
            ReDim Preserve arr(1 To arrLen)
            arr(arrLen) = Range("A" & c)
            arrLen = arrLen + 1
        End If
    Next c

Answer 2

两个原因。

• 您的数组只有一维，而不是二维
• 你的逻辑应该是1 To arrLen 而不是arrLen to 1

重新剪辑

ReDim Preserve arr(1 To arrLen)
arr(arrLen) = Range("A" & c)
arrLen = arrLen + 1

Answer 3

因为您处理的是固定范围（单元格 2 到 10001） - 甚至是动态范围，实际上 - 您可以避免将 ReDim 放入循环中。

ReDim arr(1 to 10001)
For c = 2 To 10001
    Sheets("Data").Select
    If Range("P" & c) = branch And Range("Q" & c) = dept And Range("R" & c) = subdept Then
        arr(arrLen) = Range("A" & c)
        arrLen = arrLen + 1
    End If
Next c
ReDim Preserve arr(1 to arrLen)

这应该会加快你的表现。因此，首先，考虑到For 循环的已知迭代，您要使数组尽可能 需要。然后你处理你的数据，把它放到数组中，在循环结束后，你 ReDim 它返回 down 以摆脱空元素。