vba - 在 VBA 中追加动态数组

Question

我正在循环遍历一个命名范围，并根据单元格是否为空来附加一个数组。我对VBA中的数组不太熟悉，所以也许我的逻辑不正确。该代码不断覆盖数组中的第一个元素，并且它永远不会增加。我不确定为什么 UBound(myArray) 始终保持在 0，即使在将元素分配给第一个索引后也是如此。

我的代码看起来像:

Dim myArray() As Double

ReDim Preserve myArray(0)

    For Each cell In [myRange]
        If cell <> "" Then
            If UBound(myArray) > 0 Then
                ReDim Preserve myArray(0 To UBound(myArray) + 1)
            End If
            myArray(UBound(myArray)) = cell.value
        End If
    Next

Answer 1

使用变量并递增它，当代码完成时变量大于 ubound 没有区别:

Sub Test()
Dim myArray() As Double, X As Long
X = 0
ReDim Preserve myArray(X)
For Each cell In Range("Hello")
    If cell <> "" Then
        ReDim Preserve myArray(0 To X)
        myArray(X) = cell.Value
        X = X + 1
    End If
Next
End Sub