VBA如何给数组添加值

在VBA中，可以使用ReDim Preserve语句给数组添加值。

以下是一个示例代码，演示如何给数组添加值：

Sub AddValueToArray()
    Dim myArray() As Integer
    Dim i As Integer
    
    ' 初始化数组
    ReDim myArray(0) As Integer
    
    ' 添加值到数组中
    For i = 1 To 5
        ReDim Preserve myArray(i) As Integer
        myArray(i) = i
    Next i
    
    ' 打印数组中的值
    For i = 1 To UBound(myArray)
        MsgBox myArray(i)
    Next i
End Sub

在上面的代码中，首先使用ReDim语句初始化了一个空的数组myArray，然后使用ReDim Preserve语句在每次循环中将数组的大小增加1，并给新添加的元素赋值。最后，使用UBound函数获取数组的上限，并通过循环打印数组中的值。

请注意，使用ReDim Preserve语句来改变数组的大小会导致系统重新分配内存，因此在处理大量数据时可能会影响性能。如果需要频繁地添加值到数组中，建议使用集合对象（如Collection）或者动态数组（如ArrayList）来代替数组。