如何使用Excel VBA将值推送到非预先指定的数组大小

要使用Excel VBA将值推送到非预先指定的数组大小，可以使用以下方法：

使用ReDim语句动态调整数组大小

在VBA中，可以使用ReDim语句动态调整数组的大小。以下是一个示例代码：

Sub PushValueToArray()
    Dim arr() As Variant
    Dim value As Variant
    Dim newSize As Long

    ' 初始化数组大小
    ReDim arr(0 To 0)

    ' 添加值到数组
    value = "New Value"
    newSize = UBound(arr) + 1
    ReDim Preserve arr(0 To newSize)
    arr(newSize) = value

    ' 输出数组
    For i = 0 To newSize
        Debug.Print arr(i)
    Next i
End Sub

在这个示例中，我们使用ReDim Preserve语句来保留数组中的现有数据，并将数组大小增加1。然后，我们将新值添加到数组中。

使用Collection对象

另一种方法是使用Collection对象，它允许您动态添加元素，而无需调整数组大小。以下是一个示例代码：

Sub PushValueToCollection()
    Dim col As Collection
    Dim value As Variant

    ' 初始化Collection对象
    Set col = New Collection

    ' 添加值到Collection
    value = "New Value"
    col.Add value

    ' 输出Collection
    For i = 1 To col.Count
        Debug.Print col(i)
    Next i
End Sub

在这个示例中，我们使用Collection对象，并使用Add方法将新值添加到Collection中。

这两种方法都可以实现将值推送到非预先指定的数组大小，您可以根据自己的需求选择合适的方法。