自動刷新透視表·宏【excel】

數據源與透視表不在同一sheet中，選擇workbook與SheetActivate后，輸入代碼。

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

　　其中1、3行是自動生成的。其他多余的代碼需要刪除。執行單一命令。