溫馨提示×

vba怎么向數(shù)組中添加元素

vba
小億
1109
2023-09-26 14:52:32
欄目: 編程語言

在VBA中，可以使用ReDim語句來重新定義數(shù)組的大小，并將元素添加到數(shù)組中。以下是向數(shù)組中添加元素的示例代碼：

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

在上述代碼中，首先定義了一個(gè)名為myArray的數(shù)組，并初始化了3個(gè)元素。然后，使用ReDim Preserve語句重新定義了數(shù)組的大小，將數(shù)組的上界擴(kuò)大1，并將新的元素添加到數(shù)組中。最后，使用循環(huán)輸出了數(shù)組中的所有元素。

注意，使用ReDim Preserve語句重新定義數(shù)組的大小時(shí)，需要將Preserve關(guān)鍵字添加在ReDim語句之后，以保留數(shù)組中已有的元素。如果不使用Preserve關(guān)鍵字，則重新定義數(shù)組后，數(shù)組中已有的元素將會被清空。

0 踩