简介：这是一套面向Excel VBA初学者与办公自动化进阶用户的经典实例合集，围绕宏的录制与运行、VBE环境配置、工程与代码管理等核心技能展开，帮助读者从零散操作过渡到系统掌握VBA编程思路。资源包共435个文件，以379个xls工作簿实例为主体，辅以xlsm、xla加载宏、frm与frx窗体文件、bas模块、doc与docx说明文档、ppt演示及htm、xml等辅助文件，压缩包约6.21MB，按章节与实例编号组织，便于逐例对照练习。目前已有1480人学习下载，内容覆盖从录制宏、编辑宏到模块导入导出、代码管理等完整流程，每个实例均可直接打开运行，读者既能理解VBA语法与对象模型，也能积累可复用的自动化脚本与排错经验，适合需要提升表格处理效率的职场人士和VBA自学者。
1. 368 个实例到底在练什么：从「会录宏」到「能交付」的分水岭
很多人第一次接触 Excel VBA，都是从「录制宏」开始的：点一下录制，改几个单元格格式，停止，然后看着那一串Selection.Font.Bold = True发懵。录宏能解决一次性问题，但一旦数据量上万行、工作表有十几个、每月都要重跑一遍，录出来的代码基本就废了。所谓「Excel VBA 368个典型实例」，本质上是把日常办公里反复出现的场景拆成一个个可复用的最小单元——单元格遍历、数组提速、字典去重、多表汇总、文件批量处理、窗体交互、错误捕获——每个实例对应一类真实需求，而不是语法演示。它适合两类人：一类是天天跟报表打交道、想把手动操作变成一键执行的业务岗；另一类是写过几段 VBA 但代码一长就乱、想建立工程化习惯的开发者。368 这个数字不是让你背下来，而是告诉你覆盖面足够广，广到你能从中找到自己那个场景的「原型」，改吧改吧就能用。这一章先把「实例」这个词拆开，说清它和普通教程的区别，后面几章再落到具体怎么写、怎么调、怎么避坑。
2. 从实例到可复用模块：拆解 368 个案例背后的四类骨架
2.1 为什么「抄实例」经常抄出四不像
拿到一个实例代码，直接粘进自己的工程，运行报错，然后开始怀疑人生——这是最常见的翻车现场。原因不在代码本身，而在于实例通常默认了一个隐含环境：活动工作表是哪个、数据从第几行开始、有没有合并单元格、目标区域是否已存在。你把它搬到另一个工作簿，这些前提全变了。所以读实例的第一步不是抄，而是识别它的「输入假设」和「输出契约」。比如一个「按条件筛选并复制到新表」的实例，输入假设可能是 A 列连续无空行、输出契约是新建工作表并保留标题行。识别出这两点，你才知道要改哪里。我一般会先把实例里的硬编码地址全部替换成变量，再跑一遍，确认逻辑通了，才往业务里套。这一步多花五分钟，能省掉后面半小时的调试。
2.2 四类骨架：遍历、聚合、交互、容错
368 个实例看着杂，归拢起来就四类骨架。第一类是遍历型，核心是For Each或For i = 1 To n，处理单元格、工作表、文件；第二类是聚合型，核心是字典（Scripting.Dictionary）或集合，做去重、分组、汇总；第三类是交互型，涉及InputBox、MsgBox、用户窗体，处理参数输入和结果反馈；第四类是容错型，用On Error和状态变量保证中途出错不崩。下面这段代码是一个典型的聚合型骨架，用字典对 A 列做去重并统计出现次数，这是 368 个实例里出现频率最高的一类模式：
Sub DictCount() Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") Dim arr As Variant Dim i As Long ' 将 A 列已用区域读入数组，避免逐单元格访问 arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value For i = 1 To UBound(arr, 1) Dim key As String key = CStr(arr(i, 1)) If Len(key) > 0 Then ' 字典的 Item 存出现次数，键不存在时自动初始化为 0 dict(key) = dict(key) + 1 End If Next i ' 输出到 C、D 两列 Dim k As Variant Dim r As Long r = 2 For Each k In dict.Keys Cells(r, 3).Value = k Cells(r, 4).Value = dict(k) r = r + 1 Next k End Sub逻辑上，先把区域一次性读进数组，这是 VBA 提速的关键习惯，逐单元格读在万行级别会慢到无法忍受。字典的dict(key) = dict(key) + 1利用了键不存在时默认值为空的特性，省掉一次判断。参数上，Range("A2:A" & ...)里的起始行 2 假设第一行是标题，如果你的表没有标题就改成 1；CStr转换是为了防止数字和文本混排时键类型不一致导致重复计数。输出列 C、D 是硬编码，实际用时改成变量或常量。这段骨架你理解了，368 个实例里至少三分之一你能自己推出来。
2.3 把实例改造成带参数的通用过程
实例代码通常是「写死」的，要复用就得参数化。做法是把变化的地址、列号、工作表名提成Sub的参数。比如上面的去重统计，可以改成接收源列和目标列：
Sub DictCountByCol(srcCol As Long, tgtCol As Long) Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") Dim lastRow As Long lastRow = Cells(Rows.Count, srcCol).End(xlUp).Row If lastRow < 2 Then Exit Sub Dim arr As Variant arr = Range(Cells(2, srcCol), Cells(lastRow, srcCol)).Value Dim i As Long For i = 1 To UBound(arr, 1) Dim key As String key = CStr(arr(i, 1)) If Len(key) > 0 Then dict(key) = dict(key) + 1 Next i Dim k As Variant, r As Long r = 2 For Each k In dict.Keys Cells(r, tgtCol).Value = k Cells(r, tgtCol + 1).Value = dict(k) r = r + 1 Next k End Sub参数说明：srcCol是源数据列号，tgtCol是输出起始列号，输出占两列所以目标列要留够空间。lastRow < 2的判断是防止空表导致UBound报错。这样改造后，同一个过程可以处理任意列，调用时写DictCountByCol 1, 3就行。368 个实例里大量代码都可以按这个思路参数化，参数化之后你才真正拥有它，而不是每次回去翻原代码。
2.4 用工作表事件把实例变成自动触发
很多实例是手动运行的，但真实场景往往需要「数据一变就自动处理」。这就用到工作表事件，比如Worksheet_Change。下面这个例子在 A 列输入内容时自动在 B 列打上时间戳，是交互型骨架的常见变体：
Private Sub Worksheet_Change(ByVal Target As Range) ' 只处理 A 列且非批量粘贴的情况 If Intersect(Target, Me.Columns("A")) Is Nothing Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False ' 在同行 B 列写入当前时间 Target.Offset(0, 1).Value = Now Application.EnableEvents = False Application.EnableEvents = True End Sub关键点在Application.EnableEvents = False，因为写 B 列会再次触发 Change 事件，不关掉就无限递归。Target.Cells.Count > 1是防止批量粘贴时逐格触发导致卡死。这段代码要放在对应工作表的代码模块里，不是标准模块。参数上，Me.Columns("A")限定监听范围，Offset(0, 1)是同行右移一列。事件型实例在 368 个里占比不高，但它是从「手动跑」到「自动跑」的关键一步，值得单独练熟。
3. 数组与字典：让 368 个实例里最慢的那批提速十倍
3.1 为什么逐单元格读写是性能黑洞
VBA 访问工作表上每个单元格，都要经过 COM 接口和 Excel 计算引擎，单次开销不大，但乘以几万行就是灾难。我做过对比，一万行数据逐格读进数组要好几秒，而一次性读入区域到 Variant 数组只要几十毫秒。368 个实例里凡是涉及循环的，几乎都能用「先读数组、内存里算、再写回」这个模式提速。下面是一个把两列数据做匹配的典型例子，先看慢写法：
' 慢写法：逐格查找 Sub SlowMatch() Dim i As Long For i = 2 To 10000 Dim found As Variant found = Application.Match(Cells(i, 1).Value, Columns("D"), 0) If Not IsError(found) Then Cells(i, 2).Value = Cells(found, 5).Value End If Next i End Sub这段代码每行都调用一次Application.Match，每次都要扫 D 列，一万行就是一万次扫描，实际跑起来可能几十秒。改成字典预加载后：
' 快写法：字典预加载 + 数组回写 Sub FastMatch() Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") Dim dArr As Variant dArr = Range("D2:E" & Cells(Rows.Count, 4).End(xlUp).Row).Value Dim i As Long For i = 1 To UBound(dArr, 1) ' 以 D 列为键，E 列为值建立映射 If Not dict.Exists(CStr(dArr(i, 1))) Then dict(CStr(dArr(i, 1))) = dArr(i, 2) End If Next i Dim aArr As Variant aArr = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Value For i = 1 To UBound(aArr, 1) Dim key As String key = CStr(aArr(i, 1)) If dict.Exists(key) Then aArr(i, 2) = dict(key) End If Next i ' 一次性写回 Range("A2:B" & (UBound(aArr, 1) + 1)).Value = aArr End Sub逻辑说明：先把查找表 D、E 列读进数组，用字典建立 D 到 E 的映射，这一步只扫一遍。再把待匹配的 A、B 列读进数组，在内存里逐行查字典，最后一次性写回。参数上，dict.Exists判断键是否存在，避免空值覆盖；CStr统一键类型。注意写回时区域行数是UBound(aArr, 1) + 1，因为数组从 1 开始而数据从第 2 行开始。这个模式在 368 个实例里反复出现，练熟它，你的代码速度会有质变。
3.2 字典的 Exists 与 Item 取值：两个容易写错的细节
字典用得多，但两个细节经常被忽略。第一，dict(key)在键不存在时会返回空并「顺手」创建这个键，如果你只是想查询，必须用dict.Exists(key)先判断，否则字典会被悄悄撑大，后续遍历多出一堆空键。第二，字典的键区分大小写取决于创建方式，CreateObject("Scripting.Dictionary")默认区分大小写，如果业务上「Apple」和「apple」算同一个，要设置dict.CompareMode = 1（TextCompare）。下面这段演示了正确用法：
Sub DictDetail() Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") ' 设置为不区分大小写 dict.CompareMode = 1 dict("Apple") = 10 ' 查询前先判断，避免误创建 If dict.Exists("apple") Then Debug.Print dict("apple") ' 输出 10 End If ' 遍历时只输出真实存在的键 Dim k As Variant For Each k In dict.Keys Debug.Print k, dict(k) Next k End Sub参数说明：CompareMode = 1对应vbTextCompare，设为 0 是二进制比较即区分大小写。Debug.Print输出到立即窗口，调试时比MsgBox高效得多。这两个细节在 368 个实例里不一定每个都强调，但你自己写的时候不注意，就会遇到「明明有数据却查不到」或者「字典里多出空键」的玄学问题。
3.3 数组维度与 LBound：别默认从 1 开始
从工作表读入的数组，LBound是 1，但如果你用Split或Array生成的数组，LBound是 0。混用的时候不检查边界，就会下标越界。稳妥做法是始终用LBound(arr, 1)和UBound(arr, 1)取边界，而不是写死 1 和UBound。下面是一个把逗号分隔字符串拆成数组再处理的例子：
Sub SplitDemo() Dim s As String s = "北京,上海,广州,深圳" Dim parts As Variant parts = Split(s, ",") Dim i As Long ' 用 LBound 和 UBound 兼容不同来源的数组 For i = LBound(parts) To UBound(parts) Debug.Print parts(i) Next i End Sub逻辑上，Split返回的数组下界是 0，如果循环写For i = 1 To UBound(parts)就会漏掉第一个元素。参数上，Split第二个参数是分隔符，省略时默认空格。这个坑在字符串处理类实例里很常见，养成用LBound的习惯能省不少事。
4. 避坑与排查：368 个实例里最容易翻车的五个地方
4.1 现象：代码昨天能跑今天报错「下标越界」
原因通常是数据行数变了，比如昨天 A 列有 100 行，今天只有 50 行，而代码里写死了For i = 1 To 100，读到第 51 行时数组没这个下标。解决方法是永远用Cells(Rows.Count, 1).End(xlUp).Row动态取最后一行，并在循环前判断If lastRow < 2 Then Exit Sub。这个坑我踩过不止一次，血泪经验就是：任何写死的行号列号，都是定时炸弹。
4.2 现象：运行到一半 Excel 卡死，任务管理器才能关
原因多半是事件递归或屏幕刷新没关。比如在Worksheet_Change里修改单元格却没关EnableEvents，或者大循环里没设ScreenUpdating = False。解决方法是过程开头Application.ScreenUpdating = False，结尾恢复True，事件里改单元格前先EnableEvents = False，改完立刻恢复。注意恢复语句要放在错误处理之外，否则出错时屏幕一直黑着，用户以为崩了。
4.3 现象：字典统计结果比实际多出空行
原因是dict(key)在键不存在时自动创建了空键，而你的数据里有空单元格，CStr转换后变成空字符串键。解决方法是在写入字典前加If Len(key) > 0 Then，或者在读取区域时就用SpecialCells(xlCellTypeConstants)跳过空值。这个坑隐蔽性强，因为结果看起来「差不多对」，只是多几行空，不仔细核对根本发现不了。
4.4 现象：多表汇总时数据串行或漏表
原因是遍历工作表时用了Worksheets(i)而没排除汇总表本身，或者工作表顺序变了导致索引错位。解决方法是遍历时判断If ws.Name <> "汇总" Then，并且优先用For Each ws In Worksheets而不是索引循环。如果工作表名有规律，用Like匹配；没规律就维护一个配置表，把要处理的工作表名列出来。索引循环在有人插入或删除工作表后必翻车，这是铁律。
4.5 现象：文件批量处理时提示「文件已被占用」
原因是前一个文件打开后没关闭，或者关闭时没释放对象。解决方法是每个文件处理完立即wb.Close SaveChanges:=False，并把Workbook对象设为Nothing。如果文件来自共享目录，还要加On Error Resume Next处理个别文件被他人打开的情况，跳过并记录，不要整个批处理中断。批量处理类实例在 368 个里占不少，这个坑几乎人人都会遇到一次。
5. 从 368 到 1：把实例库变成自己的代码资产
5.1 建立自己的「最小可用片段库」
368 个实例不可能全记住，也没必要。我的做法是维护一个Snippets.bas文件，只放经过自己改造、参数化、验证过的过程，每个过程配一行注释说明用途和参数。比如DictCountByCol、FastMatch、BatchOpenClose这几个，用的时候直接导入，改参数调用。这个库不需要大，二三十个片段就能覆盖八成日常需求。关键是每个片段都要自己跑通、改过、踩过坑，否则跟抄来的没区别。
5.2 用类模块封装重复逻辑
当片段多起来，散落的Sub会变得难管理。进阶做法是把相关操作封装成类模块。比如一个CSheetHelper类，封装取最后一行、取最后列、安全写入等方法。下面是一个最小示例：
' 类模块 CSheetHelper Private mSheet As Worksheet Public Property Set Sheet(ws As Worksheet) Set mSheet = ws End Property Public Function LastRow(ByVal col As Long) As Long LastRow = mSheet.Cells(mSheet.Rows.Count, col).End(xlUp).Row End Function Public Sub SafeWrite(row As Long, col As Long, val As Variant) ' 写入前检查行列有效性 If row > 0 And col > 0 Then mSheet.Cells(row, col).Value = val End If End Sub使用时代码变成Dim h As New CSheetHelper: Set h.Sheet = ActiveSheet，然后h.LastRow(1)。参数说明：Property Set用于注入工作表对象，LastRow接收列号返回最后一行。类模块的好处是状态和逻辑绑在一起，不会到处传工作表变量。368 个实例里未必每个都用到类，但当你开始维护超过几百行代码时，这是必经之路。
5.3 用错误处理日志定位问题
最后一个技巧是给关键过程加错误日志。不要只用On Error Resume Next把错误吞掉，而是记录到文本文件或隐藏工作表。下面是一个简单的日志过程：
Sub LogError(procName As String, errNum As Long, errDesc As String) Dim fso As Object, ts As Object Set fso = CreateObject("Scripting.FileSystemObject") ' 日志文件放在工作簿同目录 Dim logPath As String logPath = ThisWorkbook.Path & "\vba_log.txt" Set ts = fso.OpenTextFile(logPath, 8, True) ' 8 表示追加模式 ts.WriteLine Now & " | " & procName & " | " & errNum & " | " & errDesc ts.Close End Sub在过程里这样用：
Sub SomeProcess() On Error GoTo ErrHandler ' 业务代码 Exit Sub ErrHandler: LogError "SomeProcess", Err.Number, Err.Description MsgBox "处理出错，详情见日志" End Sub参数说明：OpenTextFile第二个参数 8 是ForAppending，第三个True表示文件不存在时创建。日志路径用ThisWorkbook.Path，注意如果工作簿未保存过，Path为空，要加判断。这个习惯让我在排查「偶尔出错」类问题时省了大量时间，因为错误现场被记下来了，不用靠回忆。368 个实例教的是「怎么写」，而日志和类模块教的是「怎么维护」，后者才是从能跑到能交付的分水岭。希望帮到你。
本文还有配套的精品资源，点击获取
