自动刷新透视表·宏【excel】

数据源与透视表不在同一sheet中，选择workbook与SheetActivate后，输入代码。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWorkbook.RefreshAll
End Sub

　　其中1、3行是自动生成的。其他多余的代码需要删除。执行单一命令。