FYI in the attachment.

办法1、你的透视表，都可以利用导入外部数据的办法生成，然后在源数据变化后，点击外部数据工具栏上的 全部刷新 就可以 一次性刷新所有透视表。
办法2、编一段VB代码（大概就是遍历工作簿中所有的透视表对象，再刷新），可以去excelhome论坛 搜索，透视表 批量自动刷新的 帖子

Private Sub Worksheet_Activate()
        Sheets("Sheet1").PivotTables("数据透视表1").RefreshTable
End Sub

通用的代表如上，代码含义为当当前工作表被激活的时候，工作表“sheet1”的数据透视表会被刷新。你可以参照编写，不会的话，请上传你的文件我帮你做VBA

Hi there,

I copied the EXCEL file.
There are two pivot tables, in the sheets study 1 qaly and study 2 qaly seperately.
Would you mind to write the VBA for me please.
Thanks so much!
Xie xie!

private Sub Workbook_sheetActivate(ByVal sh As object)
    Dim pt
    For each pt in sh.pivotTables
    pt.pivotCache.refresh
Next
End Sub