被重复数据逼疯的我，终于靠这个Excel宏解放了双手

上周五下午，财务小美在群里哀嚎：“救命！这两张表对了我一下午，眼睛都要瞎了，还是没找出哪些交易是重复的！”

紧接着，HR阿强也发来一张密密麻麻的花名册：“你们看看这个员工名单，同一个名字出现了三次，我都不知道该信哪条记录……”

那一刻，我突然意识到：重复数据，简直是职场人的集体噩梦。

作为一个常年和数据打交道的博主，我其实早就被这种问题折磨过无数次。以前我也用过Excel的条件格式、高级筛选，甚至试过肉眼一个个对——结果就是：费时费力，还容易漏。

直到我写了这个VBA宏。

1秒，真的只需要1秒

不管你选的是连续区域，还是东一块西一块的多列数据，只要运行这个宏，所有重复的单元格都会自动变成浅红色。

给你们看效果（脑补一下动图）：原本杂乱无章的表格，瞬间像被施了魔法，重复项一目了然。

代码来了，复制就能用

（别怕，不用懂编程，跟着操作就行）

打开Excel，按Alt + F11进入VBA编辑器，插入一个新模块，把下面这段代码贴进去：

Sub 高亮重复数据() Dim rng As Range, cell As Range Dim dict As Object Dim cellValue As Variant On Error Resume Next Set rng = Application.InputBox("请选择要检查重复的区域：", Type:=8) On Error GoTo 0 If rng Is Nothing Then MsgBox "您取消了选择。", vbExclamation Exit Sub End If rng.Interior.ColorIndex = xlNone Set dict = CreateObject("Scripting.Dictionary") For Each cell In rng cellValue = cell.Value If Not IsError(cellValue) Then If dict.exists(cellValue) Then dict(cellValue) = dict(cellValue) + 1 Else dict.Add cellValue, 1 End If End If Next cell For Each cell In rng cellValue = cell.Value If Not IsError(cellValue) Then If dict(cellValue) > 1 Then cell.Interior.Color = RGB(255, 204, 204) End If End If Next cell MsgBox "重复数据已标红！", vbInformation End Sub

关掉编辑器，回到Excel。按Alt + F8，找到“高亮重复数据”，点击“执行”，框选你要检查的区域，确认——见证奇迹的时刻到了。

为什么这个宏比Excel自带的更好用？

我知道你们肯定会问：Excel不是有“条件格式”里的“突出显示重复值”吗？干嘛还要自己写宏？

问得好。Excel自带的功能确实方便，但它有个硬伤：不支持不连续区域。如果你同时选了A列和C列（中间隔着B列），条件格式要么报错，要么只处理其中一块。而我的宏，随便你选几块，它都能一起查。

另外，自带功能只能标记重复项，但无法先清除旧颜色再重新标记。用这个宏，每次运行都会自动清空之前的填充色，不会搞混。

这些场景，你一定用得上

我把这个宏分享给财务小美之后，她惊喜地发现，原来不止对账能用：

• 财务对账：从银行导出的流水和自己记账的记录混在一起，一键标出两边都有的交易，剩下的就是单边异常项。
• HR整理花名册：不同部门上报的员工名单合并后，同一员工可能被重复录入，高亮后轻松合并。
• 销售客户去重：多个渠道收集的潜在客户名单，用手机号或邮箱列判断重复，避免重复跟进。
• 库存盘点：商品编码输错了导致重复，高亮后立刻修正。
• 活动报名统计：检查是否有同一人重复提交报名表，防止名额被占。

甚至有个做数据分析的粉丝告诉我，他用这个宏来检查日志数据里的重复记录，比写SQL还快。

想玩点花的？可以改！

如果你觉得浅红色不够显眼，可以把代码里的RGB(255, 204, 204)改成你喜欢的颜色，比如RGB(255, 255, 0)是亮黄色，RGB(0, 255, 0)是绿色。

如果想高亮整行而不是单个单元格，也很简单：把第二个循环里的cell.Interior.Color改成cell.EntireRow.Interior.Color就行。

写在最后

说实话，写这个宏的初衷，纯粹是想让自己少加点班。没想到分享出去之后，收到了好多留言说“太好用了”“求多分享一些这种实用小工具”。

其实职场里的很多烦恼，往往就差一个“偷懒”的思路。与其埋头苦干，不如花10分钟研究一下怎么让Excel帮你干活。这个宏我已经用了两年，每次运行都觉得自己赚到了时间。

如果你试了之后有什么问题，或者想让我帮你定制其他功能，直接在评论区留言。我不保证秒回，但保证每个都会看。

如果这篇这篇文章对您有帮助？关注、点赞、收藏，三连支持一下。
有疑问或想法？评论区见。
我们下期再见。