我碰到过类似的数组公式重算问题，你的情况应该是宏过滤操作没有触发数组公式的重新计算机制——普通的刷新、重新打开文件甚至“立即计算”都没法强制数组公式重新解析依赖关系，只有手动重新确认数组公式（Ctrl+Shift+Enter）才行。下面给你几个可行的解决办法：

1. 在宏末尾添加强制重算代码 #

最直接的方式是修改你的宏，在过滤操作完成后，强制Excel重新构建数组公式的计算依赖。可以用以下两种VBA代码二选一：

方式A：强制全工作表数组公式重算 #

' 放在宏的最后一行，替换ActiveSheet为你的目标工作表（比如Sheets("Sheet1")）
ActiveSheet.CalculateFullRebuild

CalculateFullRebuild会彻底重置工作表的计算依赖，比普通的Calculate更彻底，能确保数组公式重新解析表格的过滤状态。

方式B：重新赋值目标数组公式 #

如果只想针对你的公式所在单元格重算，避免全表开销，可以这样写：

' 假设你的数组公式在B2单元格，替换为实际单元格地址
Dim formulaText As String
formulaText = Range("B2").FormulaArray
Range("B2").FormulaArray = formulaText

重新赋值数组公式的文本会强制Excel重新计算它，相当于手动按Ctrl+Shift+Enter的效果。

2. 改用动态数组公式（Excel 365/2021及以上版本） #

如果你用的是支持动态数组的Excel版本，完全可以替换掉旧的数组公式，动态数组不需要Ctrl+Shift+Enter，而且重算机制更灵敏，宏过滤后会自动更新结果。改写后的公式如下：

=LET(
    failRows, FILTER(ROW(Table1[Load Pass fail]), (Table1[Load Pass fail]="FAIL")*(NOT(ISBLANK(Table1[Measure]))), ""),
    result, TEXTJOIN(",", TRUE, failRows),
    IF(result="", IF($E$23="", "Not run", "No failure"), result)
)

这个公式用FILTER直接筛选符合条件的行号，再用TEXTJOIN拼接，逻辑和原公式完全一致，但动态数组会自动响应表格的过滤变化。

3. 检查宏的计算模式设置 #

如果你的宏里设置了手动计算模式，Excel会停止自动重算，导致数组公式不更新。检查宏里是否有类似代码：

Application.Calculation = xlCalculationManual

如果有，一定要在宏结束前恢复自动计算并触发重算：

Application.Calculation = xlCalculationAutomatic
ActiveSheet.Calculate

这些方法里，我个人优先推荐用动态数组公式（如果版本支持），最省心；如果必须保留旧数组公式，就在宏里加CalculateFullRebuild代码，效果最稳定。

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