![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
シート上のテーブル化された表を、
![シート上のテーブル化された表](https://excel-vba.work/wp-content/uploads/2021/04/vba_exceltable_rerease_001.png)
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAから解除できます!
![テーブル化された表のテーブル化を解除した](https://excel-vba.work/wp-content/uploads/2021/04/vba_exceltable_rerease_002.png)
VBAコード
ここでは例として、
・シート「data」上のセル「B2」から始まるテーブル化された表の
・テーブル化を解除
します。
![実行前](https://excel-vba.work/wp-content/uploads/2021/04/vba_exceltable_rerease_001.png)
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
実行結果
シート上の表のテーブル化を解除できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2021/04/vba_exceltable_rerease_002.png)
参考①
シート上の表をテーブル化する方法は、以下の記事をご確認ください。
参考②
上記のコードで使用している「TableStyle」や「Unlist」は、「ListObjectオブジェクト」のプロパティやメソッドです。
「ListObjectオブジェクト」の詳細は、公式サイトをご確認ください。