excel两列数据找重复(1秒找出两列数据差异)

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

excel两列数据找重复(1秒找出两列数据差异) 

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

excel两列数据找重复(1秒找出两列数据差异) 

小编多年以来一直想解决这个问题,直到昨天,兰色用VBA编写了一个新功能,完美的解决了两列核对的问题。

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

excel两列数据找重复(1秒找出两列数据差异) 

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

excel两列数据找重复(1秒找出两列数据差异) 

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

excel两列数据找重复(1秒找出两列数据差异) 

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

excel两列数据找重复(1秒找出两列数据差异) 

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

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

excel两列数据找重复(1秒找出两列数据差异) 

Sub 核对()
Dim k
k = 3
If k = 1 Then
  普通核对
ElseIf k = 2 Then
   单色一对一核对
ElseIf k = 3 Then
   多色一对一核对
End If
End Sub




Sub 普通核对()
 Dim arr1, arr2
 Dim 红 As Byte, 绿 As Byte, 黄 As Byte
 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
        rg.Areas(1)(x).Interior.Color = RGB(255, 199, 206)
        rg.Areas(2)(y).Interior.Color = RGB(255, 199, 206)
        End If
     Next y
Next x
End Sub
Sub 单色一对一核对()
 Dim arr1, arr2, arr3(1 To 10000)
 Dim 红 As Byte, 绿 As Byte, 黄 As Byte
 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) And arr3(y) <> 1 Then
        rg.Areas(1)(x).Interior.Color = RGB(255, 199, 206)
        rg.Areas(2)(y).Interior.Color = RGB(255, 199, 206)
        arr3(y) = 1
        GoTo 10
        End If
     Next y
10:
Next x
End Sub
Sub 多色一对一核对()
 Dim arr1, arr2, arr3(1 To 10000)
 Dim 红 As Byte, 绿 As Byte, 黄 As Byte
 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) And arr3(y) <> 1 Then
        红 = Application.RandBetween(1, 255)
        绿 = Application.RandBetween(1, 255)
        黄 = Application.RandBetween(1, 255)
        rg.Areas(1)(x).Interior.Color = RGB(红, 绿, 黄)
        rg.Areas(2)(y).Interior.Color = RGB(红, 绿, 黄)
        arr3(y) = 1
        GoTo 10
        End If
     Next y
10:
Next x
End Sub

注:修改代码中K的值即可在几种核对模式中切换(1是普通核对,2是单色一对一核对,3是多色一对一核对)


Sub 核对()

Dim k

k = 3

If k = 1 Then

普通核对

ElseIf k = 2 Then

单色一对一核对

ElseIf k = 3 Then

多色一对一核对

End If


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

excel两列数据找重复(1秒找出两列数据差异) 

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

excel两列数据找重复(1秒找出两列数据差异) 

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

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

本文内容由互联网用户自发贡献,该文观点仅代表作者本人。号仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 3252784850@qq.com 举报,一经查实,本站将于三个工作日内删除本文链接:https://www.cawinemall.com/ban/7523.html

(0)

相关推荐

  • excel表格如何换行(excel表格如何换行不换单元格)

    一、自动换行方式一: 1、如果下图所示位置,开始菜单下方功能区,找到自动换行并点击:   2、自动换行效果可以参考下图。如果需要取消自动换行,选择中单元格,再次点击即可关闭。   二、自动换行方式二: 1、选择中需要自动换行的表格,可以多个或单个,点击鼠标右键,弹出菜单如下:   2、点击菜单中的设置单元格格式,新弹出“设置单元…

    2023年4月1日
    0
  • word转换ppt方法(word转为ppt的超简单方法)

    在工作中,我们经常会制作ppt,而在制作PPT之前,我们首先会在Word文档中先整理一份文案大纲,然后再开始设计幻灯片。这样的文案不用太详细,只需要有着清晰的结构。那我们在Word中制作好文案后又该如何快速地将word文档大纲放到PPT中呢? 这里小绘就来为大家分享一下「Word转PPT」方法!一起来看看吧!   1、首先,我们要在word文档中把…

    2023年4月8日
    0
  • 如何两个word文档左右分屏(如何分屏查看两个不同的文档)

    简介:如果要比较两份文档的异同,可以使用分屏查看功能。Word中提供了分屏查看两个不同文档的功能,下面小编给大家简单的介绍一下。 工具:Word2013 步骤: 第一步:分布打开两份word文档,其中一份最小化。 第二步:点击其中一份word文档的【视图】选项卡 第三步:点击【并排查看】 图1 效果如图所示: 图2 点击一起滚动按钮,可以使两屏一起滚动 图3…

    2023年4月6日
    0
  • excel设置条件格式(Excel中用公式设置条件格式)

    如果系统自带的条件格式选项满足不了你的需求,试试“使用公式确定要设置格式的单元格”。 如果仍然解决不了,那一定是公式还没有学好,哪有解决不了的问题呢? 条件格式选项 使用公式的要点: 公式的运算结果只能是TRUE或FALSE. TRUE执行条件格式,FALSE不执行。 条件格式的执行范围取决于两点:框选的范围;公式的锁定$ 与下拉菜单互动 =$A2=$F$2…

    2023年4月5日
    0
  • excel表格日期自动顺序排列(excel表格日期自动顺序排列教程)

    最近有个网友向鲁思提问,怎么在Excel表格中以每20分钟的间隔进行自动排序?这实际是属于向下填充的操作。 下面我们举个例子来讲解一下它的操作方法。 比较简单,看一遍就能记住!   上图中的表演时间和结束时间都是20分钟的间隔。 首先我们在表演时间列下的D2与D3单元格中输入需要的时间,并间隔20分钟。   然后拉取刚才输入的两个单元格,…

    2023年3月28日
    0
  • excel折叠了好多行怎么展开(excel行折叠了怎么统一展开)

    在我们平时使用Excel表格时,有时候会用到一些特殊功能,其中为了方便查看,往往需要将一些行或者列折叠起来,这样在查看其它单元格数据的话会更轻松。那么Excel中如何折叠或展开行或列呢?下面我们就来学习一下。 打开一个excel表格,我们选中需要折叠的几行:   >>免费升级到企业版,赠超大存储空间 选择工具栏上的【数据】,在下拉菜单中…

    2023年4月6日
    0
  • excel表格锁定了怎么解锁(excel表格锁定了解锁办法)

    相信每个人都遇到过这种情况,本来是出于安全原因,为Excel工作表设置了密码,但很长一段时间后,就忘记了密码。这样我们的数据就无法编辑或复制。那么有没有办法能够清除密码呢?接下来,跟着小绘一起看看如何清除掉工作表密码吧!   1、第一步我们先选中需要清除密码的表格文件,单击鼠标右键,然后选择“重命名”,将“.xlsx”表格文件的后缀名改成“.rar…

    2023年4月1日
    0
  • excel函数vlookup怎么用(excel函数vlookup详解)

    一、根据姓名查找职务 =VLOOKUP(①查找值,②在哪个区域查找,③返回区域中第几列,④匹配方式(0精确/1模糊)) =VLOOKUP(F2,A:D,4,0)   二、根据姓名按顺序查找多列对应值 =VLOOKUP(①查找值,②在哪个区域查找,③返回区域中第几列,④匹配方式(0精确/1模糊)) =VLOOKUP($F2,$A:$D,COLUMN(…

    2023年4月5日
    0
  • excel表格复制到word后怎么保持原格式

    在我们的工作学习中,经常需要将文件格式进行转换,你还在复制粘贴吗?下面学会这4招,10秒搞定Word、Excel、PPT格式转换。   01.Word转Excel 第一步:首先打开Word文档,点击【另存为】,将文档格式类型设置为“网页”,并保存到桌面。   第二步:新建一个Excel表格,将桌面上的网页文件拖拽进表格中,这样就能完成转换…

    2023年4月9日
    0
  • 名次怎么算excel公式(名次怎么算excel函数)

    1.单列排名(降序) 公式:=SUMPRODUCT((C2<$C$2:$C$13)/COUNTIF($C$2:$C$13,$C$2:$C$13))+1   2.分组排名(降序) 公式:=SUMPRODUCT((C2<$C$2:$C$14)*(A2=$A$2:$A$14)/COUNTIFS($A$2:$A$14,$A$2:$A$14,$C…

    2023年4月1日
    0