特定の種類のデータ分析では、ピボットテーブルが非常に便利です。すべて同じデータに基づく複数のピボットテーブルを含むブックがある場合、それらを個別に調べて更新するのではなく、一度にすべてを更新する方法があるかどうか疑問に思うかもしれません。

すべてのピボットテーブルを更新できるExcelコマンドはありませんが、その作業を実行する短いマクロを作成できます。次のマクロRefreshAllPivotsは、ブック内の各ワークシートをステップ実行し、ピボットテーブルがあるかどうかを確認してから、ピボットテーブルがある場合はそれらを更新します。

Sub RefreshAllPivots()

Dim wks As Worksheet     Dim pt As PivotTable

For Each wks In Worksheets         For Each pt In wks.PivotTables             pt.RefreshTable         Next pt     Next wks End Sub

複数のピボットテーブルで多くの作業を行う場合は、マクロをショートカットキーまたはクイックアクセスツールバーに割り当てて、簡単に実行できるようにすることができます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（5675）は、Microsoft Excel 2007、2010、および2013に適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link一度に複数のピボットテーブルを更新する。