Excel按下Refresh All时一键刷新透视表、图表及数据查询的方法

你可以通过Excel的工作簿事件Workbook_BeforeRefresh实现需求——点击“Refresh All”按钮时，自动触发自定义宏同步更新透视表、图表和数据查询，无需手动运行宏。具体实现步骤如下：

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧项目面板中找到并双击ThisWorkbook，打开其代码编辑窗口
3. 在代码窗口顶部的下拉菜单中，左侧选择Workbook，右侧选择BeforeRefresh，自动生成事件框架
4. 将以下代码填入事件框架中：

Private Sub Workbook_BeforeRefresh(Cancel As Boolean)
    ' 取消Excel默认的Refresh All操作，避免重复刷新
    Cancel = True
    
    ' 刷新所有数据查询/外部数据连接
    ThisWorkbook.RefreshAll
    
    ' 遍历刷新所有数据透视表
    Dim ws As Worksheet
    Dim pt As PivotTable
    For Each ws In ThisWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.RefreshTable
        Next pt
    Next ws
    
    ' 遍历刷新所有嵌入式图表
    Dim chObj As ChartObject
    For Each ws In ThisWorkbook.Worksheets
        For Each chObj In ws.ChartObjects
            chObj.Chart.Refresh
        Next chObj
    Next ws
    
    ' 若存在独立图表工作表，取消下方注释补充刷新逻辑
    ' Dim ch As Chart
    ' For Each ch In ThisWorkbook.Charts
    '     ch.Refresh
    ' Next ch
End Sub

代码说明 #

• Cancel = True：关闭Excel默认的Refresh All行为，让自定义逻辑完全控制刷新流程
• ThisWorkbook.RefreshAll：优先刷新所有数据连接和查询，确保基础数据源为最新状态
• 透视表遍历刷新：保证所有工作表中的数据透视表基于最新数据源更新
• 图表遍历刷新：同步更新嵌入式图表（若有独立图表工作表，可启用注释代码）

注意事项 #

• 保存文件时需选择**启用宏的工作簿（.xlsm）**格式，否则宏会失效
• 测试时直接点击Excel界面的“Refresh All”按钮，即可自动触发上述宏完成全内容更新

内容的提问来源于stack exchange，提问作者user29930398