Excel宏执行时公式未自动重算，如何在过滤前强制重算？

这个问题我之前也碰到过——Excel的自动重算有时候会跟不上VBA宏的执行速度，刚写完公式就筛选，自然会拿临时的错误结果来判断。要解决这个问题，核心就是在执行筛选操作前，强制Excel完成所有待计算的公式，下面给你几个实用的方案：

方案1：强制全工作簿重算（最简单直接） #

在你的宏里，写完公式并自动填充后，立刻加上一行强制重算的代码，确保所有公式都计算完毕再执行筛选：

' 先完成公式填充
MyRange4.Formula = "=IF(M2<H2+1,""yes"",""no"")"
MyRange4.AutoFill Destination:=Formula3

' 强制全工作簿重算
Calculate

' 接下来执行你的筛选操作
' 比如：YourRange.AutoFilter Field:=X, Criteria1:="yes"

方案2：只重算目标范围（更高效，适合大数据量） #

如果你的表格有2000多行，全工作簿重算可能有点浪费资源，你可以只重算公式所在的范围，速度会更快：

MyRange4.Formula = "=IF(M2<H2+1,""yes"",""no"")"
MyRange4.AutoFill Destination:=Formula3

' 只重算Formula3这个范围（也就是你填充公式的区域）
Formula3.Calculate

' 再执行筛选

方案3：临时关闭自动重算，提升宏整体速度 #

如果你的宏里还有其他操作，也可以先把自动重算关掉，等所有公式都写完后再手动重算，最后恢复自动重算设置，这样能避免中间不必要的重复计算，整体提升宏的运行速度：

' 先保存当前的自动重算设置，避免修改用户的默认配置
Dim originalCalcMode As XlCalculation
originalCalcMode = Application.Calculation

' 关闭自动重算
Application.Calculation = xlCalculationManual

' 执行公式填充操作
MyRange4.Formula = "=IF(M2<H2+1,""yes"",""no"")"
MyRange4.AutoFill Destination:=Formula3

' 强制重算目标范围
Formula3.Calculate

' 执行筛选操作
' ... 你的筛选代码 ...

' 恢复原来的自动重算设置
Application.Calculation = originalCalcMode

为什么会出现这个问题？ #

Excel默认的自动重算（xlCalculationAutomatic）虽然会实时计算，但VBA的执行速度比Excel的重算线程快，当宏刚把公式写入单元格，还没等Excel完成计算，宏就已经执行到筛选步骤了，这时候用的是公式刚写入时的默认值（比如"no"），自然会漏掉本该保留的行。强制重算就是让宏暂停下来，等Excel把所有公式计算完再继续。

内容的提问来源于stack exchange，提问作者K. Robert