VBAで配列に値を追加する方法

2年 ago
優斗, 朝陽
1 minute

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など）の使用を検討してください。

bannerAds