点击Refresh All后Power Pivot透视图表未自动更新，寻求解决方法

方案1：通过VBA宏实现一键刷新所有内容（包括透视图表） #

Excel内置的Refresh All按钮仅更新数据连接和Power Pivot模型，但不会主动触发透视表/图表的刷新。你可以通过自定义宏将这两步合并，实现点击一次按钮完成所有更新：

1. 按下Alt+F11打开VBA编辑器
2. 点击菜单栏「插入」>「模块」，粘贴以下代码：

Sub RefreshAllAndPivots()
    ' 刷新所有数据连接（含Power Query、Power Pivot模型）
    ThisWorkbook.RefreshAll
    ' 等待数据模型刷新完成（避免因模型未加载完导致透视表刷新不及时）
    DoEvents
    ' 刷新所有工作表中的透视表
    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 pc As PivotChart
    For Each ws In ThisWorkbook.Worksheets
        For Each pc In ws.PivotCharts
            pc.PivotTable.RefreshTable
        Next pc
    Next ws
End Sub

3. 返回Excel界面，点击「开发工具」>「插入」>「按钮（表单控件）」，绘制按钮后选择刚才创建的RefreshAllAndPivots宏
4. 之后只需点击这个自定义按钮，就能一次性完成数据连接、模型和透视图表的全部更新

方案2：检查透视表选项设置 #

确认透视表的刷新相关配置是否正确：

• 右键透视表 >「透视表选项」>「数据」标签页
• 勾选「打开文件时刷新数据」（确保透视表与数据模型的连接状态正常）
• 取消勾选「推迟布局更新」（避免手动刷新后图表无法即时更新）

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