【VBA】テーブル化された表の、列の数分繰り返し処理をする【ループ】

テーブル化された表の
　・列の数分、繰り返し処理
ができます！

VBAコード
実行結果
参考

VBAコード

ここでは例として、
　・シート「data」上の
　・テーブル化された表「productテーブル」の
　・列の数分繰り返し処理をして
　・列名をイミディエイトウインドウへ出力
します。

Option Explicit

Sub sample()
    
    Dim columnsRange As range
    Dim range As range
    
    'テーブル化された表の列のセル部分を取得
    Set columnsRange = Worksheets("data").ListObjects("productテーブル").HeaderRowRange
    
    '取得した列のセル部分の数分繰り返し
    For Each range In columnsRange
        '列名をイミディエイトウインドウへ出力
        Debug.Print range.Value
    Next
    
End Sub

「Worksheetオブジェクト」の「ListObjects」プロパティにより、「ListObjectオブジェクト」を取得します(9行目)。
※“「ListObjects」メソッドの引数には「テーブル名」を指定します。上記では「productテーブル」を指定しています。

「ListObjectオブジェクト」の「HeaderRowRange」プロパティにより、列のセル部分を取得します(9行目)。