テーブルの解除方法【ListObject.Unlistメソッド】【ExcelVBA】

テーブルを解除する

データのテーブル化は集計や視認性向上に役立ちますが、返って邪魔だなと感じる場面もあります。
そんなときは ListObject の Unlistメソッド を使いテーブル化を解除できます。
ListObject.Unlistメソッド でテーブルを解除すると、テーブルのセル範囲が通常データとなります。

構文
Object.Unlist

作成したテーブルを解除するサンプルコード

Public Sub Sample()
    'テーブルを作成する
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, _
                                         Source:=Range("A1:D4"))

    '解除するテーブルを指定する
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Sheet1")  '対象のシート
    Set tbl = ws.ListObjects(1)              '対象のテーブル
    
    '■テーブルを解除する
    tbl.Unlist
    
End Sub

注意点

• Unlistを実行後、完全には元のテーブルに戻すことができません。
  ※手動で戻すか、同じ設定でテーブルを作る必要があります。
• テーブルはテーブル名での指定も可能です。
• オートフィルタも削除されます。

関連記事

• テーブルを作成する【ListObjects.Add メソッド】
• テーブル名を取得する【ListObjectsプロパティ】