为什么设置xlCalculationAutomatic会导致Office 365 Excel宏挂起？

问题根因 #

• 核心差异是Application.Calculation = xlCalculationAutomatic和手动按F9的运行逻辑完全不同：当你从手动计算模式切回自动模式时，Excel会立即强制触发全工作簿全量计算，且整个计算过程运行在VBA宏的执行上下文中，此时Excel会锁定界面交互、额外执行依赖链全量重扫、宏事件校验等额外逻辑，整体开销远高于交互模式下的手动计算。
• Office 365的多线程计算在VBA执行上下文下存在已知兼容性问题，尤其是当工作簿包含大量跨表引用、动态数组公式、volatile函数（OFFSET/INDIRECT/CELL等）时，宏内触发全量计算很容易出现线程死锁，也就是你看到的卡在50%不动的情况。而手动按F9时宏已经完全退出，Excel在常规交互模式下调度多线程计算的逻辑不同，不会触发死锁，同时宏退出后Excel已经在后台完成了依赖链的预更新，实际计算仅需执行公式运算，速度也会快很多。
• 你在宏内执行了批量数据写入和格式粘贴操作，会产生大量待更新的依赖标记，宏内切换自动计算时会先全量扫描所有公式的依赖关系，这个过程在宏上下文下无法被中断，也会导致界面假死。

解决方案 #

方案1：先手动完成计算再切自动模式（最通用） #

先在手动计算模式下跑完所有计算，等待计算完成后再切回自动模式，此时切换不会再触发额外的全量计算，不会出现死锁：

NormalMode:
   Application.ScreenUpdating = True
   ' 先在手动模式下执行全量计算
   Application.Calculate
   ' 等待计算完全完成再执行后续操作
   Do While Application.CalculationState <> xlDone
       DoEvents
   Loop
   ' 此时切换自动模式不会触发额外计算
   Application.Calculation = xlCalculationAutomatic
End Sub

方案2：限制计算范围，避免全表扫描 #

如果只有指定工作表或区域的公式需要更新，可以只计算对应范围，大幅降低计算开销：

' 仅计算分析表所在工作表
Workbooks("Analysis.xlsx").Worksheets("你的分析表名").Calculate
' 等待计算完成后再切自动模式
Do While Application.CalculationState <> xlDone
    DoEvents
Loop
Application.Calculation = xlCalculationAutomatic

方案3：临时关闭多线程计算解决死锁 #

如果确认是多线程计算导致的死锁，可以在切换模式前临时关闭多线程计算，切换完成后再恢复：

Application.MultiThreadedCalculation.Enabled = False
Application.Calculation = xlCalculationAutomatic
Application.MultiThreadedCalculation.Enabled = True

方案4：保留手动计算模式（适合低频率计算场景） #

如果日常不需要Excel实时自动计算，可以直接保留对那行代码的注释，宏运行完成后手动按F9触发计算即可，也可以在快速访问栏添加计算按钮，操作成本极低。

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