Excel中我們添加數據透視表之后，如果數據源的變動修改，導致需要對數據透視表進行實時更新，該如何刷新數據透視表呢？

　　對于如何刷新數據透視表的方法，有多種，參考下面的分享。

第一，使用數據透視表工具的刷新命令。

　　當我們創建了數據透視表之后，激活數據透視表，選項卡會多出一個選項卡：數據透視表工具——選項——刷新。或者在數據透視表中單擊右鍵，選中刷新。

第二，如何刷新受保護工作表中的數據透視表

　　我們可以添加vba代碼實現受保護工作表中數據透視表的刷新。

　　將以下代碼放入模塊或數據源工作表的change事件中，可以實現受保護工作表中數據透視表刷新。password為設定的密碼。

Sub changevalue()
??? With ActiveSheet
??????? .Unprotect (Password)
??????? ThisWorkbook.RefreshAll
??????? .Protect (Password)
??? End With
End Sub

第三，打開工作簿時自動刷新數據透視表

　　單擊數據透視表工具——選項，打開“數據透視表選項”——數據——勾選“打開文件時刷新數據”。如下圖所示：

第四，自動刷新數據透視表

　　當數據源中的數據更改后，數據透視表默認不會自動刷新。上面介紹的如何刷新數據透視表，更多的是手動刷新。

　　其實用一段簡單的VBA代碼就可以實現隨數據源的更新而自動刷新數據透視表。方法如下介紹：

　　假如包含數據透視表的工作表名稱為“Sheet1”，數據透視表名稱為“數據透視表1”，可以使用下面的方法：

　　按Alt+F11，打開VBE編輯器。

　　在“工程”窗口中，雙擊包含數據透視表的工作表，如此處的“Sheet1”表。

　　在右側代碼窗口中輸入下列代碼：

??? Private Sub Worksheet_Activate()
??????? Sheets("Sheet1").PivotTables("數據透視表1").RefreshTable
??? End Sub

　　關閉VBA編輯器，即可自動刷新數據透視表。

第五，刷新整個工作薄的所有數據透視表

　　可以使用下面的代碼：

Sub 刷新數據透視表()
ThisWorkbook.RefreshAll
End Sub