如何用WPS表格宏批量合并多个工作簿数据？
功能定位：为什么选宏而不是 Power Query
WPS表格在 2026 版仍保留「宏」与「Power Query」双通道。前者轻量、离线、对硬件要求低；后者图形化，但 200 MB 以上多文件易卡顿。若你手头是 8 年前的政企信创机，或需要把 200 个分表一次性压进总表，宏是成本最低的方案。
下文用「宏合并」「文件夹循环」「VBA 兼容」等长尾词自然衔接，方便检索。
前置检查：版本、扩展名与信任中心
桌面端最短入口
Windows：打开 WPS 表格 → 右上角「设置」→「配置和修复工具」→「高级」→「宏设置」→ 勾选「启用 VBA 宏」。macOS 路径相同，但界面文字为「启用宏与 ActiveX」。若按钮灰色，说明安装包为应用商店版，需到官网重新下载「专业增强版」。
文件格式边界
宏只能保存在 *.xlsm 中；若源头文件是 *.xlsx，需要先「另存为」带宏格式，否则代码会被自动剥离。
决策树：什么时候用宏，什么时候撤退
- 文件数 ≤ 5 且列结构完全一致 → 手动复制更快。
- 文件数 6–200，电脑内存 ≤ 8 GB → 宏合并，耗时数十秒内。
- 文件数＞200 或单表超 50 万行 → 建议转 Power Query 或数据库，避免 32 位版内存溢出。
经验性观察：在统信 UOS + 飞腾 CPU 的政企机上，200 个 1 MB 文件循环合并，宏耗时约 35 秒，Power Query 因加载预览界面需 2 分 10 秒且风扇狂转。
一次录宏：把手工步骤固化成代码
打开总表 →「工具」→「宏」→「录制新宏」→ 起名 MergeDemo → 确定。接着手动完成：打开分表 → 选中数据区域 → 复制 → 回到总表最后一行 → 粘贴 → 关闭分表 → 停止录制。WPS 会生成如下骨架：
Sub MergeDemo()
Workbooks.Open Filename:="C:\报表\1月.xls"
Range("A2:F100").Copy
ThisWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
ActiveWorkbook.Close False
End Sub
这段代码只能处理固定区域，下一节把它升级为「动态最后一行 + 文件夹循环」。
进阶改造：文件夹循环 + 动态边界
代码思路
用 Dir 函数遍历 *.xls*，每次打开后找到本表最后一行，再找到总表最后一行，直接赋值而非粘贴，可省剪贴板开销。
Sub 合并文件夹()
Dim 路径 As String, 文件 As String, wb As Workbook, lastS As Long, lastT As Long
路径 = ThisWorkbook.Path & "\上报\"
文件 = Dir(路径 & "*.xls*")
Application.ScreenUpdating = False
Do While 文件 <> ""
Set wb = Workbooks.Open(路径 & 文件, ReadOnly:=True)
lastS = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
lastT = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
wb.Sheets(1).Range("A2:F" & lastS).Copy _
ThisWorkbook.Sheets(1).Range("A" & lastT)
wb.Close False
文件 = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "已合并"
End Sub
回退方案
若运行中报「下标越界」，多半是 Dir 缓存冲突，把 Dir() 改成 FileSystemObject 即可；也可手动把文件移出文件夹，再逐批测试。
字段映射：当列顺序不一致怎么办
示例场景：A 部门把「销售额」放第 4 列，B 部门放第 6 列。在循环体内加一段「列标题匹配」即可，避免硬编码列号：
Dim 标题 As Object: Set 标题 = CreateObject("Scripting.Dictionary")
For i = 1 To wb.Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
标题(wb.Sheets(1).Cells(1, i).Value) = i
Next
随后用 标题("销售额") 取列号，再复制到总表对应列，实现「字段对齐」。
性能开关：ScreenUpdating 与 数组落盘
经验性观察：把 Range.Copy 改为数组一次性落盘，可再缩短 15–20% 时间，但代码可读性下降；建议 5 万行以上才启用。
移动端能否运行宏？
截至当前的最新版本，Android/iOS 端 WPS 仅支持「查看」含宏文件，执行会被拦截。若出差途中必须合并，可先用「云文档」把分表上传到 PC 虚拟桌面，远程 RDP 运行宏，再把结果回传手机。
常见故障排查表
| 现象 | 最可能原因 | 验证方法 | 处置 |
|---|---|---|---|
| 运行时 1004 错误 | 路径含中文空格 | Debug.Print 路径 | 用双引号包裹或转义 |
| 合并后行数翻倍 | 把标题行也复制 | 检查 A 列是否多「日期」标题 | Range("A2") 起始行改为 2 |
| Dir 返回空 | 后缀大小写 | Debug.Print Dir(路径 & "*.xls*") | 统一用通配符 *.xls* |
合规与备份：宏杀毒的误报与豁免
政企内网若部署 360 信创版，会把含 VBA 的文件标「宏病毒」。解决步骤：把总表加入白名单目录（需管理员权限），或把宏拆成受信任签名。经验性观察：用金山云文档外链分发时，宏会被自动剥离，因此收件方拿到的总是无宏副本，避免误报也防止源码泄漏。
最佳实践 6 条清单
- 模板先行：先把总表标题、格式、公式设好，再跑宏，避免事后格式刷。
- 空行哨兵：在总表末尾留一行「=IF(A1="","",ROW())」辅助列，便于验证合并结果。
- 断点续跑：把已合并文件名写入「完成.log」，下次跳过，防重复。
- 列宽自适应：宏末尾加 Sheets(1).Columns.AutoFit，省去手工拉列宽。
- 日期戳：合并完毕在文件名前加「2026-04-03_」前缀，方便追溯。
- 版本快照：用 WPS 历史版本功能，回滚到合并前状态，仅占用 KB 级流量。
FAQ：WPS 表格宏合并高频疑问
宏合并会丢失格式吗？
默认只复制值与公式，若需带格式，把 PasteSpecial 改为 xlPasteAll 即可，但耗时增加约 30%。
能否合并受保护的工作表？
可以，但需先 wb.Sheets(1).Unprotect Password:="123"，合并完再 Protect，否则复制会报错。
32 位 WPS 最大能吞多少行？
经验性观察：单表 80 万行、20 列以内可稳定运行；再大会提示「内存不足」，需拆批或换 64 位。
收尾：下一步行动建议
读完本文，你已掌握「录宏→改循环→加字典→关屏幕刷新」的完整链路。立刻打开 WPS 表格，把待合并的 10 个文件扔到同一文件夹，跑一遍示例代码，验证耗时与行数是否符合预期。若 30 秒内完成，就可以把代码迁入公司模板，配合云文档的历史版本，实现「零人工」月报流水线。若文件规模继续膨胀，再考虑升级到 Power Query 或数据库，用同样字段映射思路，成本只需替换连接器，无需重写逻辑。
