VBA Sub Function操作步骤

韩超2026-07-02约 5 分钟1,357 字主编

执行前检查

$ 要完成: Sub 过程和 Function 函数是 VBA 中最基础的两种代码容器。Sub 执行动作（如修改单元格、...
$ 适用范围: 对象模型

Sub 过程和 Function 函数是 VBA 中最基础的两种代码容器。Sub 执行动作（如修改单元格、打开文件），Function 计算并返回值（如自定义汇总公式）。实际操作时，核心流程是：打开 VBA 编辑器 → 插入模块 → 写出 Sub/Function 结构 → 在内部编写操作或计算逻辑 → 用快捷键或公式调用。掌握这个流程，就能把重复的 Office 操作自动化。

入口位置

VBA Sub 和 Function 的编写入口在 Excel 中分两个层级：

功能区的路径：

开发工具 → Visual Basic（Alt + F11）
如果看不到"开发工具"选项卡：文件 → 选项 → 自定义功能区 → 勾选"开发工具"

插入代码容器的路径： 在 VBA 编辑器中，菜单栏 → 插入 → 模块（Module），或者直接在对应的工作表对象（Sheet1 等）或工作簿对象（ThisWorkbook）中双击编写。

实际操作时，建议先插入一个标准模块来存放通用 Sub 和 Function，这样在其他模块或工作表中都能直接调用，不用重复写。

操作示例

VBA Sub Function操作步骤操作示例插入标准模块并编写Sub和Function

下面用一个典型的职场场景——批量格式化销售报表——来演示 Sub 和 Function 的完整操作步骤。

示例数据集结构

假设你在 Sheet1 中有以下原始数据（从 ERP 导出）：

| A（日期） | B（区域） | C（产品） | D（销售额） | E（负责人） | |---|---|---|---|---| | 2024/1/5 | 华东 | A-100 | 12500 | 张三 | | 2024/1/5 | 华北 | B-200 | 8700 | 李四 | | 2024/1/6 | 华东 | A-100 | 9300 | 王五 |

步骤 1：插入标准模块并编写 Sub

按 Alt + F11 打开编辑器，菜单栏插入 → 模块，在空白区域输入：

```vba Sub 格式化销售报表() ' 选中数据区域（从 A1 开始向下连续区域） Dim rng As Range Set rng = Range("A1").CurrentRegion

' 设置表头加粗、底色浅蓝 With rng.Rows(1) .Font.Bold = True .Interior.Color = RGB(200, 220, 240) .HorizontalAlignment = xlCenter End With

' 设置销售额列（第4列）千分位格式 rng.Columns(4).NumberFormat = "#,##0"

' 自动调整列宽 rng.Columns.AutoFit

' 添加边框 rng.Borders.LineStyle = xlContinuous End Sub ```

这段 Sub 的操作逻辑：用 CurrentRegion 自动识别数据范围（从 A1 向下直到第一个空行），一次性完成格式设置和边框添加，这样就不用手动逐行操作。

步骤 2：编写 Function 做自定义计算

接上面的表，假设 D 列是含税销售额，你经常需要计算各员工业绩的不含税金额，可以直接创建一个 Function：

``vba Function 不含税金额(含税金额 As Double, Optional 税率 As Double = 0.13) As Double ' 默认增值税税率 13% 不含税金额 = 含税金额 / (1 + 税率) End Function ``

步骤 3：在工作表中调用

VBA Sub Function操作步骤步骤3 在工作表中调用Sub和Function

Sub 的调用：按 Alt + F8，选择"格式化销售报表" → 运行。或者在工作表中插入一个按钮，右键指定宏。
Function 的调用：直接在单元格中输入公式 =不含税金额(D2)，或 =不含税金额(D2, 0.09) 指定不同税率。

预期结果

| 负责人 | 含税销售额 | 不含税金额（=不含税金额(D2)） | |---|---|---| | 张三 | 12,500 | ≈ 11,061.95 | | 李四 | 8,700 | ≈ 7,699.12 | | 王五 | 9,300 | ≈ 8,230.09 |

同时原始数据表自动套用了表格样式、蓝色表头、千分位和边框，手工步骤从 6 步压缩到 1 键。

公式或快捷键示例

除了上述手动调用，Sub 和 Function 在编写阶段的核心快捷键：

| 操作 | 快捷键 | 说明 | |---|---|---| | 打开 VBA 编辑器 | Alt + F11 | 切换 Excel 和编辑器 | | 运行当前 Sub | F5 | 光标在 Sub 内部时运行 | | 单步调试 | F8 | 逐行执行，观察变量变化 | | 插入模块 | Alt + I → M | 无快捷键，需菜单 | | 显示监视窗口 | Ctrl + W | 跟踪变量值变化 |

公式中使用 Function 的注意事项：

Function 必须写在标准模块中才能在工作表公式里直接使用（写在工作表对象或 ThisWorkbook 里不行）
Function 不能修改工作表的格式或内容——它只计算并返回一个值
如果 Function 计算慢（比如遍历上千行），考虑用 Application.Volatile 让 Excel 在每次计算时都重算，但只在必要时开启

常见错误

通过实际编写和调试，以下是最容易踩的坑：

Sub 或 Function 写成了死循环：比如在 Sub 里递归调用自身，或 Do Loop 没有退出条件。解决方法：在循环开始时加一个计数器上限，或先在小数据集上测试。
Function 在工作表公式中返回 #VALUE!：通常是 Function 的参数类型不匹配，或者 Function 内部引用了一个不存在的命名区域。检查参数是否声明为合适的数据类型（Double 而不是 Integer 等）。
Sub 对选中区域误操作：比如 Selection.ClearContents 清空了不该清的区域。先保存一次工作簿再用，或对明确指定的 Range 操作，而不是依赖 Selection。
变量没有声明类型：写 Dim i 而不是 Dim i As Long，VBA 默认视为 Variant 类型，既慢又容易产生意外值。养成习惯在模块顶部加 Option Explicit 强制声明所有变量。
忽视目标单元格的格式：直接用 Sub 写入一个数字，但该单元格事先被设成了文本格式——写入的是文本"12500"而不是数字 12500，后续公式报错。在写入前用 Range.NumberFormat = "General" 复位格式。

检查清单（每次写完 Sub/Function 都过一遍）

[ ] 代码保存在标准模块中（便于跨工作表调用）？
[ ] 所有变量都声明了具体数据类型？
[ ] 用了一个 3–10 行的小样本表测试过？
[ ] 测试时先按 F8 逐行走一遍，确认每一步的行为？
[ ] 涉及删除/清空操作时，是否先复制一份备份工作表？
[ ] Sub 里用 Application.ScreenUpdating = False 开头、True 结尾（避免屏幕闪烁）？

常见问题