VBAでピボットテーブルをクリア・初期化する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「vba ピボットテーブルクリア」
「vba ピボットテーブル初期化」
「エクセルマクロピボットテーブル初期化」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。

Excel VBA（Visual Basic for Applications）で、ピボットテーブルのクリア・初期化を行って、下図のようにフィールドが配置されていない、

まっさらなピボットテーブルにするためには、どのようなコードを書けばいいのか調べていた方による検索でしょう。

［スポンサードリンク］

ピボットテーブルをクリア・初期化するサンプルマクロ

以下のようなマクロで、アクティブシート上のすべてのピボットテーブルを初期化することができます。

Sub ピボットテーブルを初期化する()

　Dim pvt As PivotTable

　For Each pvt In ActiveSheet.PivotTables
　　pvt.ClearTable
　Next pvt

End Sub

PivotTableオブジェクトのClearTableメソッドを、

VBAでピボットテーブルをクリア・初期化する

For Each～Nextループの中で実行しているマクロです。

ちなみに、ピボットテーブルのクリア・初期化を行う操作は以下のとおりです。

▼操作方法：ピボットテーブルを初期化する
［ピボットテーブルツール］
　－［分析］タブ
　　－［アクション］グループ
　　　－［クリア］
　　　　－［すべてクリア］を実行する

VBAでピボットテーブルをクリア・初期化する

この操作をマクロ記録すると、

　ActiveSheet.PivotTables("ピボットテーブル1").ClearTable

といったコードができます。

先のマクロは、このコードを流用しているだけです。

ピボットテーブルを新しく作成する操作をマクロ記録すると、かなり難解なコードができてしまいますが、ピボットテーブルを作ってしまったあとの操作をマクロ記録した場合には、シンプルなコードが作られることも多いので、是非マクロ記録機能も活用しましょう。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「ピボットテーブル」の記事一覧