两列数据找差异，我们一般都是用条件格式-突出显示单元格格规则-重复值来快速完成。

但如果同一列中有重复值，核对结果就出错了。

一直想解决这个问题，直到昨天，用VBA编写了一个新功能，完美的解决了两列核对的问题。

选中两列按Ctrl+m即可找出两列重复值。

做会计工作的同学都是遇到过一对一的核对情况，当核对的值出现多次时，需要进行一对一的核对。如下图所示，第一列有一个，第二列出现两个，那么一对一核对结果时第2列第2个不应该填充颜色。

这个用Ctrl+m同样可以完成。

想用不同颜色显示一对一核对结果？当然可以！

看到这么好用的核对功能，你是不是也想试一下Ctrl+m?先别试，因为你试了也没效果。你需要跟兰色一起做以下以步才可使用。

第1步打开你要做核对的表格，工作表标签右键-点击查看代码。在弹出的新窗口插入-模块，然后复制下面的代码粘贴到右侧窗口中。

Sub核对()Dimkk=Ifk=1Then普通核对ElseIfk=2Then单色一对一核对ElseIfk=Then多色一对一核对EndIfEndSub

Sub普通核对()Dimarr1,arr2Dim红AsByte,绿AsByte,黄AsByteSetrg=SelectionIfrg.Areas.Count2ThenExitSubarr1=rg.Areas(1)arr2=rg.Areas(2)开始核对核对前删除颜色rg.Interior.ColorIndex=xlNoneForx=1ToUBound(arr1)Fory=1ToUBound(arr2)Ifarr1(x,1)=arr2(y,1)Thenrg.Areas(1)(x).Interior.Color=RGB(,,)rg.Areas(2)(y).Interior.Color=RGB(,,)EndIfNextyNextxEndSubSub单色一对一核对()Dimarr1,arr2,arr(1To00)Dim红AsByte,绿AsByte,黄AsByteSetrg=SelectionIfrg.Areas.Count2ThenExitSubarr1=rg.Areas(1)arr2=rg.Areas(2)开始核对核对前删除颜色rg.Interior.ColorIndex=xlNoneForx=1ToUBound(arr1)Fory=1ToUBound(arr2)Ifarr1(x,1)=arr2(y,1)Andarr(y)1Thenrg.Areas(1)(x).Interior.Color=RGB(,,)rg.Areas(2)(y).Interior.Color=RGB(,,)arr(y)=1GoTo10EndIfNexty10:NextxEndSubSub多色一对一核对()Dimarr1,arr2,arr(1To00)Dim红AsByte,绿AsByte,黄AsByteSetrg=SelectionIfrg.Areas.Count2ThenExitSubarr1=rg.Areas(1)arr2=rg.Areas(2)开始核对核对前删除颜色rg.Interior.ColorIndex=xlNoneForx=1ToUBound(arr1)Fory=1ToUBound(arr2)Ifarr1(x,1)=arr2(y,1)Andarr(y)1Then红=Application.RandBetween(1,)绿=Application.RandBetween(1,)黄=Application.RandBetween(1,)rg.Areas(1)(x).Interior.Color=RGB(红,绿,黄)rg.Areas(2)(y).Interior.Color=RGB(红,绿,黄)arr(y)=1GoTo10EndIfNexty10:NextxEndSub

注：修改代码中K的值即可在几种核对模式中切换（1是普通核对，2是单色一对一核对，是多色一对一核对）

Sub核对()

Dimk

k=

Ifk=1Then

普通核对

ElseIfk=2Then

单色一对一核对

ElseIfk=Then

多色一对一核对

EndIf

第2步开发工具-宏-选取“核对”-选项-快捷键后输入字母m

第步文件另存为启用宏的文件

完成以上以步后，你就可以在当前文件中使用Ctrl+m了。

也许你会问能不能在所有打开的Excel文件中使用它？可以，但你需要另存为加载宏文件，然后再加载它即可。但兰色一般不建议这样做，因为用宏做成的功能执行后不能撤消，万一你不小心按了Ctrl+m会破坏你表格的格式。

如果觉得文章不错

帮高顿君或者点个呗！

◆◆◆◆◆

如何更好的用Excel满足更多工作需求？

怎样用数据让老板对你眼前一亮？

想真正的玩转Excel，却不知道如何入手？

没有得心应手的财务模型，必须亲自手动进行决策分析，效率低，怎么办？

高顿财税学院推出《EXCEL在财务管理中的高级应用》课程。帮助学员巩固和进阶EXCEL的运用，突破更高层次的技能突破。

?版权归原作者所有，如对版权有异议，请联系后台议定处理。

?本文来源：本文经授权转载自excel精英培训；

高顿财税学院整理发布如需转载请务必注明以上信息。

↓↓↓

如何精准拿捏合并财务报表的合并范围？

对于母子公司间的固定资产、存货等内部交易

如何进行抵消处理？

高顿财税学院热门课程

《合并报表实务操作与难点解析》

为您解答企业内部交易的合并抵消处理、会计处理

扫描下放