vba怎么向数组中添加元素

在VBA中，可以使用ReDim语句来重新定义数组的大小，并将元素添加到数组中。以下是向数组中添加元素的示例代码：

Sub AddElementToArray() Dim myArray() As String Dim i As Integer ' 初始化数组 ReDim myArray(0 To 2) myArray(0) = "Apple" myArray(1) = "Banana" myArray(2) = "Orange" ' 添加元素到数组中 ReDim Preserve myArray(0 To UBound(myArray) + 1) myArray(UBound(myArray)) = "Grapes" ' 输出数组中的所有元素 For i = 0 To UBound(myArray) Debug.Print myArray(i) Next i End Sub 

在上述代码中，首先定义了一个名为myArray的数组，并初始化了3个元素。然后，使用ReDim Preserve语句重新定义了数组的大小，将数组的上界扩大1，并将新的元素添加到数组中。最后，使用循环输出了数组中的所有元素。

注意，使用ReDim Preserve语句重新定义数组的大小时，需要将Preserve关键字添加在ReDim语句之后，以保留数组中已有的元素。如果不使用Preserve关键字，则重新定义数组后，数组中已有的元素将会被清空。