【Excel VBA】For文を使用して配列の要素数を動的に増やす方法を紹介【Redim】

今回はFor文を使用して配列の要素数を動的に増やす方法を紹介します。

不定期でVBAに関する記事を投稿していますので、是非こちらも併せてご覧ください！

【Excel VBA】よく使う絶対パス,相対パスの書き方【備忘録】

今回はVBA使用時によくやる絶対パス,相対パスの書き方について、備忘録も兼ねて紹介したいと思います...

For文を使用して配列の要素数を動的に増やす方法
1. ポイント
既に格納されている値を消さずに要素数を増やしたい場合
注意点
まとめ

For文を使用して配列の要素数を動的に増やす方法

配列の要素数は以下の手順で増やすことができます。

UBoundを使って現在の要素数を取得する
現在の要素数に1を加算する
Redimを使って要素数を増やす

以下にテストコードを用意しました。コピペしてチェックしてみてください。

Sub test_Array_1()
    
    Dim ary()                   As Long
    Dim i                       As Long
    
    ReDim ary(0)
    
    For i = 1 To 10
        ReDim ary(UBound(ary) + 1)
        ary(UBound(ary)) = i
    Next i
    
    MsgBox "要素数：" & UBound(ary)
End Sub

実行するとメッセージボックスに配列の要素数が表示されます。

ポイント

ポイントはReDim ary(UBound(ary) + 1)の部分です。

    For i = 1 To 10
        ReDim ary(UBound(ary) + 1)
...
    Next i

今回のコードでは処理を分けずにまとめて記述していますが、動作は最初に紹介したものと同じです。

UBoundを使って現在の要素数を取得する
現在の要素数に1を加算する
Redimを使って要素数を増やす

ary(UBound(ary)で現在の要素数を取得し、それに1を加算することで要素数を増やしています。これをFor文で繰り返すことで配列の要素数が指定の数まで増えていく、というイメージです。

既に格納されている値を消さずに要素数を増やしたい場合

気づいた方もいると思いますが、実は上記コードのままだと要素数は増えていますが、値が思った通りに格納されません。

というのも、Redimを実行すると要素数を上書きして再定義してしまうからです。ary(1) = 1を入れても次にRedim ary(2)をした瞬間に入れていた値が全て消えてしまいます。

つまり、Redimだけだと値を保持しながら要素数を増やすことが出来ません。

じゃあどうやって消さずに要素数を増やすの？

ってなると思います。

既に格納されている値を消さずに要素数を増やしたい場合はPreserveを使用します。以下にテストコードを用意していますので、コピペしてチェックしてみてください。

Sub test_Array_2()
    
    Dim ary()                   As Long
    Dim i                       As Long
    
    ReDim ary(0)
    
    For i = 1 To 10
        ReDim Preserve ary(UBound(ary) + 1)
        ary(UBound(ary)) = i
    Next i
    
    MsgBox "要素数：" & UBound(ary)
End Sub

実行すると最初に紹介したコードと同じようにメッセージボックスが表示されますが、aryの中身を見てみると格納された値が消えずに残っているのが確認できます。