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）来代替数组。