我完全懂你这种两难的处境——VBA密集型的复杂工作簿本来就吃性能，把UDF设成易失性导致卡顿，不设又没法自动更新，试过常规方法还没用，确实头疼。结合你的情况，给你几个针对性的解决方案：

1. 给UDF添加触发参数（最推荐） #

这是最省心的方法，不用动计算模式，也不会额外消耗性能。核心思路是给你的UDF加一个“触发开关”参数，当这个参数变化时，Excel会自动重新计算UDF。

• 步骤：
  • 修改你的UDF定义，增加一个无实际用途的触发参数，比如：

    Function MyComplexCalculation(inputData As Variant, trigger As Variant) As Variant
        Application.Volatile False ' 保持非易失性
        ' 你的原有计算逻辑
        MyComplexCalculation = inputData * 2 ' 示例计算
    End Function
    

  • 在工作表中调用UDF时，把一个辅助单元格（比如隐藏的$Z$1）作为触发参数传入：
    =MyComplexCalculation(A1, $Z$1)
  • 当你需要强制更新UDF时，用VBA修改这个辅助单元格的值即可：

    Sub TriggerUDFUpdate()
        Range("$Z$1").Value = Now() ' 用当前时间作为触发值，每次都不一样
    End Sub
    

  这个方法只有你主动触发时才会更新UDF，完全不会造成不必要的卡顿。

2. 手动刷新特定UDF的单元格 #

直接遍历所有包含目标UDF的单元格，通过重新设置公式来触发计算。这种方法精准针对你的UDF，不会影响其他单元格的计算。

示例代码：

Sub RefreshTargetUDF()
    Dim targetCell As Range
    Dim tempFormula As String
    
    ' 遍历工作表中所有包含公式的单元格
    For Each targetCell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
        ' 判断单元格是否包含你的UDF名称（替换成你的UDF名字）
        If InStr(targetCell.Formula, "MyComplexCalculation") > 0 Then
            ' 先暂存公式，清空后重新赋值，触发计算
            tempFormula = targetCell.Formula
            targetCell.Formula = ""
            targetCell.Formula = tempFormula
        End If
    Next targetCell
End Sub

你可以把这个子程序绑定到工作表按钮、快捷键，或者其他事件（比如特定单元格修改、工作簿激活），需要更新时一键运行就行。

3. 修复UDF的依赖关系（排查根本原因） #

有时候UDF不更新，是因为Excel无法识别它的依赖数据源。比如你的UDF没有直接引用依赖的单元格，而是通过其他VBA变量、名称或者间接取值来获取数据，这时候Excel追踪不到依赖，自然不会自动更新。

• 排查方法：
  • 检查UDF中所有的数据来源，确保它们要么作为参数传入UDF，要么在UDF中直接引用单元格（比如Range("A1").Value）
  • 如果依赖的是动态数据（比如通过其他子程序生成的数据），可以把这些数据存到特定单元格，让UDF直接引用这些单元格，这样Excel就能识别依赖关系，在数据变化时自动更新UDF。

4. 临时切换易失性再恢复 #

如果你确实需要一次性强制所有UDF更新，可以临时把UDF改成易失性，计算后再改回非易失性。不过这个方法需要开启VBA工程的访问权限，操作时要谨慎（建议先备份模块代码）。

示例代码：

Sub TempVolatileRefresh()
    Dim udfModule As VBComponent
    Dim moduleCode As String
    
    ' 替换成你的UDF所在的模块名
    Set udfModule = ThisWorkbook.VBProject.VBComponents("Module1")
    moduleCode = udfModule.CodeModule.Lines(1, udfModule.CodeModule.CountOfLines)
    
    ' 第一步：将UDF改为易失性
    moduleCode = Replace(moduleCode, "Application.Volatile False", "Application.Volatile True")
    udfModule.CodeModule.DeleteLines 1, udfModule.CodeModule.CountOfLines
    udfModule.CodeModule.AddFromString moduleCode
    
    ' 强制全工作簿重新计算
    Application.CalculateFullRebuild
    
    ' 第二步：改回非易失性
    moduleCode = Replace(moduleCode, "Application.Volatile True", "Application.Volatile False")
    udfModule.CodeModule.DeleteLines 1, udfModule.CodeModule.CountOfLines
    udfModule.CodeModule.AddFromString moduleCode
End Sub

注意：使用前需要在Excel选项中开启「信任对VBA工程对象模型的访问」（路径：文件→选项→信任中心→信任中心设置→宏设置）。

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