VBA问题：如何跨工作表执行TRIM并按顺序更新Power Pivot和数据透视表

1. 多工作表E列批量去空格实现 #

原代码仅作用于当前激活的工作表，因此无法覆盖两个目标表，我们可以将TRIM逻辑封装为通用子过程，分别传入两个工作表名称调用即可，避免重复编写代码。

2. 按指定顺序刷新数据 #

ActiveWorkbook.RefreshAll为异步执行，无法控制刷新顺序，且默认启用后台刷新会导致后续操作提前执行。我们可以先关闭后台刷新，按优先级顺序手动触发刷新：先刷新Power Pivot数据模型，再依次刷新指定工作表的所有透视表即可。

完整修改后的代码 #

' 通用子过程：对指定工作表的E列整列执行去空格处理
Sub TrimColumnE(ws As Worksheet)
    Dim r As Range
    Set r = Intersect(ws.Range("E1").EntireColumn, ws.UsedRange)
    If Not r Is Nothing Then ' 避免E列无数据时报错
        r.Value = Evaluate("IF(ROW(" & r.Address & "),IF(" & r.Address & "<>"""",TRIM(" & r.Address & "),""""))")
    End If
End Sub

Private Sub CommandButton1_Click()
    ' 原有的查询执行逻辑保留
    Range("b1:b5").Select
    Application.Run "SSGenALLQueryDetail"
    
    ' 对两个目标表分别执行E列去空格
    TrimColumnE ThisWorkbook.Worksheets("Item Data Sheet")
    TrimColumnE ThisWorkbook.Worksheets("Data Sheet")
    
    ' 关闭后台刷新，保证同步执行
    Application.CalculateUntilAsyncQueriesDone
    ThisWorkbook.Model.Refresh ' 第一步：刷新Power Pivot数据模型
    DoEvents ' 等待模型刷新完成
    
    ' 第二步：刷新ActualUnit Adj工作表的所有透视表
    Dim pt As PivotTable
    For Each pt In ThisWorkbook.Worksheets("ActualUnit Adj").PivotTables
        pt.RefreshTable
        DoEvents
    Next pt
    
    ' 第三步：刷新JC by Phase and Cost Type工作表的所有透视表
    For Each pt In ThisWorkbook.Worksheets("JC by Phase and Cost Type").PivotTables
        pt.RefreshTable
        DoEvents
    Next pt
    
    ' 其余工作表刷新可按需添加，最后激活目标工作表
    Worksheets("JC by Phase and Cost Type").Activate
End Sub

注意事项 #

• 如果Power Pivot关联的是外部查询，请进入「数据」选项卡→「连接」→「属性」，取消勾选「允许后台刷新」，避免异步刷新打乱顺序
• 代码新增了空值判断，E列无数据时不会抛出异常

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