Excel宏执行RefreshAll后无法删除重复项的问题求助

你的宏执行后重复项未被移除，核心原因是ActiveWorkbook.RefreshAll默认是异步执行的——代码刚触发刷新就立刻执行删除重复项操作，此时数据还未刷新完成，去重处理的仍是旧数据。

以下是具体的解决步骤：

方法1：强制刷新同步完成 #

将所有数据查询设置为同步模式，确保刷新彻底完成后再执行去重。修改后的代码如下：

Sub Update()
    Dim qt As QueryTable
    ' 遍历所有查询表，设置为同步刷新
    For Each qt In ActiveSheet.QueryTables
        qt.BackgroundQuery = False
    Next qt
    
    ' 执行刷新（此时会等待所有刷新完成）
    ActiveWorkbook.RefreshAll
    
    ' 执行删除重复项
    ActiveSheet.Range("Table_MHE_Failure_Reporting.accdb4[#All]").RemoveDuplicates _
        Columns:=2, Header:=xlYes
End Sub

方法2：等待刷新完成后再执行去重 #

如果不想修改查询的同步设置，可以添加循环等待，直到所有刷新任务结束：

Sub Update()
    ActiveWorkbook.RefreshAll
    
    ' 等待所有查询刷新完成
    Do While Application.CalculationState <> xlDone
        DoEvents ' 让Excel处理刷新任务
    Loop
    
    ' 执行删除重复项
    ActiveSheet.Range("Table_MHE_Failure_Reporting.accdb4[#All]").RemoveDuplicates _
        Columns:=2, Header:=xlYes
End Sub

额外检查项 #

• 确认Columns:=2指定的是你要去重的目标列，列号是否正确（从左到右计数，表头不算）。
• 检查Table_MHE_Failure_Reporting.accdb4[#All]是否指向正确的表格范围，刷新后表格结构或数据范围若有变化，可改用ListObjects("Table_MHE_Failure_Reporting.accdb4").DataBodyRange确保选中最新的数据区域。

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