【办公自动化—Excel篇18】多个excel一键去除重复行全局去重版

跨文件、跨工作表统一比对，一键清理重复数据

在日常办公中，很多人都会遇到这样的情况：

• 多个 Excel 文件由不同部门提交，内容相互交叉重复

• 同一个 Excel 中有多个工作表，数据之间也可能存在重复

• 手动比对根本不现实，极容易漏删或误删

现在，只需 一套 VBA 工具，就能实现：
对整个文件夹内所有 Excel + 所有工作表进行“全局级”重复行清理，
真正做到跨文件、跨表统一比对，自动输出去重结果。

功能说明

✔ 全局统一去重

• 文件夹内的不同 Excel 之间相互比对

• 同一个 Excel 的多个工作表之间也相互比对

• 真正的“全局去重”，不局限于单表

✔ 可选择是否包含首列参与判断

• 选择“包含首列”：只有整行完全一致才会判定为重复

• 选择“不包含首列”：只要除首列外其余列相同即视为重复

✔ 可选择是否包含表头参与去重

• 若选择“包含表头”：第一行若与其他行相同，也会被去除

• 若选择“不包含表头”：程序会自动跳过第一行，保护表头

✔ 优先保留首次出现的数据

• 重复内容中保留第一次出现的行

• 后续出现的重复行会被自动删除，逻辑更安全

✔ 自动生成去重结果文件

• 处理后的文件不会覆盖原文件

• 默认命名为：原文件名_去重后.xlsx

✔ 练习素材标注说明

• 红色：同一张表中的重复内容

• 蓝色：不同表之间的重复内容
  用于验证全局去重效果

✔ 支持“跨列长度智能比对”

• 表A：5列，第3行内容为 [A,B,C,空,空]

• 表B：3列，第4行内容为 [A,B,C]
  → 判定为相同

• 表A：5列，第3行内容为 [A,B,C,D,E]

• 表B：3列，第4行内容为 [A,B,C]
  → 判定为不相同

✔ 行去重为主，列去重可配合转置实现
如需对“整列”进行去重，可先使用 Excel一键转置，
公众号内回复：Excel转置 即可获取。

使用步骤（仅需四步）

1️⃣ 查看下图操作流程，如需视频讲解可查看各大平台账号：技已成舟

2️⃣ 打开一个空白 Word，按 Alt + F11 打开 VBA 编辑器

3️⃣ 菜单栏点击：插入 → 模块

4️⃣ 粘贴代码后按 F5 运行宏

接着按提示完成：

• 选择 需要去重的 Excel 文件所在文件夹

• 选择 是否包含首列参与判断

• 选择 是否包含表头

• 选择 去重后文件的输出文件夹

程序将自动完成：
跨文件 + 跨工作表的全局重复行清理，并生成对应结果文件。