Excel如何自動刷新數據透視表

當數據源中的數據更改后，數據透視表默認不會自動刷新。可以通過右擊數據透視表，在彈出的快捷菜單中選擇“刷新數據”（Excel 2003）或“刷新”（Excel 2007）來手動刷新數據透視表。如果需要自動刷新數據透視表，可以用下面的兩種方法：

??? 一、VBA代碼

??? 用一段簡單的VBA代碼，可以實現如下效果：當數據源中的數據更改后，切換到包含數據透視表的工作表中時，數據透視表將自動更新。假如包含數據透視表的工作表名稱為“Sheet1”，數據透視表名稱為“數據透視表1”。

??? 1.按Alt+F11，打開VBA編輯器。

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

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

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

??? 4.關閉VBA編輯器。

??? 二、打開工作簿時自動刷新數據透視表

??? Excel 2003：

??? 1.右擊數據透視表，在彈出的快捷菜單中選擇“表格選項”。彈出“數據透視表選項”對話框。

??? 2.在“數據源選項”下方選擇“打開時刷新”。

???

??? 3.單擊“確定”按鈕。

??? Excel 2007：

???? 1.右擊數據透視表，在彈出的快捷菜單中選擇“數據透視表選項”。彈出“數據透視表選項”對話框。

??? 2.選擇“數據”選項卡，選擇“打開文件時刷新”。

???

??? 3.單擊“確定”按鈕。

??? 這樣，以后當更改數據源并保存后，重新打開該工作簿時，數據透視表將自動刷新。