當 Excel 中的數據發生變化時，如何重新整理資料透視表？
Author: Sun Last Modified: 2025-08-06
眾所周知，如果您更改原始表格中的數據，相關的資料透視表不會同時重新整理其中的數據。如果您需要在 Excel 表格中的數據發生變化時重新整理資料透視表，我可以告訴您一些快速的方法。
通過點擊「重新整理」按鈕來重新整理工作表中的資料透視表
在 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
相關文章：
最佳 Office 辦公效率工具
| 🤖 | Kutools AI Aide：徹底革新數據分析，基於智能執行|生成程式碼|創建自訂公式|分析數據並生成圖表|調用 Kutools Functions… |
| 熱門功能：查找、選取項目的背景色或標記重複值 | 刪除空行 | 合併列或單元格且不丟失資料 | 四捨五入... | |
| 高級 LOOKUP：多條件查找|多值查找|多表查找|模糊查找... | |
| 高級下拉列表：快速創建下拉列表 | 關聯下拉列表 | 多選下拉列表 ... | |
| 列管理器： 添加指定數量的列 | 移動列 | 切換隱藏列的可見狀態 | 區域與列比較 ... | |
| 精選功能：網格聚焦 | 設計檢視 | 增強編輯欄 | 工作簿及工作表管理器 | 資源庫 (自動文本) | 日期提取器 | 合併資料 | 加密/解密儲存格 | 按清單發送電子郵件 | 超級篩選 | 特殊篩選（篩選粗體/傾斜/刪除線 ...）... | |
| 前15 大工具集：12 款文本工具（添加文本，刪除特定字符，...）|50+ 種圖表 類型（甘特圖，...）|40+ 實用 公式（基於生日計算年齡，...）|19 款插入工具（插入QR码，按路徑插入圖片，...）|12 款轉換工具（金額轉大寫，匯率轉換，...）|7 款合併和分割工具（高級合併行，分割儲存格，...）| ...以及更多 |
使用 Kutools 支援你的語言——支援英語、西班牙語、德語、法語、中文及40 多種語言！
利用 Kutools for Excel 大幅提升你的 Excel 技能，感受前所未有的高效體驗。 Kutools for Excel 提供超過300 項高級功能，助你提升效率並保存時間。 點此查看你最需要的功能...
Office Tab 為 Office 帶來標籤式介面，讓你的工作更加輕鬆
- 啟用 Word、Excel、PowerPoint 的標籤式編輯和閱讀功能
- 在同一個視窗的標籤中打開和創建多個文件，而不是在新窗口中分開開啟。
- 可提升你50% 的工作效率，每天為你大量減少滑鼠點擊次數！