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

シート上のテーブル化された表を、

シート上のテーブル化された表
シート上のテーブル化された表


VBAから解除できます!

テーブル化された表のテーブル化を解除した
テーブル化された表のテーブル化を解除した
PR

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

以下を指定します(9~11行目)。
※状況に応じて任意の値を指定してください。

・対象シート
・オートフィルタを設定する表の一番左上のセル

テーブル化を「解除(=Unlist)」する前に、スタイルを「解除(=TableStyleに空文字を設定)」します(13~18行目)。
※テーブル化の解除だけではスタイルの設定が残ってしまうため。

PR

実行結果

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

実行結果
実行結果
PR

参考①

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

PR

参考②

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

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

タイトルとURLをコピーしました