“如果更改了數據透視表的源數據，數據透視表並不會立即反應這種更新。於是乎，時常會出現的狀況就是：源數據更新了，透視表卻沒有刷新，造成了“慘重”的結果。
手動刷新
最簡單的刷新方式就是手動刷新了：
- 右鍵透視表
- 選擇“刷新”即可
文件打開時自動刷新
手動刷新的確最為方便，但卻很容易讓人出紕漏。實際上，我們還可以設置透視表的自動刷新。
- 右鍵透視表
- 選擇“數據透視表選項”
- 選擇“數據”標籤
- 投選“打開文件時刷新數據”
這樣設置的結果就是，不用擔心因為忘記手動刷新透視表而造成的數據表錯誤。
利用宏自動刷新
利用excel自動刷新透視表的確是個不錯的，但這也意味，我們每次都得對每一張透視表進行有一次設置。其實也略微有些繁瑣。
這時候，我們可以清除萬能得VBA出場，利用宏來搞定同一張工作表中，一個或者多個透視表得自動刷新工作。
- 在只有一張透視表的工作表中，將下述宏複製到工作表中即可：
<code>Private Sub Worksheet_Activate() Application.EnableEvents = False Me.PivotTables(1).RefreshTable Application.EnableEvents = TrueEnd Sub/<code>
- 在擁有多張透視表的工作表中，將下述宏複製到工作表中即可：
<code>Private Sub Worksheet_Activate() Dim pt As PivotTable Application.EnableEvents = False For Each pt In Me.PivotTables pt.RefreshTable Next pt Application.EnableEvents = TrueEnd Sub/<code>
分享到:
閱讀更多 效率火箭 的文章
