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单元格大小统一)

    首先我们看到下面这个表格的单元格都是不一样大的,下面就来改变它:   首先我们先选择行高,如下图所示:   然后右击,选择行高:   设定一个行高,选择确定:   然后我们选择列宽,如下图:   右击选择列宽,具体操作如下图所示:   设定一个列宽,点击确定:   这样所有的单元格的大小就…

    2023年4月9日
    0
  • excel格式在哪里(excel格式设置)

    大家有没有发现,我们经常使用到Excel中的“设置单元格格式”,一般有两种方法。 一种点击鼠标右键,选择“设置单元格格式”,即可进入;另一种,使用快捷键“Ctrl+1”可以快速调出“设置单元格格式”窗口。 下面我就介绍在“设置单元格格式”中,可以快速实现的一些实用小技巧,保证工作中的你经常使用。 1、批量添加下划线:选择需要添加下划线的区域,按Ctrl+1调…

    2023年4月7日
    0
  • 两个单元格内容合并到一个格子(excel如何合并两个单元格内容)

    大家经常会到用Word办公软件,在word中制作简历、任务资料等这些简单的表格,在制作好一个大概的表格框架后,我们有时需要合并一些单元格,让表格达到自己想要的效果。那么在合并单元格的时候需要怎么操作呢?下面就让我们一起来看看操作的步骤吧! 一、打开Word文档,在表格中选中需要合并的多个单元格。   二、在主界面的“布局”选项卡中找到“合并单元格”…

    2023年4月5日
    0
  • word插入文件(word插入文件详细教程)

    欢迎观看 Microsoft Word 中文版教程,小编带大家学习 Microsoft Word 的使用技巧,了解如何在 Word 中创建文档、添加和编辑文本。 创建文档,打开 Word,选择「空白文档」。   开始键入。   使用模板创建文档,选择「主页」。   选择「新建」,双击打开模板,单击并开始键入。   添加…

    2023年4月8日
    0
  • excel跨多个表格求和(excel跨多个表格求和公式)

    我们在日常的工作中有时会遇到跨工作表快速汇总求和的情况,就是在WPS的Excel表格中有多个工作表,需要对多个工作表进行数据求和。今天就跟大家分享一下在Excel中如何跨工作表快速汇总求和。 今天就以员工工资汇总为例,跟大家分享一下如何跨工作表快速汇总求和。其实,在Excel中跨工作表快速汇总求和分两种情况:要求和的子工作表格式完全相同;要求和的子工作表顺序…

    2023年4月1日
    0
  • 计数公式excel函数(计数公式excel函数怎么用)

    我们知道,Count的英文意思是计数,数数的意思。所以excel的计数函数,基本上都是以count开头的,如下图所示:   上面这些不同的计数函数有不同的功能,我们大致可以分为两类: 一类是对所有数据进行计数的,只不过计数的对象不一样。 这类是: count,计数所有的包含数字的单元格 counta,计数所有的非空单元格 countblank,计数…

    2023年3月28日
    0
  • excel百分比怎么做(Excel表格如何求百分比)

    环境不会改变,解决之道在于改变自己。——继续学习的一天 今天来介绍一个比较基础的小知识,在excel表格中,如何计算一组数据的百分比? 如下图,作者要计算”蛇形金色耳钉“在产品总销量中的占比,占比的表现形式即是百分比,用数学符号来表示,就是“%”。   那么首先我们需要计算出”蛇形金色耳钉“的总销量,这个属于条件求和,使用sumif函数便可以轻松搞…

    2023年4月10日
    0
  • excel表格两列数据对比相同(1秒找出两列数据差异)

    两列数据找差异,我们一般都是用条件格式 – 突出显示单元格格规则 – 重复值来快速完成。   但如果同一列中有重复值 ,核对结果就出错了。   小编多年以来一直想解决这个问题,直到昨天,兰色用VBA编写了一个新功能,完美的解决了两列核对的问题。 选中两列按Ctrl + m即可找出两列重复值。   做会计工…

    2023年4月7日
    0
  • 同时满足两个条件返回一个值(excel双条件查找的6种方法)

    大家好,今天和大家分享“双条件查找的6种方法”,根据产品名称和规格查找销量 一、解法1:Sumprodutct实现 1、公式截图 2、公式 =SUMPRODUCT((A2:A10=E2)*(B2:B10=F2)*(C2:C10)) 3、公式解释||更多Excel学习和问题请加群:289393114、570064677 同是满足产品名称是A,规格是小号,然后再…

    2023年4月9日
    0
  • excel怎么拟合曲线方程(excel怎么拟合曲线图)

    1、前言 上周调试一款设备,测量几种气体浓度,传感器的实测值不尽如人意,需要利用测量值和标准值拟合出最终的显示值,用到了EXCEL曲线拟合功能。如果不需要现场标定,在出厂前就进行数据拟合的话,这个功能用起来还是很方便快捷的。 2、操作方法 2.1、绘制散点图 首先选中下图箭头所指的数据源(注意测量值和标准值的相对位置,这种情况下生成的公式是将测量值作为输入x…

    2023年4月9日
    0