Excelでデータが変更されたときにピボットテーブルを更新するにはどうすればよいですか？

ご存知の通り、元の表のデータを変更しても、関連するピボットテーブルはその場でデータを更新しません。Excelの表でデータが変更された際にピボットテーブルを更新する必要がある場合、いくつかの簡単な方法をお伝えします。

「更新」を押してワークシート内のピボットテーブルを更新する

VBAを使用してワークシートまたはワークブック内のピボットテーブルを更新する

「更新」を押してワークシート内のピボットテーブルを更新する

Excelには、単一のワークシート内のピボットテーブルを更新するための「更新」と「すべて更新」機能があります。

データを更新したいピボットテーブルをクリックし、次に「変換」（Excel 2013では「ANALYZE」）＞「更新」＞「更新」を選択します。スクリーンショットをご覧ください：

単一のワークシート内のすべてのピボットテーブルを更新したい場合は、「すべて更新」を選択できます。

VBAを使用してワークシートまたはワークブック内のピボットテーブルを更新する

VBAを使用すると、単一のワークシート内のすべてのピボットテーブルだけでなく、ワークブック全体のすべてのピボットテーブルも更新できます。

1. キーボード上で「F11 + Alt」キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 次に「挿入」＞「 モジュール」をクリックして新しいモジュールウィンドウを挿入します。その後、次のVBAコードをウィンドウにコピーします。

VBA: ワークシート内のピボットテーブルを更新する

Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
    xTable.RefreshTable
Next
End Sub

3. ウィンドウ内の「実行」ボタンをクリックするか、F5キーを押してVBAを実行すると、ワークシート内のピボットテーブルが更新されます。

ヒント: ワークブック全体のすべてのピボットテーブルを更新するには、次のVBAを使用できます。

VBA: ワークブック内のすべてのピボットテーブルを更新する

Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xTable In xWs.PivotTables
        xTable.RefreshTable
    Next
Next
End Sub

関連記事：

• Excelでファイルを開く際にピボットテーブルを更新する
• Excelでピボットテーブルのデータ範囲を更新する