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

VBAコード

ここでは例として、
　・シート「data」上のセル「B2」から始まるテーブル化された表の
　・テーブル化を解除
します。

Option Explicit

Sub sample()
    
    Dim ws As Worksheet
    Dim startRange  As Range
    
    '対象シート
    Set ws = Worksheets("data")
    'オートフィルタが設定されている表の一番左上のセル
    Set startRange = ws.Range("B2")
    
    With startRange.ListObject
        'スタイルを解除する
        .TableStyle = ""
        'テーブル化を解除する
        .Unlist
    End With
    
End Sub

実行結果

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

参考①

シート上の表をテーブル化する方法は、以下の記事をご確認ください。

参考②

上記のコードで使用している「TableStyle」や「Unlist」は、「ListObjectオブジェクト」のプロパティやメソッドです。

「ListObjectオブジェクト」の詳細は、公式サイトをご確認ください。