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

ピボットテーブルは、Excelでデータを表示したり計算したりする際に非常に便利な機能です。そのため、通常はワークシートや複数のワークシートにピボットテーブルを挿入することが多いでしょう。しかし、ワークシートや全体のワークブックから1つまたはすべてのピボットテーブルを削除する方法はご存じですか？

ワークシート内の1つのピボットテーブルを削除する

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

---

ワークシート内の1つのピボットテーブルを削除する

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

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

2. 次に、「Option」＞「 Select」＞「Entire PivotTable」をクリックしてピボットテーブル全体を選択します。スクリーンショットをご覧ください：

ヒント: Excel 2013を使用している場合は、Analyze＞ Select＞Entire PivotTableをクリックしてピボットテーブル全体を選択してください。

3. キーボードの「Delete」キーを押すと、ピボットテーブルが削除されます。

---

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

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

1. 「Alt + F11」を押して、「Microsoft Visual Basic for Applications」ウィンドウを表示します。

2. ウィンドウ内で、「Insert」＞「Module」をクリックして新しいモジュールウィンドウを開き、以下の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. Run ボタンをクリックすると、ワークブック全体のすべてのピボットテーブルが削除されます。

---

関連記事：

• Excelで全てのコメントを削除する