初期化」といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。Applications)で、ピボットテーブルのクリア・初期化を行って、下図のようにフィールドが配置されていない、まっさらなピボットテーブルにするためには、どのようなコードを書けばいいのか調べていた方による検索でしょう。[スポンサードリンク]ピボットテーブルをクリア・初期化するサンプルマクロ以下のようなマクロで、アクティブシート上のすべてのピボットテーブルを初期化することができます。Each~Nextループの中で実行しているマクロです。すべてクリアをマクロ記録してみましょうちなみに、ピボットテーブルのクリア・初期化を行う操作は以下のとおりです。▼操作方法:ピボットテーブルを初期化する[ピボットテーブルツール]-[分析]タブ-[アクション]グループ-[クリア]-[すべてクリア]を実行するこの操作をマクロ記録すると、ActiveSheet.PivotTables("ピボットテーブル1").ClearTableといったコードができます。先のマクロは、このコードを流用しているだけです。ピボットテーブルを新しく作成する操作をマクロ記録すると、かなり難解なコードができてしまいますが、ピボットテーブルを作ってしまったあとの操作をマクロ記録した場合には、シンプルなコードが作られることも多いので、是非マクロ記録機能も活用しましょう。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。