【Excel VBA】動的配列を使用する方法

この記事では以下の方法を知ることができます。

この記事で学べること

VBAで動的配列を使用する方法

動的配列を使用するプログラム

以下のプログラムでは動的配列を使用してデータを格納します。

Sub Sample()
    
    ' 大きさを指定せずに配列を定義
    Dim arr() As Variant
    
    ' 配列の要素番号を0で初期化
    Dim arrIdx As Long: arrIdx = 0
    
    ' 最終行を取得する
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 1行目から最終行までの繰り返し
    For i = 1 To LastRow
        
        ' 配列の大きさを再定義（中身を保持）
        ReDim Preserve arr(arrIdx)
        
        ' 配列にデータを格納
        arr(arrIdx) = Cells(i, 1).Value
        
        ' 配列の要素番号を更新
        arrIdx = arrIdx + 1
        
    Next
    
End Sub

Sub Sample()

' 大きさを指定せずに配列を定義

Dim arr() As Variant

' 配列の要素番号を0で初期化

Dim arrIdx As Long: arrIdx = 0

' 最終行を取得する

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

' 1行目から最終行までの繰り返し

For i = 1 To LastRow

' 配列の大きさを再定義（中身を保持）

ReDim Preserve arr(arrIdx)

' 配列にデータを格納

arr(arrIdx) = Cells(i, 1).Value

' 配列の要素番号を更新

arrIdx = arrIdx + 1

End Sub

使用している技術

動的配列を定義する

Dimステートメント

Dim arr() As Variant

公式の説明：変数を宣言して、記憶域を割り当てます。

配列を使用するにはDimステートメント使用し、配列を宣言します。このとき配列のサイズを指定せず括弧の中を空白にすることで、動的配列を宣言することができます。

配列のサイズを再定義する

配列のサイズを再定義するにはRedimステートメントを使用します。

ReDimステートメント

ReDim Preserve arr(arrIdx)

公式の説明：プロシージャレベルで、動的配列変数の記憶域領域を再割り当てするために使用します。

配列 arr() のサイズを arrIdx に再定義しています。

配列の中身を保持する

以下のオプションを指定することで、配列の中身を保持したままサイズを変更することができます。

Preserveオプション

ReDim Preserve arr(arrIdx)

公式の説明：オプション。最後のディメンションのサイズを変更するとき、既存の配列のデータを保持する際に使用されるキーワードです。

このオプションを使用しない場合、配列のサイズを変更すると同時に配列の中身が初期化されてしまいます。基本的に Preserve オプションをつけて使用するとよいでしょう。

実行結果

ではこのプログラムを実行してみましょう。以下のデータを動的配列に格納します。

サンプルデータ

プログラムの実行

動的配列にデータを格納することができました。

まとめ

この記事ではVBAで動的配列を使用する方法をご紹介しました。

この記事で学んだこと

・動的配列を定義するにはDimステートメントで配列の括弧の中身を空白にする。

・ReDimステートメントで配列のサイズを再定義する。

・Preserveオプションで配列の中身を保持する。

配列のサイズがあらかじめわからない場面では動的配列を活用すると便利です。

ではまた。

Post Views: 0