【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

実行結果

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

参考

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「Worksheetオブジェクト」の「ListObjects」プロパティ

●「ListObjectオブジェクト」の「HeaderRowRange」プロパティ

●イミディエイトウィンドウへ出力