在日常办公中你是否也遇到过这样的场景面对成百上千行的数据报表需要手动筛选、汇总、格式调整耗费数小时却依然容易出错或者每个月都要重复制作结构相同的分析图表过程枯燥且效率低下。如果你渴望从这些重复性劳动中解放出来那么掌握 Excel VBA 与函数无疑是实现办公自动化的最佳路径。郑广学老师的《Excel VBA 175讲》与《函数 408》课程正是为希望系统提升 Excel 自动化能力的职场人士量身打造的学习体系。本文将结合课程核心脉络与实战经验为你梳理从 VBA 基础入门到函数高级应用的全栈学习路线。无论你是希望快速处理数据的文职人员还是需要构建复杂报表模板的数据分析师都能从中找到一套可复制、可落地的自动化解决方案。我们将从环境搭建讲起逐步深入到宏录制、VBA 编程、核心函数组合应用并通过完整的实战案例让你真正掌握“一键完成”复杂任务的技能。1. 办公自动化与 Excel 核心工具概述在深入技术细节之前我们首先要明确“办公自动化”在 Excel 语境下的真正含义。它并非指引入一套全新的复杂系统而是指利用 Excel 内置的强大工具——VBA 和函数将重复、繁琐、有固定逻辑的手工操作转化为由计算机自动执行的流程。1.1 为什么选择 VBA 与函数Excel 本身已经提供了丰富的界面操作和基础函数但对于批量处理、条件判断循环、用户交互等复杂场景则显得力不从心。这时就需要 VBA 和高级函数出场。Excel 函数像是预先封装好的“计算器”或“处理器”。例如SUMIFS可以多条件求和INDEX-MATCH可以灵活查找。它们处理的是数据层面的计算与转换速度快但逻辑相对固定无法完成“打开文件”、“循环遍历所有工作表”、“弹出对话框询问用户”等操作。VBA是 Excel 的“编程语言”和“遥控器”。你可以通过编写 VBA 代码指挥 Excel 做任何事情自动操作单元格、工作表、工作簿与其它 Office 软件交互甚至调用 Windows API 或连接数据库。它解决了流程自动化的问题。二者关系是相辅相成的在 VBA 代码中可以调用 Excel 函数进行高效计算而复杂的函数公式有时也需要 VBA 来动态生成或批量写入。郑广学老师的课程体系正是涵盖了这两大支柱408个函数帮你夯实数据处理的内功175讲 VBA 教你如何运功发力实现自动化。1.2 核心应用场景数据清洗与整理自动合并多个表格、统一格式、删除重复项、分列、填充空值。报表自动生成每月/每周定时从数据库或原始数据表生成固定格式的报表并自动发送。复杂计算与建模实现财务模型、销售预测、工程计算等通过 VBA 让模型参数可调结果自动刷新。自定义函数与工具创建 Excel 本身没有的特殊函数打造个性化的数据分析工具集。交互式仪表盘结合窗体控件制作带有按钮、下拉菜单的动态数据看板。2. 环境准备与编辑器入门工欲善其事必先利其器。开始学习前确保你的 Excel 已启用相关功能并熟悉开发环境。2.1 启用“开发工具”选项卡默认情况下Excel 的“开发工具”选项卡是隐藏的它是我们进入 VBA 世界的大门。打开 Excel点击文件选项。在弹出的“Excel 选项”对话框中选择自定义功能区。在右侧的“主选项卡”列表中勾选开发工具。点击确定。此时Excel 的功能区将出现“开发工具”选项卡。2.2 认识 VBA 编辑器在“开发工具”选项卡中点击Visual Basic按钮或直接按快捷键Alt F11即可打开 VBA 集成开发环境。工程资源管理器通常位于左上角以树形结构显示当前打开的所有 Excel 工作簿及其包含的工作表、模块、类模块等。这是你管理代码文件的地方。属性窗口位于工程资源管理器下方显示当前选中对象如工作表、模块的属性。代码窗口最大的区域用于编写和显示 VBA 代码。每个模块、工作表、工作簿都有独立的代码窗口。立即窗口位于底部用于调试时执行单行代码或打印变量值。快捷键Ctrl G可快速调出。2.3 关于 WPS 与 Excel 的兼容性很多用户关心 WPS 是否支持 VBA。早期 WPS 对 VBA 支持不完善但新版本如 WPS 2019 专业版及以上、WPS 365 企业版已通过安装VBA 插件提供了支持。不过在复杂对象模型和某些高级功能上可能与 Microsoft Excel 存在细微差异。对于严肃的 VBA 学习和开发建议使用Microsoft Excel 2016 及以上版本环境更稳定资料更丰富。本文示例均基于 Microsoft Excel。3. VBA 编程基础核心语法拆解VBA 的语法相对直观如果你有其他编程语言基础会更容易上手。我们从最核心的要素开始。3.1 变量、常量与数据类型变量用于存储程序运行期间可以改变的数据。 声明变量Dim 变量名 As 数据类型 Dim studentName As String 字符串类型 Dim studentAge As Integer 整型 Dim totalScore As Double 双精度浮点型 Dim isPassed As Boolean 布尔型 Dim reportDate As Date 日期型 赋值 studentName 张三 studentAge 20 totalScore 89.5 isPassed totalScore 60 reportDate #2025/4/10# 常量程序运行期间不变的值 Const PI As Double 3.14159 Const COMPANY_NAME As String 我的公司最佳实践始终使用Option Explicit语句写在模块最顶部强制显式声明所有变量这可以避免因拼写错误导致的难以调试的 bug。3.2 过程与函数VBA 中可执行代码的单元分为子过程和函数。子过程执行一系列操作不返回值。以Sub开头End Sub结尾。函数执行操作并返回一个值。以Function开头End Function结尾。可以在工作表公式中像内置函数一样调用。 子过程示例在A1单元格写入问候语 Sub SayHello() Dim name As String name InputBox(请输入你的名字) 弹出输入框 ThisWorkbook.Worksheets(Sheet1).Range(A1).Value 你好 name End Sub 函数示例计算矩形面积可在工作表单元格中输入 RectangleArea(5, 3) Function RectangleArea(length As Double, width As Double) As Double RectangleArea length * width End Function3.3 对象、属性与方法这是 VBA 面向对象编程的核心。Excel 中的一切如工作簿、工作表、单元格、图表都是对象。对象如Workbook,Worksheet,Range。属性对象的特征如Range(A1).Value单元格的值、Worksheet.Name工作表名。属性可以被读取或设置。方法对象可以执行的动作如Worksheet.Delete删除工作表、Range.Copy复制单元格。Sub ObjectDemo() Dim ws As Worksheet Dim rng As Range 设置对象变量 Set ws ThisWorkbook.Worksheets(数据) 引用名为“数据”的工作表 Set rng ws.Range(A1:C10) 引用该工作表的A1到C10区域 操作属性 rng.Value Test 设置整个区域的值 ws.Name ProcessedData 重命名工作表 调用方法 rng.Copy Destination:ws.Range(E1) 将区域复制到E1起始的位置 ws.Delete 谨慎删除工作表 End Sub关键点使用Set关键字将对象引用赋值给对象变量。3.4 流程控制条件与循环让程序具备逻辑判断和重复执行的能力。 If...Then...Else 条件判断 Sub CheckScore() Dim score As Integer score Range(B2).Value If score 90 Then Range(C2).Value 优秀 ElseIf score 60 Then Range(C2).Value 及格 Else Range(C2).Value 不及格 End If End Sub For Each...Next 循环遍历集合中的每个对象推荐用于遍历工作表、区域等 Sub LoopThroughSheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets Debug.Print ws.Name 在立即窗口打印每个工作表名 Next ws End Sub For...Next 循环指定次数循环 Sub FillSerialNumbers() Dim i As Integer For i 1 To 100 Cells(i, 1).Value i 在A列填充1到100 Next i End Sub Do While...Loop 循环当条件为真时循环 Sub FindEmptyCell() Dim rowNum As Integer rowNum 1 Do While Cells(rowNum, 1).Value 当A列单元格不为空时 rowNum rowNum 1 Loop Cells(rowNum, 1).Value 这里是第一个空单元格 End Sub4. 实战案例构建一个员工考勤数据自动处理器让我们通过一个综合案例将上述知识点串联起来。假设你每月会收到一个名为“原始考勤.xlsx”的文件里面有一张“RawData”表记录着杂乱的员工打卡记录。你需要将其处理成规范的“月度考勤汇总”表。需求打开“原始考勤.xlsx”。清理“RawData”表删除空行、统一日期格式。将处理后的数据复制到当前工作簿的新工作表“Processed”。在“Processed”表中使用公式/VBA计算每个员工的出勤天数、迟到次数。将结果生成一个简洁的汇总表并自动高亮显示迟到超过3次的员工。保存并关闭原始文件。4.1 项目结构与设计思路我们在当前工作簿的标准模块中编写主程序。程序将按步骤调用不同的子过程。4.2 编写核心 VBA 代码在 VBA 编辑器中插入一个模块右键工程资源管理器中的当前工作簿 - 插入 - 模块将以下代码写入。Option Explicit 强制变量声明 主程序协调整个处理流程 Sub ProcessAttendanceData() On Error GoTo ErrorHandler 错误处理 Dim srcWorkbook As Workbook Dim srcSheet As Worksheet, dstSheet As Worksheet Dim lastRow As Long, lastCol As Long Application.ScreenUpdating False 关闭屏幕刷新提升速度 Application.DisplayAlerts False 关闭警告提示 1. 打开源数据工作簿 Dim filePath As String filePath ThisWorkbook.Path \原始考勤.xlsx 假设文件在同一目录 Set srcWorkbook Workbooks.Open(Filename:filePath) Set srcSheet srcWorkbook.Worksheets(RawData) 2. 清理源数据 Call CleanRawData(srcSheet) 3. 在当前工作簿创建目标表 On Error Resume Next 如果表已存在则删除 Application.DisplayAlerts False ThisWorkbook.Worksheets(Processed).Delete On Error GoTo 0 Application.DisplayAlerts True Set dstSheet ThisWorkbook.Worksheets.Add dstSheet.Name Processed 4. 复制数据 With srcSheet.UsedRange .Copy Destination:dstSheet.Range(A1) End With 5. 在目标表中进行计算 Call CalculateAttendance(dstSheet) 6. 生成汇总表并高亮 Call GenerateSummaryAndHighlight(dstSheet) 7. 整理与保存 srcWorkbook.Close SaveChanges:False 不保存原始文件的修改 dstSheet.Activate MsgBox 考勤数据处理完成汇总表已生成在 [Processed] 工作表。, vbInformation CleanUp: Application.ScreenUpdating True Application.DisplayAlerts True Exit Sub ErrorHandler: MsgBox 程序运行出错错误号 Err.Number vbCrLf 错误描述 Err.Description, vbCritical Resume CleanUp End Sub 子过程1清理原始数据 Sub CleanRawData(ByVal ws As Worksheet) With ws .UsedRange.RemoveDuplicates Columns:Array(1, 2), Header:xlYes 基于员工ID和日期去重 假设日期在C列统一为yyyy/mm/dd格式 With .Columns(C:C) .NumberFormat yyyy/mm/dd .Value .Value 强制应用格式 End With 删除完全空白的行 On Error Resume Next .UsedRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete On Error GoTo 0 End With End Sub 子过程2计算考勤指标 Sub CalculateAttendance(ByVal ws As Worksheet) Dim lastRow As Long lastRow ws.Cells(ws.Rows.Count, A).End(xlUp).Row 找到A列最后一行 添加表头 ws.Cells(1, 5).Value 出勤天数 ws.Cells(1, 6).Value 迟到次数 假设A列员工IDB列姓名C列日期D列打卡时间判断迟到 Dim i As Long For i 2 To lastRow 从第2行开始跳过表头 使用工作表函数COUNTIFS计算每个员工的出勤天数 ws.Cells(i, 5).Formula COUNTIFS($A$2:$A$ lastRow , A i , $C$2:$C$ lastRow , ) 假设9:00后打卡算迟到计算迟到次数 ws.Cells(i, 6).Formula COUNTIFS($A$2:$A$ lastRow , A i , $D$2:$D$ lastRow , 9:00) Next i 将公式转换为值避免后续操作影响 With ws.Range(ws.Cells(2, 5), ws.Cells(lastRow, 6)) .Value .Value End With End Sub 子过程3生成汇总与高亮 Sub GenerateSummaryAndHighlight(ByVal ws As Worksheet) Dim lastRow As Long lastRow ws.Cells(ws.Rows.Count, A).End(xlUp).Row 创建汇总区域例如从H1开始 ws.Range(H1).Value 员工考勤汇总 ws.Range(H2).Value 姓名 ws.Range(I2).Value 出勤天数 ws.Range(J2).Value 迟到次数 使用高级筛选获取不重复的员工列表并复制到汇总区 ws.Range(A1:B lastRow).AdvancedFilter Action:xlFilterCopy, _ CopyToRange:ws.Range(H3), Unique:True 为汇总表填充计算出的数据使用VLOOKUP Dim sumLastRow As Long sumLastRow ws.Cells(ws.Rows.Count, H).End(xlUp).Row Dim rng As Range For Each rng In ws.Range(I4:I sumLastRow) rng.Formula IFERROR(VLOOKUP($H rng.Row , $A$2:$F$ lastRow , 5, FALSE), 0) Next rng For Each rng In ws.Range(J4:J sumLastRow) rng.Formula IFERROR(VLOOKUP($H rng.Row , $A$2:$F$ lastRow , 6, FALSE), 0) Next rng 高亮迟到超过3次的员工 With ws.Range(J4:J sumLastRow) .FormatConditions.Delete 清除旧条件 .FormatConditions.Add Type:xlCellValue, Operator:xlGreater, Formula1:3 .FormatConditions(1).Interior.Color RGB(255, 200, 200) 浅红色背景 End With 自动调整列宽 ws.Columns(H:J).AutoFit End Sub4.3 如何运行与测试将上述代码粘贴到新建的模块中。确保在当前工作簿的同目录下有一个名为“原始考勤.xlsx”的文件且内含“RawData”工作表并至少有A(ID)、B(姓名)、C(日期)、D(时间)四列数据。在 VBA 编辑器中将光标放在ProcessAttendanceData过程内部。按下F5键或点击工具栏上的“运行”按钮。程序将自动执行并在完成后弹出提示框。在当前工作簿中你会看到新增的“Processed”工作表里面包含了清理后的数据、计算结果、汇总表以及高亮标记。这个案例涵盖了打开外部文件、数据清洗、循环、公式写入、条件格式等核心操作是一个典型的 VBA 自动化处理流程。5. 核心 Excel 函数在自动化中的高级应用VBA 负责流程函数则负责高效计算。掌握一些核心函数组合能让你在 VBA 中如虎添翼或直接通过公式完成复杂任务。5.1 多条件统计与查找SUMIFS, COUNTIFS, INDEX-MATCH这是数据处理中最常用的函数族。 在VBA中使用工作表函数 Sub UseWorksheetFunctions() Dim ws As Worksheet Set ws ThisWorkbook.Worksheets(Sheet1) Dim lastRow As Long lastRow ws.Cells(ws.Rows.Count, A).End(xlUp).Row 示例计算销售部B列且销售额大于10000C列的总额 Dim totalSales As Double totalSales Application.WorksheetFunction.SumIfs( _ ws.Range(C2:C lastRow), _ 求和区域 ws.Range(B2:B lastRow), 销售部, _ 条件区域1 条件1 ws.Range(C2:C lastRow), 10000) 条件区域2 条件2 ws.Range(E1).Value 销售部高额销售总额 ws.Range(F1).Value totalSales 示例使用INDEX-MATCH进行双向查找比VLOOKUP更灵活 Dim targetName As String targetName 李四 Dim targetMonth As String targetMonth 四月 Dim salesAmount As Variant 假设姓名在A列月份在第一行1:1数据区域是B2:M100 Dim rowNum As Long, colNum As Long On Error Resume Next rowNum Application.WorksheetFunction.Match(targetName, ws.Range(A2:A100), 0) colNum Application.WorksheetFunction.Match(targetMonth, ws.Range(B1:M1), 0) On Error GoTo 0 If rowNum 0 And colNum 0 Then salesAmount ws.Cells(rowNum 1, colNum 1).Value 1 因为Match返回的是相对位置 ws.Range(E2).Value targetName 在 targetMonth 的销售额 ws.Range(F2).Value salesAmount Else ws.Range(F2).Value 未找到 End If End Sub5.2 文本与日期处理函数自动化中经常需要处理不规范的文本和日期。Sub TextAndDateDemo() Dim originalText As String originalText Excel-VBA_2025-04-10_Report.txt 使用VBA内置函数 Debug.Print Trim去除空格: [ Trim(originalText) ] Debug.Print UCase转大写: UCase(originalText) Debug.Print Left取左边字符: Left(originalText, 5) 使用工作表函数处理更复杂的文本 Debug.Print 提取日期字符串: Application.WorksheetFunction.Mid(originalText, 12, 10) 日期处理 Dim dateStr As String dateStr 20250410 Dim properDate As Date 将文本转换为日期 properDate DateSerial(Left(dateStr, 4), Mid(dateStr, 5, 2), Right(dateStr, 2)) Debug.Print 转换后的日期: Format(properDate, yyyy年mm月dd日) 计算工作日排除周末 Dim startDate As Date, endDate As Date startDate #4/1/2025# endDate #4/30/2025# Dim workDays As Long workDays Application.WorksheetFunction.NetworkDays(startDate, endDate) Debug.Print 2025年4月的工作日天数: workDays End Sub5.3 数组公式与动态数组函数Office 365 和新版 Excel 引入的动态数组函数如FILTER,SORT,UNIQUE,SEQUENCE极大地简化了复杂数据处理它们也可以在 VBA 中调用。Sub DynamicArrayDemo() Dim ws As Worksheet Set ws ThisWorkbook.Worksheets(Sheet1) 假设A2:A100是部门B2:B100是销售额 使用UNIQUE获取不重复的部门列表并输出到E列 ws.Range(E2).Formula2 UNIQUE(A2:A100) Formula2用于动态数组公式 使用FILTER筛选出销售部且销售额5000的记录输出到G列 ws.Range(G2).Formula2 FILTER(A2:B100, (A2:A100销售部)*(B2:B1005000), 无符合记录) 使用SORT对筛选结果按销售额降序排列 ws.Range(I2).Formula2 SORT(FILTER(A2:B100, (A2:A100销售部)*(B2:B1005000)), 2, -1) 注意在VBA中写入这些公式后它们的结果会自动“溢出”到相邻单元格。 End Sub6. 常见问题与调试技巧学习 VBA 过程中遇到错误和问题是常态。掌握调试方法至关重要。6.1 常见错误类型与解决思路问题现象常见原因解决思路编译错误变量未定义未使用Option Explicit或变量名拼写错误。在模块顶部添加Option Explicit然后使用Debug - Compile VBAProject检查所有未定义变量。运行时错误‘1004’应用程序定义或对象定义错误对象引用无效如工作表名错误、尝试操作受保护区域、或Range引用不正确。1. 检查对象名如工作表名拼写。2. 使用Set ws Nothing释放对象后重新设置。3. 确保引用的单元格区域存在。4. 在代码前加On Error Resume Next观察哪一行出错。运行时错误‘9’下标越界访问数组或集合中不存在的索引。例如Worksheets(5)但只有3个工作表。在访问前检查上限。使用If i Worksheets.Count Then。对于数组使用LBound和UBound函数。运行时错误‘424’要求对象使用了未使用Set关键字设置的对象变量或对象变量为Nothing。检查所有对象变量如Worksheet,Range是否都用Set赋值。在执行操作前检查对象是否有效If Not rng Is Nothing Then。代码运行慢频繁操作单元格、未关闭屏幕更新、循环内进行不必要的查询。1. 在代码开头加Application.ScreenUpdating False结尾恢复。2. 将数据读入Variant数组处理而非逐个操作单元格。3. 减少在循环中使用Select和Activate。无法找到工程或库引用丢失或损坏常见于使用了外部库如字典Scripting.Dictionary。在 VBA 编辑器中点击工具 - 引用勾选Microsoft Scripting Runtime等需要的库。如果出现“丢失”取消勾选再重新勾选或浏览定位。函数在VBA中不工作某些工作表函数在 VBA 中的用法与单元格中略有不同或需要特定上下文。使用Application.WorksheetFunction.前缀调用。对于返回数组的函数可能需要将结果赋值给Variant变量。查阅 VBA 帮助文档。6.2 VBA 调试三板斧设置断点与逐语句执行在代码行左侧灰色区域点击出现红点即为断点。按F8可逐语句执行观察程序流程和变量变化。使用立即窗口快捷键Ctrl G。在程序中断时可以直接输入?变量名查看变量当前值或执行单行代码。使用本地窗口在调试时本地窗口会自动显示当前过程中所有变量的值和类型一目了然。6.3 错误处理机制良好的错误处理能让你的程序更健壮避免意外崩溃。Sub RobustProcedure() On Error GoTo ErrHandler 当错误发生时跳转到ErrHandler标签 你的主要代码 Dim x As Integer x 10 / 0 这里会引发“除数为零”错误 ... 其他代码 ... Exit Sub 正常退出避免执行错误处理代码 ErrHandler: 错误处理代码块 Dim errMsg As String errMsg 错误号 Err.Number vbCrLf _ 错误描述 Err.Description vbCrLf _ 发生在过程 Err.Source MsgBox errMsg, vbCritical, 程序出错 可以选择恢复执行或清理资源后退出 Resume Next 从出错语句的下一句继续执行 Resume 重新尝试执行出错的语句 End Sub7. 最佳实践与工程化建议当你的 VBA 项目越来越大或者需要交给他人维护时遵循一些最佳实践能极大提升代码质量和可维护性。7.1 代码组织与模块化一个模块一个职责将相关的子过程和函数放在同一个模块中。例如DataProcessingModule放所有数据处理过程ReportModule放所有报表生成过程。使用有意义的命名变量名用camelCase过程名用PascalCase常量全大写。避免使用a,b,x等无意义名称。好的命名CalculateMonthlyRevenue,inputFilePath,MAX_RETRY_TIMES差的命名calc,fp,x1添加注释在模块顶部说明其功能在复杂逻辑处添加行内注释。但避免对显而易见的代码进行注释。7.2 变量与内存管理始终使用Option Explicit如前所述这是避免低级错误的第一道防线。及时释放对象变量对于不再使用的大型对象如Workbook,Worksheet将其设为Nothing。Dim wb As Workbook Set wb Workbooks.Open(...) ... 使用 wb ... wb.Close SaveChanges:False Set wb Nothing 释放引用减少与单元格的交互这是提升 VBA 性能最关键的一点。将需要处理的数据一次性读入数组在内存中处理完毕后再一次性写回。Sub FastProcessing() Dim dataRange As Variant 将整个区域读入一个二维数组 dataRange ThisWorkbook.Worksheets(Data).Range(A1:D10000).Value Dim i As Long, j As Long For i LBound(dataRange, 1) To UBound(dataRange, 1) For j LBound(dataRange, 2) To UBound(dataRange, 2) 在数组中进行计算 dataRange(i, j) dataRange(i, j) * 1.1 Next j Next i 一次性写回 ThisWorkbook.Worksheets(Data).Range(A1:D10000).Value dataRange End Sub7.3 用户交互与体验提供进度提示对于长时间运行的操作使用Application.StatusBar或创建简单的用户窗体显示进度。Sub LongOperation() Dim i As Long, total As Long total 10000 For i 1 To total ... 处理 ... Application.StatusBar 正在处理... i / total Next i Application.StatusBar False 恢复状态栏 End Sub让用户选择文件使用Application.GetOpenFilename方法而不是在代码中写死路径。Dim selectedFile As Variant selectedFile Application.GetOpenFilename( _ FileFilter:Excel Files (*.xlsx; *.xls), *.xlsx; *.xls, _ Title:请选择数据文件) If selectedFile False Then 用户选择了文件 Set wb Workbooks.Open(selectedFile) Else 用户取消了 MsgBox 未选择文件。 Exit Sub End If错误处理要友好不要只显示原始的运行时错误号。捕获错误并转换为用户能理解的语言。7.4 安全与部署保护你的代码如果需要分发可以在 VBA 工程属性中设置密码保护。但请注意VBA 项目的密码安全性不高容易被破解切勿用于保护真正敏感的逻辑。将宏保存为加载宏如果你开发了一套通用工具可以将其保存为.xlam格式的加载宏。这样它就可以在所有 Excel 工作簿中使用就像内置功能一样。数字签名对于企业环境可以考虑使用数字证书对 VBA 项目进行数字签名以解决宏安全警告问题。彻底测试在不同版本 Excel、不同数据量、不同使用场景下测试你的代码。特别是边界条件如空数据、极大值、错误格式。从录制宏开始了解对象模型到逐步编写自己的过程再到构建完整的自动化工具Excel VBA 与函数的学习是一个不断实践和积累的过程。郑广学老师的课程体系提供了系统化的路径而真正的掌握来自于将所学应用于解决实际工作中的一个个具体问题。建议你从身边最耗时、最重复的 Excel 任务开始尝试用 VBA 将它自动化每成功一次你的信心和能力都会提升一个台阶。记住编程的本质是让机器为你工作而你现在已经拿到了指挥它的钥匙。