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 iEnd Sub

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

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