源数据变化时数据透视表会自动刷新数据

1、确定您的EXCEL是可以打开VBA编辑窗口的，在选项中勾选开发工具

2、插入数据透视表，注意此处的数据透视表名称，后面要与代码里面的名称一致

3、打开VBA窗口，将下面的代码复制到数据透视表所在的工作表Private Sub Worksheet_Activate() ActiveSheet.PivotTables("数据透视表1").PivotCache.RefreshEnd Sub

4、大功告成。