Excel宏代码编写教程怎么学？-杰瑞科技汇

Excel 宏代码编写教程：从入门到精通

第一部分：宏是什么？为什么需要它？
（图片来源网络，侵删）
- 1 宏的定义
- 2 宏能做什么？（举例说明）
- 3 为什么学习 VBA？（优势）
第二部分：准备工作与录制你的第一个宏
- 1 显示“开发工具”选项卡
- 2 录制宏：最简单的入门方式
- 3 查看和运行宏
- 4 保存带有宏的 Excel 文件
第三部分：VBA 编辑器与代码基础
- 1 认识 VBA 编辑器
- 2 VBA 的基本语法结构
- 3 代码剖析：理解录制宏生成的代码
第四部分：核心 VBA 语法与常用对象
- 1 核心对象：Workbooks, Worksheets, Range, Cells
- 2 变量与常量：存储数据的容器
- 3 数据类型：让代码更高效
- 4 条件判断：If...Then...Else
- 5 循环：For...Next 和 Do...Loop
- 6 错误处理：On Error GoTo
第五部分：实战案例：制作一个简单的数据汇总工具
（图片来源网络，侵删）
- 1 需求分析
- 2 编写代码
- 3 代码详解
- 4 创建按钮一键执行
第六部分：进阶技巧与最佳实践
- 1 使用 With 语句简化代码
- 2 自定义函数
- 3 代码注释
- 4 调试代码（F8, F5, 立即窗口）
第七部分：资源与学习路径

第一部分：宏是什么？为什么需要它？

1 宏的定义

宏是一系列指令的集合，这些指令被记录下来，以便可以重复执行，在 Excel 中，宏通常使用 VBA (Visual Basic for Applications) 语言编写，你可以把它想象成一个“机器人”，你教它如何操作 Excel，之后你只需要一声令下,它就会自动完成你教给它的所有步骤。

2 宏能做什么？（举例说明）

想象一下你每天都要做这些重复的工作：

（图片来源网络，侵删）

格式整理：将一个报表的所有标题行设置为加粗、居中、填充黄色背景。
数据清洗：删除所有空行，将“男/女”统一替换为“M/F”。
数据计算：从 5 个不同的工作表中提取特定数据,并汇总到一个总表。
报表生成：点击一个按钮,自动生成月度销售分析图表。

这些工作，手动操作可能需要几十分钟甚至几小时,而一个宏可能只需要几秒钟就能完成。

3 为什么学习 VBA？（优势）

效率极高：自动化重复性任务,解放你的双手。
减少错误：机器操作比人工操作更精确,避免因疏忽导致的错误。
实现复杂功能：可以实现很多 Excel 原始功能无法完成的复杂逻辑和数据处理。
可定制性强：你可以根据自己独特的业务需求,量身定制专属的解决方案。

第二部分：准备工作与录制你的第一个宏

1 显示“开发工具”选项卡

默认情况下，Excel 隐藏了“开发工具”选项卡。

点击 文件 -> 选项。
在弹出的 Excel 选项 窗口中，选择 自定义功能区。
在右侧的 主选项卡 列表中，勾选 开发工具。
点击 确定，你可以在顶部菜单栏看到 开发工具 选项卡了。

2 录制宏：最简单的入门方式

让我们来录制一个简单的宏：将 A1 单元格的字体设置为红色、加粗。

新建一个 Excel 工作簿。
点击 开发工具 -> 录制宏。
在弹出的对话框中：
- 宏名：输入一个有意义的名字，FormatHeader。（注意：不能有空格）
- 快捷键：可以设置一个快捷键，Ctrl+Shift+H。（Ctrl 单独使用通常用于 Excel 内置功能）
- 保存在：选择 当前工作簿。
- 说明：可以写一句描述，将A1单元格格式设置为红色加粗”。
点击 确定,现在开始录制你的操作。
选中 A1 单元格，输入“标题”。
在 开始 选项卡中，将字体颜色设置为红色，点击“加粗”按钮。
操作完成后，点击 开发工具 -> 停止录制。

3 查看和运行宏

查看代码：点击 开发工具 -> Visual Basic (或者按 Alt + F11)，你会看到一个名为 Module1 的窗口,里面写着刚才你录制操作的代码。
运行宏：
- 在工作表中，选中任意一个单元格，按 Ctrl+Shift+H（你设置的快捷键）。
- 或者，点击 开发工具 -> 宏，选择 FormatHeader，然后点击 执行。

你会发现，无论你选中哪个单元格，只要运行宏，A1 单元格都会被格式化,这就是宏的魅力！

4 保存带有宏的 Excel 文件

非常重要！ 包含宏的 Excel 文件不能保存为普通的 .xlsx 格式,必须启用宏的格式。

点击 文件 -> 另存为。
在 保存类型 中，选择 Excel 启用宏的工作簿 (*.xlsm)。
点击 保存。

第三部分：VBA 编辑器与代码基础

1 认识 VBA 编辑器

按 Alt + F11 打开 VBA 编辑器,主要窗口包括：

工程资源管理器：显示当前工作簿的所有工作表、模块等,像资源管理器一样。
代码窗口：你在这里编写和查看代码。
属性窗口：查看和修改选中对象（如工作表、模块）的属性。
立即窗口：用于测试单行代码和查看变量值（Ctrl + G 打开）。

2 VBA 的基本语法结构

VBA 代码由一系列语句组成，语句以换行结束，用 `（空格）或Tab` 键进行缩进,可以让代码结构更清晰。

一个简单的结构：

Sub MyMacro()
    ' 第一条语句
    Range("A1").Value = "你好，VBA！"
    ' 第二条语句
    Range("A1").Font.Bold = True
End Sub

Sub ... End Sub：定义一个宏（子过程）。
单引号，表示注释，解释代码功能,程序会忽略它。
点，表示“的”，Range("A1") 的 Font 属性。

3 代码剖析：理解录制宏生成的代码

回到我们录制的 FormatHeader 宏,看看它的代码：

Sub FormatHeader()
    ' 将A1单元格的字体设置为红色、加粗
    With Selection.Font
        .ColorIndex = 3 ' 3 代表红色
        .Bold = True
    End With
End Sub

Selection：代表当前选中的对象（单元格、区域等）。
With ... End With：一种简化代码的写法，当对一个对象的多个属性进行操作时,可以不用重复写对象名。
.ColorIndex = 3：设置颜色索引。3 是红色，5 是蓝色，2 是白色等。
注意：这个宏是基于 Selection 的，所以你选中哪个单元格，就对哪个单元格操作，我们手动编写的版本是直接操作 A1。

第四部分：核心 VBA 语法与常用对象

1 核心对象

VBA 通过操作 Excel 的“对象”来工作，记住这几个核心对象,你就能解决大部分问题。

对象	描述	示例
`Application`	代表整个 Excel 应用程序	`Application.ScreenUpdating = False` (关闭屏幕刷新)
`Workbook`	代表一个工作簿（.xlsx 文件）	`Workbooks("我的文件.xlsm")`
`Worksheet`	代表一个工作表（Sheet1, Sheet2）	`Worksheets("Sheet1")` 或 `Sheets(1)`
`Range` / `Cell`	代表一个单元格或一个区域	`Range("A1")`, `Range("A1:C10")`, `Cells(1, 1)`

对象层级关系：Application.Workbooks.Worksheets.Range

示例代码：

' 在 "Sheet2" 的 B3 单元格写入 "Hello"
Worksheets("Sheet2").Range("B3").Value = "Hello"
' 等价于使用 Cells (行号, 列号)
Worksheets("Sheet2").Cells(3, 2).Value = "Hello"

2 变量与常量

变量是存储数据的临时容器。

声明变量：

' 使用 Dim 关键字声明
Dim myName As String
Dim myAge As Integer
Dim isStudent As Boolean

赋值：

myName = "张三"
myAge = 25
isStudent = True

常量：用于存储固定不变的值,程序运行期间不能修改。

Const PI As Double = 3.14159
Const TAX_RATE As Single = 0.13

3 数据类型

为变量选择正确的数据类型，可以让代码运行更快,占用内存更少。

数据类型	存储大小	描述
`String`	字符串长度	用于文本，如 "Hello"
`Integer`	2 字节	小整数，范围 -32,768 到 32,767
`Long`	4 字节	大整数，范围更大
`Double`	8 字节	双精度浮点数，用于小数，如 3.14
`Boolean`	2 字节	逻辑值， True 或 False
`Variant`	16 字节	默认类型，可以存储任何类型的数据，但效率最低

4 条件判断：`If...Then...Else`

根据条件执行不同的代码。

Sub CheckScore()
    Dim score As Integer
    score = 85 ' 假设这是单元格A1的分数
    If score >= 90 Then
        MsgBox "优秀！"
    ElseIf score >= 60 Then
        MsgBox "及格！"
    Else
        MsgBox "不及格！"
    End If
End Sub

5 循环

重复执行一段代码。

For...Next 循环：当你知道要循环的次数时使用。

' 将 A1 到 A10 的单元格值设置为 1 到 10
Sub FillNumbers()
    Dim i As Integer
    For i = 1 To 10
        Cells(i, 1).Value = i ' Cells(行, 列)
    Next i
End Sub

Do...Loop 循环：当满足某个条件时继续循环。

' 从 A1 开始，向下填充，直到遇到空单元格
Sub FillUntilEmpty()
    Dim i As Integer
    i = 1
    Do While Cells(i, 1).Value <> "" ' 只要单元格不为空
        Cells(i, 1).Value = "已处理"
        i = i + 1
    Loop
End Sub

6 错误处理：`On Error GoTo`

当代码可能出错时（比如找不到工作表）,使用错误处理可以防止程序崩溃。

Sub SafeCopy()
    On Error GoTo ErrorHandler ' 如果发生错误，跳转到 ErrorHandler 标签处
    ' 这行代码如果 "SourceSheet" 不存在，就会出错
    Worksheets("SourceSheet").Range("A1").Copy Destination:=Worksheets("TargetSheet").Range("B1")
    Exit Sub ' 如果成功执行，就跳过下面的错误处理代码
ErrorHandler:
    MsgBox "发生错误！请检查工作表名称是否正确。"
End Sub

第五部分：实战案例：制作一个简单的数据汇总工具

1 需求分析

我们有一个文件夹，里面有多个 Excel 文件（每个文件代表一个部门的销售数据），每个文件都有一个名为 "Data" 的工作表，我们需要编写一个宏，将所有 "Data" 工作表的 A2:C100 区域数据，汇总到一个总表 "Summary" 中。

2 编写代码

在一个空白 Excel 文件中，按 Alt + F11 打开 VBA 编辑器。
在 工程资源管理器 中，右键点击你的工作簿 -> 插入 -> 模块。
将下面的代码粘贴到模块中。

Sub ConsolidateData()
    ' --- 1. 声明变量 ---
    Dim summaryWB As Workbook ' 当前的工作簿（汇总表）
    Dim sourceWB As Workbook ' 要打开的源文件
    Dim summaryWS As Worksheet ' 汇总工作表
    Dim sourceWS As Worksheet ' 源数据工作表
    Dim lastRow As Long ' 汇总表的最后一行
    Dim fileName As String ' 循环中使用的文件名
    Dim folderPath As String ' 文件夹路径
    Dim fso As Object ' 文件系统对象
    ' --- 2. 设置初始值 ---
    Set summaryWB = ThisWorkbook ' 当前宏所在的工作簿就是汇总表
    Set summaryWS = summaryWB.Worksheets("Summary") ' 假设有一个叫 "Summary" 的工作表
    ' 关闭屏幕刷新和自动计算，提高速度
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    ' --- 3. 获取文件夹路径 ---
    ' 使用一个简单的输入框让用户选择文件夹
    folderPath = BrowseForFolder("请选择包含销售数据的文件夹")
    If folderPath = "" Then
        MsgBox "未选择文件夹，操作已取消。", vbInformation
        Exit Sub
    End If
    ' --- 4. 开始循环处理文件夹中的文件 ---
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 获取文件夹中的所有 Excel 文件
    Dim folder As Object
    Set folder = fso.GetFolder(folderPath)
    Dim file As Object
    ' 清空汇总表（保留标题行）
    summaryWS.Cells.ClearContents
    sourceWS.Range("A1:C1").Copy summaryWS.Range("A1")
    For Each file In folder.Files
        ' 只处理 .xlsx 和 .xlsm 文件
        If Right(file.Name, 4) = "xlsx" Or Right(file.Name, 4) = "xlsm" Then
            fileName = file.Name
            ' 打开源文件
            Set sourceWB = Workbooks.Open(folderPath & "\" & fileName)
            ' 检查是否存在 "Data" 工作表
            On Error Resume Next ' 忽略错误，防止文件没有 "Data" 表时崩溃
            Set sourceWS = sourceWB.Worksheets("Data")
            On Error GoTo 0 ' 恢复错误处理
            If Not sourceWS Is Nothing Then ' 如果找到了 "Data" 工作表
                ' 找到汇总表的最后一行
                lastRow = summaryWS.Cells(summaryWS.Rows.Count, "A").End(xlUp).Row
                ' 如果是第一次，则复制标题行
                If lastRow = 1 And summaryWS.Range("A1").Value = "" Then
                    sourceWS.Range("A1:C1").Copy summaryWS.Range("A1")
                    lastRow = 1
                End If
                ' 复制数据（从第二行到最后一行有数据的行）
                sourceWS.Range("A2:C" & sourceWS.Cells(sourceWS.Rows.Count, "A").End(xlUp).Row).Copy _
                    summaryWS.Range("A" & lastRow + 1)
                ' 释放对象
                Set sourceWS = Nothing
                ' 关闭源文件，不保存更改
                sourceWB.Close SaveChanges:=False
            End If
        End If
    Next file
    ' --- 5. 恢复设置 ---
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox "数据汇总完成！", vbInformation
End Sub
' 这是一个辅助函数，用于让用户选择文件夹
Function BrowseForFolder(Optional Title As String = "选择文件夹") As String
    Dim shellApp As Object
    Set shellApp = CreateObject("Shell.Application")
    On Error Resume Next
    BrowseForFolder = shellApp.BrowseForFolder(0, Title, 0).Self.Path
    On Error GoTo 0
    Set shellApp = Nothing
End Function

3 代码详解

变量声明：清晰定义了每个变量的用途,使代码易于理解。
性能优化：Application.ScreenUpdating = False 和 Application.Calculation = xlCalculationManual 是处理大量数据时的标准操作,能极大提升速度。
错误处理：On Error Resume Next 确保即使某个文件没有 "Data" 工作表，程序也不会中断,而是继续处理下一个文件。
文件遍历：使用 Scripting.FileSystemObject 来遍历文件夹中的所有文件，这是 VBA 中处理文件的标准方法。
动态查找最后一行：Cells(Rows.Count, "A").End(xlUp).Row 是一个非常实用的技巧,用于找到某列中最后一个有数据的行。

4 创建按钮一键执行

在 Summary 工作表中，点击 开发工具 -> 插入 -> 选择 按钮（窗体控件）。
在工作表上拖动鼠标画出一个按钮。
弹出 指定宏 对话框，选择我们刚刚创建的 ConsolidateData，然后点击 确定。
你可以右键点击按钮，选择 编辑文字，将其改为“开始汇总”。
点击这个按钮,宏就会自动运行！

第六部分：进阶技巧与最佳实践

1 使用 `With` 语句简化代码

当你需要多次操作同一个对象时，With 语句可以避免重复输入对象名,使代码更简洁。

' 不使用 With
Range("A1").Font.Name = "Arial"
Range("A1").Font.Size = 12
Range("A1").Font.Bold = True
' 使用 With
With Range("A1").Font
    .Name = "Arial"
    .Size = 12
    .Bold = True
End With

2 自定义函数

除了宏（Sub），你还可以创建自定义函数，像 Excel 内置函数一样在单元格中使用。

' 在模块中编写
Function GetTax(price As Double, rate As Double) As Double
    GetTax = price * rate
End Function
' 在工作表的单元格中就可以这样使用：
' =GetTax(A1, 0.13)

3 代码注释

好的注释是代码的灵魂，解释“为什么这么做”，而不是“做了什么”。

' 计算最终价格，应用折扣和税费
' 注意：折扣优先于税费
Function FinalPrice(basePrice As Double, Optional discount As Double = 0, Optional taxRate As Double = 0.1) As Double
    Dim discountedPrice As Double
    discountedPrice = basePrice * (1 - discount)
    FinalPrice = discountedPrice * (1 + taxRate)
End Function

4 调试代码

断点：在代码行号左边点击，设置一个断点，运行宏时,程序会在断点处暂停。
逐语句执行：按 F8 键，让代码一行一行地执行,方便观察变量变化。
立即窗口：按 Ctrl + G 打开，可以在里面输入 ?变量名 来查看变量的当前值，?myAge。

第七部分：资源与学习路径

学习路径

从录制宏开始：理解 VBA 代码和 Excel 操作的对应关系。
学习基本语法：掌握变量、条件、循环。
精通核心对象：Range, Worksheet, Workbook 是你最重要的朋友。
多做小项目：从简单的格式化、数据整理开始,逐步挑战更复杂的任务。
学习错误处理和性能优化：让你的代码更健壮、更高效。

Excel宏代码编写教程怎么学？