EXCEL源数据发生变化后，如增减或修改等情况，数据透视表不会立即显示修改后的结果，今天给大家带来刷新数据透视表的三种方法。

一、手动刷新

右键单击数据透视表任意位置，点击【刷新】。



还可以鼠标定位在数据透视表任意单元格，【分析】→【刷新】，选择下拉列表中的【刷新】为刷新选中的数据透视表，选择【全部刷新】为刷新整个工作表中所有的数据透视表。



二、设置刷新

鼠标定位在数据透视表任意单元格，【分析】→【选项】→【数据】，将【打开文件时刷新数据】勾选。



三、VBA代码刷新

组合键，双击数据透视表所在工作表，将下面代码粘贴进去，关闭VBE编辑器并将文件另存为.xlsm格式。

Private Sub Worksheet_Activate()

Me.PivotTables("数据透视表1").RefreshTable

End Sub



代码中“数据透视表1”代表数据透视表名称，具体名称可通过如下方法查询。



如果要刷新工作表中所有数据透视表，可用以下代码：

Private Sub Worksheet_Activate()

Dim pt As PivotTable

For Each pt In Me.PivotTables

pt.RefreshTable

Next pt

End Sub