【VBA】シート上の表をテーブル化する

VBAコード

ここでは例として、
　・シート「data」上のセル「B2」から始まる表をテーブル化して
　・テーブル化した範囲を「productテーブル」と名前定義
します。

Sub sample()
    
    With Worksheets("data")
        '対象シートをアクティブにする
        .Activate
        'テーブル化したい範囲の一番左上を選択状態にする
        .Range("B2").Select
        'テーブル化する(名前定義も含む)
        .ListObjects.Add.Name = "productテーブル"
    End With
    
End Sub

実行結果

シート上の表のテーブル化ができました。

参考①

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

●「XXX.ListObjects.Add」

●「ListObjectオブジェクト」

参考②

シート上のテーブルにスライサーを作成することもできます。

詳細については、以下の記事をご確認ください。