【Excel VBA】テーブルのレコードを読み込む

エクセルでテーブルを作成し、テーブルの情報をVBAで操作したいことがあります。

この記事では、テーブルのレコード（行）を読み込む方法についてご紹介します。

テーブルのレコードを繰り返す（For Each ○○ In テーブル）

事前にエクセルに”テーブル名”というテーブルを作成します。

次のコードで、テーブルをレコード（行）毎に繰り返し処理を行います。

Sub テーブルレコード読込()
　Dim Data as Variant
　For Each Data In Range("テーブル名").Rows
    MsgBox Data.Cells(1) & " " & Data.Cells(2)　　’処理内容
　Next
End Sub

レコード単位（行単位）で繰り返し処理が行わるため、2列目を指定する場合はCells(2)とすることで指定することができます。以下が1回目の実行結果です。上記のテーブルの場合、3回繰り返されます。