首先启用开发工具选项卡，再插入VBA模块，接着编写自定义函数如MySum、Grade和AvgNoZero，最后保存为.xlsm格式并在工作表中调用这些函数实现扩展计算功能。
如果您在使用Excel处理复杂数据时发现内置函数无法满足需求，可以通过VBA编写自定义函数来扩展功能。这类用户定义函数（UDF）能像原生函数一样被调用和重复使用。
本文运行环境：Dell XPS 15，Windows 11
一、启用开发工具选项卡
要使用VBA创建自定义函数，必须先确保“开发工具”选项卡可见。该选项卡提供了进入VBA编辑器的入口。
1、点击Excel顶部菜单栏的“文件”。
2、选择“选项”，打开Excel选项窗口。
3、在左侧列表中选择“自定义功能区”。
4、在右侧“主选项卡”下，勾选开发工具。
5、点击“确定”后，开发工具选项卡将出现在功能区。
二、插入VBA模块
自定义函数需要写入VBA模块中，模块是存放代码的容器，每个工作簿可包含多个模块。
1、点击“开发工具”选项卡中的“Visual Basic”按钮，进入VBA编辑器。
2、在左侧项目资源管理器中，右键单击目标工作簿名称。
3、选择“插入” → “模块”。
4、一个新的模块（如Module1）将在代码窗口中出现，准备接收函数代码。
三、编写基础自定义函数
编写一个简单的函数用于执行特定计算，例如将两个数相加并返回结果。
1、在模块代码窗口中输入以下代码：
Function MySum(a As Double, b As Double) As Double
MySum = a + b
End Function
2、保存工作簿为“启用宏的工作簿（.xlsm）”格式。
3、返回Excel工作表，在任意单元格输入公式 =MySum(5,3)，结果应显示8。
四、创建带逻辑判断的函数
通过条件语句增强函数功能，使其能根据输入值返回不同结果。
1、在新模块或现有模块中输入以下代码：
Function Grade(score As Integer) As String
If score >= 90 Then
Grade = "A"
ElseIf score >= 80 Then
Grade = "B"
Else
Grade = "C"
End If
End Function
2、在工作表中使用 =Grade(85)，函数将返回"B"。
五、使用数组参数处理多值输入
某些场景需要函数接受多个数值作为输入，数组参数允许一次性传入范围数据。
1、编写如下函数以计算非零数值的平均值：
Function AvgNoZero(rng As Range) As Variant
Dim total As Double, count As Integer, cell As Range
total = 0
count = 0
For Each cell In rng
If IsNumeric(cell.Value) And cell.Value 0 Then
total = total + cell.Value
count = count + 1
End If
Next cell
If count > 0 Then
AvgNoZero = total / count
Else
AvgNoZero = CVErr(xlErrDiv0)
End If
End Function
2、在工作表中输入 =AvgNoZero(A1:A10)，函数将忽略零值进行平均计算。
