配列に要素を追加する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 つ拡大し、新しい要素が配列に追加されます。最後に、ループを使用して配列内のすべての要素が出力されます。

再定義の際に、Preserve キーワードを ReDim ステートメントの後に追加すると、配列の要素が保持される。Preserve キーワードを使用しなかった場合、再定義後の配列の要素はすべてクリアされる。