Excel VBA宏未等待前序宏执行完成就运行的问题求助

问题描述 #

我有一个名为FinalResultsRefresh的主宏，调用多个子宏完成数据刷新、处理、筛选等操作：

Sub FinalResultsRefresh()
    Call RefreshRawData ' 刷新数据工作表的查询连接
    Call DataFillConcatenate ' 数据刷新后，为"CONCAT"列执行拼接宏
    Call SkuExceptions ' 运行SKU异常处理宏
    Call ProductTypeExceptions ' 运行产品类型异常处理宏
    Call FilterDataByCellValue ' 根据筛选提示框结果过滤数据
    Call DeleteHiddenRows ' 删除隐藏行以完成筛选
    Call Copy ' 运行最终的复制宏
    Call BoldIt ' 为所有子标题添加粗体
    
    MsgBox "刷新完成", vbInformation, "结果刷新宏"
End Sub

发现宏会在前一个子宏未执行完成时就运行下一个，例如DeleteHiddenRows执行后，后续宏已启动但隐藏行实际尚未删除。该删除宏代码如下：

Sub DeleteHiddenRows()
    Dim sht As Worksheet
    Dim LastRow
    Set sht = Sheets("Data")
    LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
    For i = LastRow To 1 Step -1
        If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete
    Next
End Sub

该删除宏需要约10秒完成，但添加Sleep 10000或Application.Wait (Now + TimeValue("0:00:10"))延迟均无效。

解决方案 #

VBA中Call默认是同步执行的，即前一个子宏执行完毕后才会启动下一个。你的问题大概率是DeleteHiddenRows代码本身存在缺陷，或是之前的RefreshRawData存在异步操作导致后续步骤提前执行，以下是针对性修复方案：

1. 修复DeleteHiddenRows代码，确保可靠执行 #

原代码存在两个问题：未明确指定工作表的行（可能因当前激活表切换出错），以及用UsedRange获取最后行不够可靠。修改后的代码关闭屏幕更新提升速度，同时确保操作目标工作表：

Sub DeleteHiddenRows()
    Dim sht As Worksheet
    Dim LastRow As Long
    Dim i As Long
    
    ' 关闭屏幕更新，加速执行并避免视觉延迟
    Application.ScreenUpdating = False
    
    Set sht = ThisWorkbook.Sheets("Data")
    ' 用列A（或你数据的关键列）获取最后一行，比UsedRange更可靠
    LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
    
    ' 明确引用目标工作表的行，避免当前工作表切换导致错误
    For i = LastRow To 1 Step -1
        If sht.Rows(i).Hidden = True Then
            sht.Rows(i).EntireRow.Delete
        End If
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

2. 确保数据刷新是同步执行 #

如果RefreshRawData中使用了查询连接（QueryTable），默认可能是异步刷新，导致后续子宏在数据未完全刷新时就执行。修改RefreshRawData强制同步刷新：

Sub RefreshRawData()
    Dim qt As QueryTable
    ' 遍历Data表所有查询连接
    For Each qt In ThisWorkbook.Sheets("Data").QueryTables
        qt.BackgroundQuery = False ' 设置为同步刷新，等待完成再继续
        qt.Refresh
    Next qt
End Sub

如果是Excel表（ListObject）的连接，修改为：

Sub RefreshRawData()
    Dim lo As ListObject
    ' 替换为你的表名
    Set lo = ThisWorkbook.Sheets("Data").ListObjects("YourTableName")
    lo.QueryTable.BackgroundQuery = False
    lo.Refresh
End Sub

3. 用状态检查替代固定延迟 #

避免使用Sleep或Application.Wait这类固定延迟，而是检查操作是否真正完成。例如在FinalResultsRefresh中调用DeleteHiddenRows后，添加状态检查确保工作表操作完成：

' 在Call DeleteHiddenRows之后添加：
Do While Application.CalculationState <> xlDone
    DoEvents ' 释放控制权，让Excel完成后台操作
Loop
Do While ThisWorkbook.Sheets("Data").Application.Busy
    DoEvents
Loop

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