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

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

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

3、打开VBA窗口，将下面的代码复制到数据透视表所在的工作表

Private Sub Worksheet_Activate()

   ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh

End Sub

4、大功告成。