ExcelでXNUMXつまたはすべてのピボットテーブルを削除するにはどうすればよいですか？

ピボットテーブルはExcelでデータを表示または計算するための非常に便利な関数であるため、通常、ピボットテーブルをXNUMXつまたは複数のワークシートに挿入する場合があります。 しかし、ワークシートまたはワークブック全体のXNUMXつまたはすべてのピボットテーブルを削除する方法を知っていますか？

ワークシートのピボットテーブルをXNUMXつ削除します

VBAを使用してブック全体のすべてのピボットテーブルを削除します

---

ワークシートのピボットテーブルをXNUMXつ削除します

Excelでは、次のようにXNUMXつのピボットテーブルを削除できます。

1.ピボットテーブルレポートをクリックします。 スクリーンショットを参照してください：

2。 次に、をクリックします オプション > 選択 > ピボットテーブル全体 選択してからピボットテーブルを選択します。 スクリーンショットを参照してください：

ヒント：Excel 2013を使用している場合は、[]をクリックしてピボットテーブル全体を選択してください。 解析 > 選択 > ピボットテーブル全体.

3.そしてを押します 削除 キーボードのボタンをクリックすると、ピボットテーブルが削除されます。

---

VBAを使用してブック全体のすべてのピボットテーブルを削除します

ブックに複数のピボットテーブルがある場合、それらをXNUMXつずつ削除するのは時間がかかりすぎます。 これで、VBAを使用してそれらを一度に削除できます。

1。 押す Altキー+ F11 を表示する アプリケーション向け Microsoft Visual Basic 窓。

2.ウィンドウで、をクリックします インセット > モジュール 新しいモジュールウィンドウを表示するには、次のVBAコードをモジュールウィンドウにコピーします。

VBA：ブック全体のすべてのピボットテーブルを削除します。

Sub DeleteAllPivotTablesInWorkbook()
'Updateby20140618
Dim xWs As Worksheet
Dim xPT As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xPT In xWs.PivotTables
        xWs.Range(xPT.TableRange2.Address).Delete Shift:=xlUp
    Next
Next
End Sub

3。 クリック ラン ボタンをクリックすると、ブック全体のすべてのピボットテーブルが削除されます。

---

関連記事：

• Excelですべてのコメントを削除します