當 Excel 中的數據發生變化時，如何重新整理資料透視表？

眾所周知，如果您更改原始表格中的數據，相關的資料透視表不會同時重新整理其中的數據。如果您需要在 Excel 表格中的數據發生變化時重新整理資料透視表，我可以告訴您一些快速的方法。

通過點擊「重新整理」按鈕來重新整理工作表中的資料透視表

使用 VBA 重新整理工作表或工作簿中的資料透視表

通過點擊「重新整理」按鈕來重新整理工作表中的資料透視表

在 Excel 中，有「重新整理」和「全部重新整理」功能可用於重新整理單個工作表中的資料透視表。

點擊您要重新整理數據的資料透視表，然後點擊「轉換」（在 Excel 2013 中，點擊「分析」）>「重新整理」>「重新整理」。請參見截圖：

如果您想重新整理單個工作表中的所有資料透視表，可以選擇「全部重新整理」。

使用 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 中更新資料透視表的數據區域