VBA自动更新透视表数据

你可以使用 VBA 来自动更新透视表数据。以下是一个简单的示例代码：

Sub RefreshPivotTable()
    '定义变量
    Dim PT As PivotTable
    Dim WS As Worksheet
    
    '设置工作表和透视表对象
    Set WS = ThisWorkbook.Worksheets("Sheet1") '替换为你的工作表名称
    Set PT = WS.PivotTables("PivotTable1") '替换为你的透视表名称
    
    '刷新透视表
    PT.RefreshTable
End Sub

你可以将此代码保存在你的 Excel 文件中，并将其绑定到一个按钮或快捷键上，以方便随时更新透视表数据。