テーブルを解除する

トップページ（目次）

160.テーブルを解除する

＜実行前後＞

→

Sub テーブルを解除する()

    ActiveSheet.ListObjects(1).Unlist

End Sub

テーブルが組まれていると制限が生まれるので、集計が完了して不要な場合は解除する VBAでの実行時は、1度解除後にもう一度解除を実行するとエラーストップするのでエラー抑制を入れるのも効果的

Sub テーブルを解除する()
    
    On Error Resume Next 'エラー抑制
    ActiveSheet.ListObjects(1).Unlist
    On Error GoTo 0 'エラー抑制解除

End Sub

テーブルが複数ある場合はテーブル名を指定する

Sub テーブルを解除する()
    
    ActiveSheet.ListObjects("テーブル名").Unlist

End Sub