【VBA】動的配列とReDimステートメント

【VBA】ReDimステートメント

今回は動的配列とReDimステートメントについて解説します。タイトルクリエーターで作成した架空書籍の「表題」「著者」「出版社」の一覧表を使います。

データを用意するのが面倒な人は表をコピーしてセル B2 に張り付けてください。


このデータを次のような要素の配列として取り込んでみます。

ただし、リストはユーザーさんが新たな項目を付け加えて、行数については変更されることも想定してコードを書きます。そのような場合に動的配列と Redim ステートメントを使用します。

'[VBA]Redimステートメントのサンプルコード(1)

Option Base 1

Sub Book_List()

　　'mybook を文字列型データを格納する配列として宣言
　　Dim mybook() As String
　　Dim rc As Long, lc As Long, i As Long

　　'リストの最終行をカウント
　　rc = ActiveSheet.Rows.Count
　　lc = Cells(rc, 2).End(xlUp).Row

　　'Redimステートメントで配列の要素数を確定
　　ReDim mybook(lc, 3)

　　For i = 1 To lc
　　　　mybook(i, 1) = Cells(i, 2).Value
　　　　mybook(i, 2) = Cells(i, 3).Value
　　　　mybook(i, 3) = Cells(i, 4).Value
　　Next i

　　For i = 1 To lc
　　　　Debug.Print mybook(i, 1), mybook(i, 2), mybook(i, 3)
　　Next i

End Sub

' 実行結果：
'「沖縄の大王」　　　　嵩原勝伍　　　大和出版協会
'「不死の鉄塔」　　　　浜阪貴佑　　　大和書房
'「異国読み書き」　　　斧渕咲樹　　　ハスキー
'「隠されたジャズ」　　平出将誉　　　ブックフォレスト
'「苦悩する都市」　　　山辺吉亘　　　大和図書館協会

Book_List() では二次元配列 mybook(y, x) を定義していますが、

Dim mybook() As String

では mybook を「文字列型の入る変数です」とだけ宣言し、この段階では次元数も要素数も決められていません。そして

lc = Cells(rc, 2).End(xlUp).Row

によって、リストの最終行の行番号 lc を得てから、

ReDim mybook(lc, 3)

によって次元数を 2 , それぞれの次元について要素数を lc , 3 とした配列を定めています。冒頭で用意した表を使えば lc には 5 が入りますが、表に項目を追加すれば lc の値は増えていきます。そのあと繰り返し処理によってこの 2 次元配列にセルのデータを格納しています。

選択したセルを含む列のデータを一次元配列に格納するプロシージャも載せておきます。



上図にある通り、見出しの部分は除きます。
よければ以下のサンプルデータを使ってください。

'[VBA] Redimステートメントのサンプルコード(2)

Sub Rarray1D()

　　Dim x As Variant
　　Dim a() As Variant
　　Dim k As Long, n As Long
　　Dim y1 As Long, y2 As Long

　　'選択されているセルが空白なら処理を終了
　　If Selection.Value = "" Then
　　　　MsgBox "空白以外のセルを選択してください"
　　　　Exit Sub
　　End If

　　'選択セルの列番号を取得
　　x = Selection.Column

　　'選択セルを含むデータ列の見出しの次の行番号を取得
　　y1 = Selection.End(xlUp).Row + 1

　　'選択セルを含むデータ列の最後のデータの行番号を取得
　　y2 = Selection.End(xlDown).Row

　　'データの数を計算
　　n = y2 - y1 + 1

　　'Redimステートメントで要素数を確定
　　ReDim a(n)

　　'配列にデータを格納
　　For k = y1 To y2
　　　　a(k - y1 + 1) = Cells(k, x)
　　Next k

　　'以下は Debug なので動作を確認したら削除してください
　　For k = 1 To n
　　　　Debug.Print a(k)
　　Next k

End Sub

Rarray1D() を実行すると、選択されている列のデータが全て表示されるはずです。