核对两列数据我们通常是单击【开始】→【条件格式】→【突出显示单元格规则】→【重复值】
但是这样操作有个问题:如果我们需要的是找出两列中一一对应的数值。
例如图中第一列的213出现了3次,但是只有两次是跟第2列对应的,这样第3个213就不应该标红。但是用条件格式的话就将所有的213都标红了。
所以遇到这个问题就别用条件格式了,教你一个快捷键(CTRL+Q)
我告诉你我只需按一下快捷键(CTRL+Q)就能解决
动图演示
不过你先别急着试,跟着做完下面的步骤你也可以有这个功能。
该功能用了一点点VBA编程,不过你别害怕,不用你写代码,只需要动动鼠标即可完成。
下面是操作步骤:
Sub 普通核对()
Dim arr1, arr2
Set rg = Selection
If rg.Areas.Count <> 2 Then Exit Sub
arr1 = rg.Areas(1)
arr2 = rg.Areas(2)
rg.Interior.ColorIndex = xlNone
For x = 1 To UBound(arr1)
For y = 1 To UBound(arr2)
If arr1(x, 1) = arr2(y, 1) Then
If rg.Areas(2)(y).Interior.Color = RGB(255, 199, 206) Then GoTo 过儿2:
rg.Areas(1)(x).Interior.Color = RGB(255, 199, 206)
rg.Areas(2)(y).Interior.Color = RGB(255, 199, 206)
GoTo 过儿:
End If
过儿2:
Next y
过儿:
Next x
End Sub
▲左右滑动查看完整代码
动图演示
▍注:如果你使用的是Office Excel但是却找不到发工具选项的话请参照下图设置,设置完成即可有开发工具选项。
▍注:你也可以不写q,可以写m,那么你就可以用Ctrl+m调用该核对功能,但是注意,不要设置成电脑中已有的快捷键,比如Ctrl+C/Ctrl+V等,否则会冲突。
大工告成!
现在我们的表格就有神奇的核对功能啦。
注意:一定要先选择一列在选择另外一列(按住CTRL键选选择一列,在选择另外一列),在运行快捷键。
来源:https://mp.weixin.qq.com/s/9Eejmu5sr-RI179zDq0zUA