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

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

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