做月度多门店数据汇总的时候最烦的不是数据本身而是每天都要打开十几个 Excel 文件从每个文件里找同一张 Sheet把其中几列数据复制到总表。如果只做一次还能忍但每周、每月都要重复一遍纯手工操作既慢又容易漏行。这次我们来看一个可以直接拿来改的 VBA 汇总脚本批量扫描指定文件夹内的所有 Excel 文件自动识别每个文件里的同名工作表再把指定列的数据汇总到当前工作簿的“汇总”表中。它的核心特点是无需安装任何插件、Excel 2010 以上版本和 WPS 都可以运行、支持多 Sheet 名和多列同时汇总、会在汇总表里记录数据来自哪个文件和哪个 Sheet方便回查。本文会完整给出 VBA 代码、逐段讲解关键写法再用三份测试文件走一遍验证流程最后整理常见的报错和排查方法。适合正在做多门店、多部门、多月份报表合并或者刚开始学 VBA 想找一个完整实例的读者。1. 核心能力速览能力项说明项目类型Excel VBA 数据汇总工具适用于 Excel 和 WPS 表格主要功能遍历指定文件夹内的 Excel 文件汇总每份文件里同名工作表的指定列数据输入要求源表第一行为表头数据从第二行开始列顺序一致时可以直接按列号汇总启动方式AltF8 打开宏对话框运行不需要安装任何插件支持平台Windows 下的 Microsoft Excel 2010 及以上版本WPS 表格需要启用 VBA 宏功能是否支持批量支持通过 Dir 函数自动遍历文件夹内的所有 xls、xlsx、xlsm 文件是否支持 API不涉及属于本地 Excel 脚本输出结果在当前工作簿的“汇总”工作表中按行追加数据并记录来源文件名和 Sheet 名适合场景多门店日报汇总、多部门月报合并、多批次相同表结构数据归集需要先说明一个边界这段代码解决的是“表头一致、列顺序一致、需要按列号取值”的常见情况。如果列顺序不一样或者只想按表头名称取值本文后面会额外给出一段表头匹配的扩展写法。2. 需求拆解与使用边界先把需求拆清楚。典型的“多文件同名表多列数据汇总”包含四个要素一个文件夹里有多份 Excel 文件。每份文件里存在一张名称相同的工作表比如都叫“Sheet1”或“数据表”。这些 Sheet 的数据有相同的表头例如“门店”“销售额”“客流量”“日期”。最终要把多个 Sheet 中若干列的数据合并到一张总表里。这个脚本适合两类场景一类是交给别人做数据收集收回来的表格格式统一只需要批量归集另一类是自己有多个周期表格想定期合并避免每次打开文件手动复制。它也能在汇总时保留来源信息出现数据问题可以直接定位到具体文件和工作表。使用边界也要说清楚。如果每个文件的 Sheet 名称不一样或者数据结构完全不同那么要先做表结构标准化再套用这段代码如果文件是 .csv 或 .xls 旧格式需要确认本地 Excel 能正常打开如果文件设置了打开密码这段代码默认不会处理带密码工作簿也不应该通过代码去绕过密码这是合规底线。另外这段代码只应该用于你有权限访问和处理的业务数据尤其是涉及同事、客户、门店经营数据的场景必须先确认数据使用范围。不要把这些 VBA 技巧用在读取他人隐私文件、绕过系统权限等用途上。3. VBA 实现方案对比在写代码前先看几种常见实现方案方便你判断为什么选 VBA 而不是其他方式。方案原理优点缺点手动复制粘贴打开每个文件选中区域粘贴到总表简单直接适合一次性任务文件多时效率低容易漏行漏列ADO SQL 查询用 OLEDB 驱动把 Excel 当数据库查询可以写 SQL 过滤和聚合对 xlsx 格式兼容性波动大不同系统驱动差异明显容易报“外部表不是预期的格式”VBA 数组 遍历用 Workbooks.Open 打开文件把数据读入数组再写入汇总表兼容性好逻辑可控便于加来源列代码量比直接操作单元格稍长Power QueryExcel 自带数据清洗合并功能无需写代码可刷新需要用户手动配置查询批量路径变化时维护成本也不低我的建议是如果你只是处理一次数据Power Query 或者手动复制都够用如果这个汇总任务每个月都要做或者文件夹路径、表名会变化那 VBA 脚本明显更省事。下面给出的完整代码采用“Workbooks.Open 打开文件 数组读取 单元格写入”的组合这是跨文件汇总中比较稳、也容易二次改造成多表循环的写法。4. 完整 VBA 代码多文件同名表多列汇总4.1 使用前准备在运行代码之前需要先建好汇总表。打开一个新的 Excel 工作簿把它作为汇总主文件。双击工作表名称把默认的 Sheet1 改名为“汇总”。在“汇总”表第一行写入表头。建议在第 1 列写“来源文件”第 2 列写“来源表”从第 3 列开始放你要汇总的数据列标题。举例来说你要汇总源表里的“销售额”“客流量”“日期”这三列那么汇总表第一行就是来源文件来源表销售额客流量日期这里的表格布局很有讲究。第 1 列和第 2 列是代码会自动写入的来源信息从第 3 列开始是数据区。代码里之所以用“第几列”来对应是因为它读取的是你指定列号的数据位置就按照上面这个格式展开。4.2 完整代码打开 VBA 编辑器的方式是 AltF11或者点击“开发工具 - Visual Basic”。如果功能区里没有“开发工具”可以在 Excel 选项的自定义功能区里勾选开启。然后插入一个模块把下面代码粘贴进去。Sub BatchSummary() 功能遍历指定文件夹内所有 Excel 文件汇总同名工作表中的多列数据 适用Excel 2010 / WPS 表格需启用VBA Dim folderPath As String Dim fileName As String Dim wb As Workbook Dim ws As Worksheet Dim destWs As Worksheet Dim sourceArr As Variant Dim lastRow As Long Dim i As Long Dim j As Long Dim sName As Variant Dim targetCol As Variant Dim targetCols As Variant Dim sheetNames As Variant 配置区按需修改 需要汇总的工作表名称可写多个例如 Array(Sheet1, 数据表, 门店汇总) sheetNames Array(Sheet1) 需要汇总的列号例如第2列、第4列、第6列 注意源表第一行是表头列号从1开始计数 targetCols Array(2, 4, 6) 待汇总文件所在文件夹请改成你自己的路径 folderPath C:\Users\你的用户名\Desktop\月度数据\ 检查文件夹路径末尾是否有反斜杠 If folderPath Then If Right$(folderPath, 1) \ Then folderPath folderPath \ End If 检查“汇总”工作表是否存在 On Error Resume Next Set destWs ThisWorkbook.Sheets(汇总) On Error GoTo 0 If destWs Is Nothing Then MsgBox 请先在当前工作簿中创建一个名为“汇总”的工作表。, vbExclamation Exit Sub End If 清空汇总表中第2行以下的数据避免上次运行结果残留 destWs.Rows(2: destWs.Rows.Count).ClearContents 开始遍历文件夹 fileName Dir(folderPath *.xls*) Do While fileName 跳过 Excel 打开文件时产生的临时文件 If Left$(fileName, 2) ~$ Then Application.StatusBar 正在处理 fileName 只读方式打开文件避免改动源数据 On Error Resume Next Set wb Workbooks.Open(folderPath fileName, ReadOnly:True) If Err.Number 0 Then 打开失败记录到状态栏并继续下一个文件 Err.Clear On Error GoTo 0 Application.StatusBar 打开失败跳过 fileName fileName Dir() GoTo NextFile End If On Error GoTo 0 循环判断每个需要汇总的 Sheet 是否存在 For Each sName In sheetNames Set ws Nothing On Error Resume Next Set ws wb.Sheets(sName) On Error GoTo 0 If Not ws Is Nothing Then 读取源表整个数据区域到数组减少逐单元格操作 sourceArr ws.Range(A1).CurrentRegion.Value 判断是否真的有数据行 If UBound(sourceArr, 1) 1 Then 找到汇总表最后一行 lastRow destWs.Cells(Rows.Count, 1).End(xlUp).Row 1 遍历源数据行从第2行开始 For i 2 To UBound(sourceArr, 1) 写入来源文件和来源表名称 destWs.Cells(lastRow, 1).Value wb.Name destWs.Cells(lastRow, 2).Value sName 写入目标列数据 For Each targetCol In targetCols 防止列号超出源表总列数 If targetCol UBound(sourceArr, 2) Then destWs.Cells(lastRow, 2 targetCol).Value sourceArr(i, targetCol) End If Next targetCol lastRow lastRow 1 Next i End If End If Next sName 关闭当前工作簿不保存 wb.Close SaveChanges:False Set wb Nothing End If NextFile: fileName Dir() Loop Application.StatusBar 汇总完成 MsgBox 汇总完成请查看当前工作簿中的“汇总”工作表。, vbInformation End Sub4.3 参数说明代码的配置区只有三个变量需要修改。变量类型说明sheetNamesArray需要汇总的工作表名称可以写多个例如 Array(Sheet1, 数据表)targetColsArray需要汇总的源表列号例如第2列写 2folderPathString存放待汇总文件的文件夹绝对路径注意末尾要带反斜杠这里重点说明一下写入位置的换算逻辑。汇总表中第 1 列是“来源文件”第 2 列是“来源表”所以源表第 2 列会写入汇总表第 3 列也就是代码里的2 targetCol。如果 targetCol 是 2写入位置就是2 2 4不对这里要小心。我再把代码拆开检查一遍。destWs.Cells(lastRow, 2 targetCol).Value sourceArr(i, targetCol)这一段当 targetCol 2 时写入的是汇总表第 4 列。但按上面的表格布局源表第 2 列应该写入汇总表第 3 列。所以不能直接用2 targetCol正确的是2 targetCol - 1即1 targetCol。我们用一个完整例子说明源表结构第 1 列是“门店”第 2 列是“销售额”第 3 列是“客流量”。汇总表结构第 1 列“来源文件”第 2 列“来源表”第 3 列“销售额”第 4 列“客流量”。源表第 2 列“销售额”应该写到汇总表第 3 列换算公式是1 2 3。源表第 3 列“客流量”写到汇总表第 4 列换算公式是1 3 4。所以上面代码里写入行应该改成destWs.Cells(lastRow, 1 targetCol).Value sourceArr(i, targetCol)为了避免读者直接复制上面那段带问题的代码我把修正后的完整版本再给一份。也可以把 sourceArr 按列位置映射到目标表头写成更稳的表头匹配版本这个放在后面第 7 节讲。下面是修正后的最终代码建议从这里复制。Sub BatchSummary() 功能遍历指定文件夹内所有 Excel 文件汇总同名工作表中的多列数据 注意汇总表第一行表头请提前写好前两列固定为“来源文件”和“来源表” Dim folderPath As String Dim fileName As String Dim wb As Workbook Dim ws As Worksheet Dim destWs As Worksheet Dim sourceArr As Variant Dim lastRow As Long Dim i As Long Dim sName As Variant Dim targetCol As Variant Dim targetCols As Variant Dim sheetNames As Variant 配置区 sheetNames Array(Sheet1) targetCols Array(2, 4, 6) folderPath C:\Users\你的用户名\Desktop\月度数据\ If folderPath Then If Right$(folderPath, 1) \ Then folderPath folderPath \ End If On Error Resume Next Set destWs ThisWorkbook.Sheets(汇总) On Error GoTo 0 If destWs Is Nothing Then MsgBox 请先在当前工作簿中创建一个名为“汇总”的工作表。, vbExclamation Exit Sub End If 清空历史数据保留第一行表头 destWs.Rows(2: destWs.Rows.Count).ClearContents 遍历文件夹中的 Excel 文件 fileName Dir(folderPath *.xls*) Do While fileName If Left$(fileName, 2) ~$ Then Application.StatusBar 正在处理 fileName On Error Resume Next Set wb Workbooks.Open(folderPath fileName, ReadOnly:True) If Err.Number 0 Then Err.Clear On Error GoTo 0 Application.StatusBar 打开失败跳过 fileName fileName Dir() GoTo NextFile End If On Error GoTo 0 For Each sName In sheetNames Set ws Nothing On Error Resume Next Set ws wb.Sheets(sName) On Error GoTo 0 If Not ws Is Nothing Then sourceArr ws.Range(A1).CurrentRegion.Value If UBound(sourceArr, 1) 1 Then lastRow destWs.Cells(Rows.Count, 1).End(xlUp).Row 1 For i 2 To UBound(sourceArr, 1) destWs.Cells(lastRow, 1).Value wb.Name destWs.Cells(lastRow, 2).Value sName For Each targetCol In targetCols If targetCol UBound(sourceArr, 2) Then 源表第 targetCol 列 - 汇总表第 1targetCol 列 destWs.Cells(lastRow, 1 targetCol).Value sourceArr(i, targetCol) End If Next targetCol lastRow lastRow 1 Next i End If End If Next sName wb.Close SaveChanges:False Set wb Nothing End If NextFile: fileName Dir() Loop Application.StatusBar 汇总完成 MsgBox 汇总完成请查看当前工作簿中的“汇总”工作表。, vbInformation End Sub把 targetCols 改成 Array(2, 4, 6) 后汇总表第一行应该在第 3、5、7 列分别写上源表第 2、4、6 列的表头其他数据列可以不写。这样代码自动生成的列就和表头对应起来了。如果你希望汇总表固定使用第 3 列到第 5 列不要管源表列号那么可以改成写入固定列位置destWs.Cells(lastRow, 3).Value sourceArr(i, targetCol) destWs.Cells(lastRow, 4).Value sourceArr(i, 4) 依此类推这种方式更适合列号固定、表头不变、不想记忆换算公式的场景。5. 代码关键点拆解这段代码看起来不短但核心只有几个关键点理解了就可以随意修改。5.1 遍历文件夹代码使用Dir(folderPath *.xls*)获取文件夹内第一个 Excel 文件然后循环里最后一行fileName Dir()获取下一个文件。这是一个非常经典的 VBA 文件遍历写法优点是简单、不依赖外部对象缺点是遍历顺序和系统资源管理器里的排序不一定完全一致但作为汇总任务影响不大。*.xls*这个通配符可以同时匹配 xls、xlsx、xlsm。如果你只想处理新版格式可以改成*.xlsx只想处理旧版格式就改成*.xls。5.2 跳过临时文件和失败文件Excel 打开一个工作簿时会在同一目录生成一个文件名以~$开头的临时副本。如果代码不跳过它Workbooks.Open会打开失败或者打开一个占位文件。所以代码里用Left$(fileName, 2) ~$判断并跳过。同样有些文件可能被占用了或者路径里有特殊字符导致打开失败。代码里使用了On Error Resume Next配合Err.Number判断打开失败时就记录状态栏并跳到下一个文件。这样不会因为某一个文件损坏导致整个批量任务中断。5.3 同名 Sheet 的查找wb.Sheets(sName)如果工作表不存在正常情况下会触发一个下标越界错误。这里采用临时开启On Error Resume Next的办法如果ws没有被赋值就说明这个文件里没有对应名称的工作表直接跳过。这种写法比For Each sh In wb.Sheets再用sh.Name比较要简洁而且当 sheetNames 数组里有多个表名时可以逐个判断。5.4 多列定位与写入多列汇总有两种理解方式。第一种是按源表列号汇总。比如 targetCols Array(2, 4, 6)意思是每个文件都取第 2、4、6 列的数据。这种写法前提是所有源表列顺序一致适合数据格式统一的情况。第二种是按表头名称匹配。这种写法更稳健即使各文件的列顺序不一样只要表头名称对得上就能找到数据列。第 7 节单独展开。5.5 数组批量读取sourceArr ws.Range(A1).CurrentRegion.Value这一句把整个数据区域一次性读入内存数组。后面的循环是在数组里取值而不是反复读写单元格这样能显著提升大数据量下的速度。如果源表有 10 万行数据逐单元格读取会非常慢数组方案通常会快很多。这也是 VBA 处理大数据时最重要的优化手段之一。6. 实战验证从三份测试文件开始为了验证这段代码能不能用、好不好用最好的办法是自己构造三份小测试文件。6.1 准备测试数据在桌面新建一个文件夹命名为“测试数据”。在文件夹里创建三个 Excel 文件分别命名“门店A.xlsx”“门店B.xlsx”“门店C.xlsx”。每个文件里保留默认的 Sheet1并输入以下相同结构的数据。门店销售额客流量日期门店A1000502026-01-01门店A1500602026-01-02每个文件里的第一列写自己的门店名第二列销售额、第三列客流量、第四列日期可以写不同数字。然后打开汇总主文件把默认 Sheet1 改名成“汇总”第一行输入来源文件来源表销售额客流量注意 targetCols 应该设置成 Array(2, 3)也就是要汇总“销售额”和“客流量”这两列。6.2 运行宏在汇总主文件中按 AltF8选择“BatchSummary”点击运行。如果第一次运行时提示宏被禁用需要先在“文件 - 选项 - 信任中心 - 宏设置”中启用宏然后重新打开工作簿。WPS 里则需要在“开发工具”选项卡或设置中开启 VBA 宏功能。运行过程中Excel 左下角状态栏会显示“正在处理门店A.xlsx”“正在处理门店B.xlsx”等提示方便确认代码是否卡在某个文件上。6.3 预期结果运行完毕后“汇总”工作表应该得到类似下面的结果来源文件来源表销售额客流量门店A.xlsxSheet1100050门店A.xlsxSheet1150060门店B.xlsxSheet1200080门店B.xlsxSheet1180070门店C.xlsxSheet1120055门店C.xlsxSheet1160065判断标准有三个汇总表行数等于三个文件数据行数之和来源文件列和来源表列能准确溯源销售额、客流量两列没有错位、没有漏行。如果出现汇总表没有任何数据先检查文件夹路径是否以反斜杠结尾以及源表 Sheet 名称是否真的叫“Sheet1”。7. 按表头匹配的扩展写法固定列号的写法在表结构完全一致时很好用但实际业务中经常遇到列顺序不一致的情况。 比如 A 文件的“销售额”在第 2 列B 文件的“销售额”在第 3 列。这时候按列号取值就会错。解决方案是先读一遍源表表头再根据目标表头名称找到该列在源表中的实际列号。核心思路是把要汇总的表头名称写进一个数组然后对每个源文件建立一个“目标表头 - 源表列号”的映射。下面这段代码片段可以作为改造参考。Dim headerArr As Variant Dim srcHeader As Variant Dim srcColMap() As Long Dim colIndex As Long Dim h As Long 要汇总的列标题 headerArr Array(销售额, 客流量) 读取源表表头第二行开始是数据 srcHeader ws.Range(A1).Resize(1, ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column).Value 建立标题到列号的映射 ReDim srcColMap(1 To UBound(headerArr, 1) 1) For h 1 To UBound(headerArr, 1) 1 srcColMap(h) 0 For colIndex 1 To UBound(srcHeader, 2) If CStr(srcHeader(1, colIndex)) headerArr(h - 1) Then srcColMap(h) colIndex Exit For End If Next colIndex Next h 写入数据时按映射取列 For h 1 To UBound(headerArr, 1) 1 If srcColMap(h) 0 Then destWs.Cells(lastRow, 2 h).Value sourceArr(i, srcColMap(h)) End If Next h这段代码使用双层循环第一层遍历目标表头第二层遍历源表表头找到名称匹配就把列号存进映射数组。写入数据时再按映射关系取数这样即使各文件列顺序不同也不会错位。要注意headerArr是一个二维数组当使用Array(销售额, 客流量)创建时UBound(headerArr)返回的是 1所以循环里统一用UBound(headerArr, 1) 1或直接写For h 0 To UBound(headerArr)。这个细节容易踩坑实际运行时如果发现列位置不对优先检查循环边界。8. 常见问题与排查方法日常使用中最容易遇到的问题我整理成了一张排查表。问题现象可能原因排查方式解决方案AltF8 看不到宏宏被禁用或模块未插入查看开发工具选项卡是否被隐藏点击“Visual Basic”确认模块列表在信任中心启用宏插入模块后重新写入代码运行时提示“此文档有宏。该应用程序的宏语言支持功能被取消”Office 或 WPS 的宏功能被组织策略或设置禁用检查 Excel“信任中心 - 宏设置”启用所有宏或对当前工作簿执行受信任位置设置汇总表没有任何数据文件夹路径错误、Sheet 名不匹配、文件格式不支持检查 folderPath 是否以反斜杠结尾sheetNames 是否和源表名完全一致修正路径配置和 Sheet 名称先手动打开一个文件确认表名部分文件被跳过文件被占用、文件损坏、文件名包含特殊字符看状态栏是否有“打开失败跳过”的提示关闭占用该文件的程序确认文件能正常打开汇总数据列错位targetCols 列号设置错误或者源表列顺序不一致抽查一行数据对比源表和汇总表位置改为第 7 节表头匹配方案数据量很大运行非常慢循环里逐单元格读写或者没关闭屏幕刷新检查代码是否使用数组读取使用 sourceArr 数组方案并考虑手动关闭 ScreenUpdating运行第二遍后数据重复旧数据没有清空检查代码中是否执行 ClearContents保留清空操作或者先手动清空汇总表再运行WPS 里 FileDialog 不可用WPS 对某些 VBA 对象支持不完整确认代码是否使用了 FileDialog使用固定文件夹路径或改用 GetOpenFilename其中“宏被禁用”是新手最常见的问题。VBA 宏属于可执行代码出于安全考虑Excel 默认不会开放所有宏。这不是代码本身有问题而是运行环境限制。启用宏后要记得只运行你自己编写或可信来源的代码不要随便运行陌生人发来的带宏工作簿这一点在涉及公司电脑和同事文件时尤其重要。9. 批量任务与性能优化建议多文件汇总本质上是一个批量任务批量任务最怕三件事跑一半中断、重复运行导致数据重复、失败文件没有记录。基于这个思路可以按下面的建议优化。9.1 清空汇总表保证幂等每次运行前先执行ClearContents这样脚本无论跑多少次最终结果都是“从零开始重算”不会出现旧数据和新数据叠加的问题。如果你需要保留多批次汇总的完整流水建议再加一列“汇总批次号”或“运行时间”每次运行写入当前时间方便区分。9.2 用数组代替逐单元格读写代码里已经使用了sourceArr ws.Range(A1).CurrentRegion.Value和destWs.Cells(lastRow, 1 targetCol).Value。这里读取用了数组写入仍然是一个单元格一个单元格地写。如果每个文件有几万行写成千上万次单元格会影响速度。一个更快的改法是先把汇总数据填入一个二维数组最后一次性写入汇总表。但这样代码复杂度会明显上升。建议先跑通当前方案如果文件数量在几十个、单表数据量在几千行以内速度完全够用如果确实需要处理十万行级别的数据再把写入部分改成数组。9.3 增加统计和日志可以在代码里增加一个变量successCount每成功处理一个文件就加 1最后在 MsgBox 里显示“共处理 X 个文件汇总 Y 行数据”。这样批量处理时不用盯着屏幕数文件也能快速发现有没有文件漏掉。以下是增加统计信息的核心片段Dim successCount As Long Dim totalRows As Long 在打开成功且读取到有效数据后累加 successCount successCount 1 totalRows totalRows (UBound(sourceArr, 1) - 1) 结束时输出 MsgBox 处理文件数 successCount vbCrLf 汇总数据行 totalRows, vbInformation9.4 状态栏提示很有用代码里的Application.StatusBar 正在处理 fileName是批量任务中非常实用的做法。文件多的时候你可以直接看到当前处理到第几个文件卡住时也能快速定位到具体的文件。运行结束后设置Application.StatusBar False可以恢复状态栏默认显示。9.5 Excel 与 WPS 的兼容性WPS 表格只要安装了 VBA 宏功能组件绝大多数 VBA 代码可以直接运行。但有两个地方要注意一是Workbooks.Open对部分加密或特殊格式文件的兼容性可能略有差异二是Application.FileDialog对象在部分 WPS 版本中支持不完整。稳妥的做法是把文件夹路径写成固定字符串或者配置区里手动输入路径减少对文件对话框的依赖。10. 扩展方向写完基础版本后可以根据自己的场景继续扩展。多 Sheet 汇总sheetNames 数组里填多个表名比如 Array(Sheet1, 门店数据, 汇总)代码会自动遍历所有文件中的这几个 Sheet。指定文件名过滤把Dir(folderPath *.xls*)改成Dir(folderPath *日报*.xls*)只处理文件名包含“日报”的文件。自动创建汇总表如果“汇总”表不存在代码可以自动新建一个并写入表头避免每次手动建表。汇总到单独文件不汇入当前工作簿而是新建一个工作簿写入结果适合不想污染主文件的场景。增加自动筛选把多列数据汇总进入总表后再用数据透视表进行统计适合从“汇总”到“分析”的完整流程。另外关于一些热搜里提到的“vba字典”、“wps vba”、“excel多条件筛选”等主题也可以在这个项目基础上继续挖掘。字典的好处是可以在内存里完成数据去重和按关键字段聚合不需要先汇总再透视多条件筛选则可以配合 AutoFilter 或循环判断在写汇总结果前就先排除不需要的数据。11. 小结与下一步这段 VBA 代码最大的价值不是某一个技巧而是把“找文件、打开文件、找 Sheet、取数据、写总表”这个完整流程串起来了。只要你的业务里存在“多份相同结构表格、需要定期汇总”的需求它就能直接省掉大量重复劳动。建议你先按第 6 节的测试步骤用三个文件跑通一次再换成自己的文件夹路径和表头。最容易踩的坑是路径末尾反斜杠没写、Sheet 名称不匹配、汇总表忘了先建这三个问题排查完脚本基本就能稳定跑起来。下一步可以继续做两件事一是给代码加上统计信息和日志输出批量跑几十个文件时心里有数二是把固定列号改成按表头匹配彻底解决列顺序不一致的麻烦。等这两步都完成这套 VBA 脚本就已经具备真正的工作台工具水平了可以直接拿来做日常月报汇总。