要自动刷新数据透视表报表中的数据，请执行以下操作：

步骤1：自动更新源数据范围名称

请参阅提示：自动更新范围名称参考。

步骤2：添加VBA事件以自动刷新数据透视表报表1.按Alt + F11，然后在“ VBAProject”窗格中双击工作表名称。

2.从“模块”表上方的左侧下拉列表中，选择“工作表”，然后从右侧的下拉列表中选择“激活”。

3.复制以下代码并将其粘贴到“模块”表中。

  • 私人子Worksheet_Activate（）

ActiveSheet.PivotTables（“ PivotTable1”）。PivotCache.Refresh End Sub * 4。按Ctrl + S保存工作簿，然后按Alt + F4关闭VBA。在选择包含数据透视表的工作表后，将自动刷新该数据透视表报告。

注意：要查找数据透视表报表名称（在本示例中为“ PivotTable1”），请选择“数据透视表工具”→“选项”→“数据透视表名称”（在“数据透视表选项”中）。