在日常工作中,我们经常需要处理大量的Excel数据,有时候会出现需要对两份表格进行比对筛选相同项的情况。本文将介绍如何使用Excel自带的功能以及VBA编程实现两份Excel表格的相同项筛选。
一、 使用Excel自带的功能
如果只是需要比对简单的几个列,可以使用Excel自带的条件格式和筛选功能来实现。具体步骤如下:
1. 将两个表格分别打开,选中其中一个表格中要比对的列(假设为A列)。
2. 点击“开始”菜单中的“条件格式”,选择“突出显示单元格规则”-“重复项”。
3. 在弹出的窗口中,选择“此列中的重复项”,并选择样式。
4. 再次选中要比对的列(假设为B列),点击数据菜单中的“高级”按钮,在弹出的窗口中选择“复制到其他位置”,将要比对的列(B列)和一个空白列(假设为C列)复制到另一个空白工作表格中。
5. 在第二个表格中选中要比对的列(C列),点击“数据”菜单中的“筛选”按钮,并选择“筛选器”-“筛选重复项”,在弹出的窗口中勾选要比对的列(C列)并点击“确定”。
6. 筛选后就能看到第二个表格中与第一个表格中相同的数据了。
二、 使用VBA编程实现
如果需要比对的列比较多,使用Excel自带的功能就不太方便了,此时可以使用VBA编程实现。具体步骤如下:
1. 打开需要比对的两个表格,按Alt+F11打开VBA编辑器。
2. 在VBA编辑器中点击“插入”菜单中的“模块”,在新建的模块中输入以下代码:
Sub CompareAndCopy()
Dim sht1 As Worksheet, sht2 As Worksheet
Dim arr1 As Variant, arr2 As Variant
Dim i As Long, j As Long, k As Long, l As Long
Set sht1 = Workbooks("Workbook1.xlsx").Worksheets("Sheet1") '将“Workbook1.xlsx”和“Sheet1”替换为要比对的第一个表格名称和工作表名称。
Set sht2 = Workbooks("Workbook2.xlsx").Worksheets("Sheet1") '将“Workbook2.xlsx”和“Sheet1”替换为要比对的第二个表格名称和工作表名称。
arr1 = sht1.Range("A1:C100").Value '将“A1:C100”替换为要比对的第一个表格的范围。
arr2 = sht2.Range("A1:C100").Value '将“A1:C100”替换为要比对的第二个表格的范围。
k = sht2.Range("A1").End(xlDown).Row '获取第二个表格最后一行的行号。
l = 1 '初始化第三个表格的行号。
For i = 1 To UBound(arr1, 1)
For j = 1 To UBound(arr1, 2)
If arr1(i, j) = arr2(i, j) Then
If j = UBound(arr1, 2) Then
sht2.Range("D" & k + 1).Value = arr2(i, j)
sht2.Range("E" & k + 1).Value = k
k = k + 1
End If
Else
Exit For
End If
Next j
Next i
For i = 1 To UBound(arr2, 1)
If Not IsEmpty(sht2.Range("D" & i)) Then
For j = 1 To UBound(arr2, 2)
sht2.Range("F" & l).Value = arr2(i, j)
l = l + 1
Next j
End If
Next i
End Sub
3. 将代码中的“Workbook1.xlsx”、“Sheet1”、“A1:C100”、以及“Workbook2.xlsx”、“Sheet1”、“A1:C100”替换为要比对的两个表格和要比对的列的范围。
4. 执行代码,即可将第二个表格中与第一个表格中相同的数据复制到一个新的工作表格中。
以上是两种比对两份Excel表格中相同项的方法,如果是要比对较简单的几列,建议使用Excel自带的功能;如果需要比对的列比较多,可以使用VBA编程实现。不管哪一种方法,都能有效地帮助我们处理Excel数据中的常见问题。
本文地址: :,,。以上内容关于筛选两份excel相同项(筛选两个excel表格中相同的内容)
6 年前,的上线,几乎是一夜之间,拉动了微信用户绑定了 2 亿张银行卡,生生从阿里看似固若金汤的地盘上抢下山头,如今已是分庭而治之势。 此事给阿里带来的震动是核弹级别的,本以为已经结束的网络支付战争硝烟再起,马云痛斥此事为「珍珠港偷袭」,可见微信红包的奇袭打得阿里有多痛。反过来也说明,微信红包这一...
拆分了一下鹅厂工资构成,根据岗位和水平,基本工资再19k-22k,18薪,每个月房补4k,股票也是分等级6-22万,分两年发,签字费3w。这样算下来,低的有40万,高的有60万。上管拿40万的这种叫白菜价; 有以下几方面的原因: 1、最需要的不是经验,而是创新。 比如金融、地产行...
随着直播热度不断增加,越来越多的人要想申请加入淘宝直播,很多人都很关心怎样才能加入淘宝直播,下面就给大家讲下成为淘宝直播的要求吧。 第一,必须要有一个绑定了实名认证的淘宝账号 第二,根据账号属性的不同,具体的要求也不同,具体如下: 非商家且是个人主播,基本门槛满足一下两个条件即可: 条...
很多朋友都在上找项目,有的朋友也被割过韭菜,因为做互联网的人没有谁是没被割过韭菜的,有的韭菜终有一天会茁壮成长,有的韭菜肯定会被无情的镰刀割到你怀疑人生。 韭菜就是被割的,你不割它会烂在地里。韭菜内心愤愤不平,继续辗转到下一块地再次茁壮生长,殊不知,山顶、山腰、山谷都可以割,而且镰刀更加锋利。...
传统行业一般通过地图、独立、小程序和4种方法进行拓展客户。传统行业拓展渠道很难,即使有一小部分拓展成功的传统,也是一路跌跌撞撞被骗了无数次,兜兜转转绕了无数圈,才能拨开重重迷雾,真正建立起来网络获客渠道。一路上弯路很多,忽悠的人也很多,因为个人也是这样一路走过来的。过时的推广方法前几天忽然有人加好友...
Hugging Face公司的提供了向全网开放DALL·E Mini的demo。输入一个英文描述,生成对应的图片,可以天马星空的描述,比如:A zebra that looks like a corgi(看起来像柯基犬的斑马),或者Court sketch of godzilla on tr...
不思议迷宫第五期挑战迷宫怎么完成,下面就给大家分享一下挑战迷宫攻略。 第五期挑战迷宫开始了,这一期的挑战迷需要通关混沌深渊后方可开启,新迷宫以冒险者之森为原型,本次挑战最少需要打两次挑战迷宫即可完成。除了不使用灵魂链接达到80层一项外,都可以在1次内完成。 第一次用王昭君...
互联网发展迅速,许多企业都有自己的网站,网站的运营就需要去推广,那么下面为大家讲解一下网络推广的方法,希望对大家有帮助。1,搜索引擎推广法。seo技术在网络推广中已经广泛应用,利用 互联网发展迅速,许多企业都有自己的网站,网站的运营就需要去推广,那么下面为大家讲解一下网络推广的方法,希望对大家有帮...
多数人去养君子兰就是为了看它开花,让它的叶片长的宽大油亮,不会黄叶,在家中观赏才会更漂亮,但是自己去买回来养的过程中,要么叶片长得不好,要么到了花期不开花,根本就养不好君子兰。现在 多数人去养君子兰就是为了看它开花,让它的叶片长的宽大油亮,不会黄叶,在家中观赏才会更漂亮,但是自己去买回来养的过程中...
我们都知道,流量是电商的命脉,没有流量的淘宝店铺就相当于没有人流的超市。产品再多,也无人购买,也更没有销售额的产生。正是因为如此,流量是我们卖家一直所追求的,只有有了流量我们的店铺 我们都知道,流量是电商的命脉,没有流量的淘宝店铺就相当于没有人流的超市。产品再多,也无人购买,也更没有销售额的产生。...
百度到目前为止拥有超过8亿万用户,是巨大的流量池,利用好它可以帮助广告主实现产品的变现和产品的转化。所以,我们一起来看下关于百度产品推广效果这方面的知识点吧。一、百度产品推 百度到目前为止拥有超过8亿万用户,是巨大的流量池,利用好它可以帮助广告主实现产品的变现和产品的转化。所以,我们一起来看下...
有人说扬州属于经济强的苏南,更多人说属于经济弱的苏北。如果以长江而论,当然属于苏北。但争来争去终于给扬州,甚至泰州、南通等地。找到一个当地人感觉有面子而苏北苏南地域人们又都认可的说 有人说扬州属于经济强的苏南,更多人说属于经济弱的苏北。如果以长江而论,当然属于苏北。但争来争去终于给扬州,甚至泰州、...
现代潮流真的是变化太大,以往不是的主流单品开始成为女性的穿衣必备,还时常被拿来当作日常穿搭,真是叫人大开眼界,就拿睡衣来说吧,利用材质还有时尚元素的特殊性,让整个造型变得更加惊艳吸 现代潮流真的是变化太大,以往不是的主流单品开始成为女性的穿衣必备,还时常被拿来当作日常穿搭,真是叫人大开眼界,就拿睡...
对于大佬们的一举一动,一直以来都备受热议,如今马云和刘强东等人的套现离场,更是让很多人议论不已,他们为什么要套现选择移居国外生活呢?对于这种现象,网友们也是众说纷纭,大家看待这件事的角度还是不同的。有人认为,不管是多么正 对于大佬们的一举一动,一直以来都备受热议,如今马云和刘强东等人的套现离场...
转眼一个月又过去了,2022年已经过去一半。按照惯例,今天芝麻科技讯更新一下手机CPU天梯图。本月芯片厂商发布的新处理器不多,所以文章相对简单一些,手机CPU天梯图2022年6月最新版来了,快来看看都有哪些新变 转眼一个月又过去了,2022 年已经过去一半。按照惯例,今天芝麻科技讯更新一下手机CP...