VBA 入门：编辑器、模块、变量、Sub/Function 与调试

适用场景

录制宏不够用，需要判断、循环、批量处理多个工作表或工作簿。VBA 代码写在 Excel 文件里，随 .xlsm 分发；这一页覆盖最小可用的语法和对象模型，不追求完整语言手册。

打开编辑器

• Alt+F11 打开 VBA 编辑器；
• Ctrl+R 显示工程资源管理器；
• F4 显示属性窗口；
• Ctrl+G 显示“立即窗口”，可以输入 ?Range("A1").Value 查看结果；
• 插入 → 模块，新建标准模块；代码不要直接写在 Sheet 模块里，除非是事件处理。

最小示例

Option Explicit

Sub Hello()
    Dim ws As Worksheet
    Dim lastRow As Long

    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ws.Range("B1").Value = "A 列最后一行：" & lastRow
End Sub

• Option Explicit 强制声明变量，放在模块最上面；
• Sub 是没有返回值的过​​程，Function 有返回值；
• Dim 声明变量，对象变量要用 Set 赋值；
• Long 是 32 位整数，行号用它，不要用 Integer（最大 32767）；
• ThisWorkbook 指代码所在的工作簿，ActiveWorkbook 指当前激活的工作簿。

变量与数据类型

Dim count As Long
Dim rate As Double
Dim name As String
Dim ws As Worksheet

count = 10
rate = 0.05
name = "张三"
Set ws = ThisWorkbook.Worksheets("Sheet1")

Const 定义常量：

Const SHEET_NAME As String = "报表"
Const TAX_RATE As Double = 0.13

Sub 与 Function

Sub WriteTitle()
    ThisWorkbook.Worksheets("报表").Range("A1").Value = "月度报表"
End Sub

Function AddTax(amount As Double) As Double
    AddTax = amount * 1.13
End Function

Function 通过给函数名赋值返回结果。调用：

Sub Demo()
    MsgBox AddTax(100)
End Sub

参数默认按引用传递（ByRef），需要按值传递时写 ByVal：

Function AddTax(ByVal amount As Double) As Double
    AddTax = amount * 1.13
End Function

对象模型

Excel VBA 的核心对象层级：

Application
  └─ Workbook
       └─ Worksheet
            └─ Range

常用写法：

Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = 100
ActiveSheet.Range("A1").Interior.Color = RGB(255, 0, 0)

With 可以减少重复引用：

With ThisWorkbook.Worksheets("Sheet1").Range("A1:D10")
    .Font.Bold = True
    .Interior.Color = RGB(220, 230, 241)
    .Borders.LineStyle = xlContinuous
End With

调试

排查时先在关键位置 Debug.Print 变量值，或按 F8 逐步看哪一行出错。不要靠猜。

易错点

• 对象变量忘了 Set：Dim ws As Worksheet 后直接 ws = ... 会报错，必须 Set ws = ...。
• Integer 溢出：行号超过 32767 时 Integer 会溢出，统一用 Long。
• ThisWorkbook 和 ActiveWorkbook 混用：宏运行时用户可能切换了工作簿，ActiveWorkbook 会指向别处；固定用 ThisWorkbook。
• Worksheets 和 Sheets 混用：Sheets 还包含图表工作表，按名称取工作表时优先 Worksheets。
• 变量名撞关键字：不要用 Date、Name、Range 等作为变量名，容易和内置对象冲突。
• 没有 Option Explicit：拼错变量名不会报错，会悄悄创建一个新变量；每个模块都加 Option Explicit。
• 代码写在 Sheet 模块：标准过程应放在标准模块；Sheet 模块适合事件（如 Worksheet_Change）。
• 宏安全：.xlsm 打开时可能被禁用，代码不运行；先确认“启用内容”。

相关条目

• excel-macro-recording — 从录制宏开始
• vba-range-cells — 操作单元格和区域
• vba-loops — 循环与判断
• vba-workbook — 工作簿和工作表操作
• vba-error-handling — 错误处理

参考链接

• Microsoft Learn: Excel VBA 对象模型

读完自测

合上页面，先回答，再展开对照。

1. 对象变量为什么必须用 Set 赋值？
2. 行号变量为什么推荐用 Long 而不是 Integer？
3. ThisWorkbook 和 ActiveWorkbook 有什么区别？