代码重构后性能降3倍，如何解决VBA函数调用开销问题？

我接手了一段面条代码进行清理，原本所有逻辑都堆砌在几个难读的子例程中。在将代码重构为文档完善、易于阅读的函数后，发现修改后的代码比原面条代码慢了3倍以上，对此感到沮丧。

怀疑问题出在函数调用开销上，于是对一系列嵌套函数进行了计时测试，每个函数运行300万次。

测试代码：

Public Declare PtrSafe Function GetTickCount Lib "kernel32.dll" () As Long
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Function test1(X As Double)
    test1 = Math.Exp(X)
End Function

Function test2(X As Double)
    test2 = test1(X)
End Function

Function test3(X As Double)
    test3 = test2(X)
End Function

Function test4(X As Double)
    test4 = test3(X)
End Function

Sub test()
    Dim t0 As Long
    t0 = GetTickCount
    
    Dim n As Long
    Dim f As Double
    For n = 0 To 3000000#
        f = test4(2)
    Next n
    
    Debug.Print "Elapsed:", GetTickCount - t0
End Sub

测试结果：

解决办法 #

• 内联高频调用的极简函数：对于像test2、test3这类仅做转发调用的简单函数，直接将逻辑内联到调用处，比如把test4里的test3(X)替换为test2(X)，最终逐层简化到直接调用Math.Exp(X)，彻底消除嵌套调用开销。注意只对高频、逻辑无分支的函数这么做，避免破坏代码可读性。
• 开启VBA编译优化：打开VBA编辑器的「工具→选项→高级」，勾选「编译时删除调试信息」和「优化代码」，让编译器生成更高效的执行代码。
• 合并职责重叠的链式函数：如果多个函数只是简单的链式调用，可合并为一个函数，用注释保留原本的拆分意图，既减少调用开销，又不丢失可读性。
• 针对性优化性能瓶颈：先通过性能分析定位最耗时的代码块，只对这些部分做优化，其余代码保持可读性优先的结构，平衡可维护性和性能。

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