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

すべてのピボットテーブルを更新できる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._の他の問題で説明されています。）

注：

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

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

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

このヒント（2287）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

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