VBA 进阶系列自定义函数专题

公式越写越长、同事还看不懂？教你给 Excel「造」一个自己的函数

本文你能带走什么

① 彻底搞懂自定义函数是什么、为什么用；② 记住一套能默写出来的语法骨架；③ 6 个从简到难的完整案例，每行代码都有解析；④ 一份避坑清单 + 报错速查表；⑤ 一个可以立刻运行的练习文件。

从这一讲开始，我们学习新的内容-自定义函数。

在此之前，我们一直在「用」 Excel：用 SUM 求和，用 VLOOKUP 查表，用 TEXTJOIN 合并。这些函数都是微软写好了、封装好了、打包进 Excel 里给你的，你只能照着它规定的用法去用。从今天起，角色要换一换了——你不再只是使用者，而是制造者。

先别急着写代码，回想一下这几个让你抓狂的瞬间：

这些问题的共性是什么？你要的计算方式，Excel 恰好没提供。而自定义函数，就是解决这类问题的那把钥匙。

官方定义

自定义函数（User Defined Function，缩写 UDF），是你用 VBA 语言自己编写的一段小程序。写好之后，它可以像 SUM、VLOOKUP 一样，直接在单元格公式里调用，也能出现在「插入函数」的对话框里，可以设置参数提示，甚至可以带上中文说明。

新手最容易混淆的第一件事：Function 和 Sub 不是一回事

VBA 里有两种「程序块」：

Sub 过程（宏）负责干活——弹窗、改格式、删 sheet、批量操作；

Function 函数负责算数——接受输入、返回一个结果。记住一句话：Sub 出现在宏列表里，Function 出现在单元格公式里。

讲点实在的：什么时候不该用自定义函数

① 内置函数能一句话搞定的，就别写 UDF——慢而且没必要；② 几十万行的大数据量，VBA 逐行循环会明显卡顿，优先考虑 Power Query 或数据透视表；③ 要发给不启用宏的人看，对方打开会失效；④ 需要在公司层面长期分发，管理成本比想象中高（加载宏、信任中心、版本兼容）。会用是本事，知道什么时候不用，是更深的本事。

"┌─ 作用域 ─┐ ┌─函数名─┐ ┌参数列表────────┐ ┌返回值类型┐   Public Function MyFunc ( ByVal A As Double ) As Double        声明区 Dim X As Double        处理区 X = A * 2        返回区 MyFunc = X '← 给函数名赋值 = 返回                                  End Function

'【案例】最小可用：向指定的人问好Public Function SayHello(ByVal Name As String) As String    Dim Msg As String    Msg = "你好，" & Name & "！这是我的第一个自定义函数。"    SayHello = MsgEnd Function

如果你的单元格显示 #NAME?

99% 是这三个原因：① 代码没放在标准模块里（放在了 sheet 页或 ThisWorkbook）；② 文件存成了 .xlsx 而不是 .xlsm；③ 宏被禁用了，顶部出现黄色安全警告条要点「启用内容」。详细排查见第 12 节速查表。