如何把两个EXCEL表格筛选相同数据中的相同名字筛选出来

来源：蜘蛛抓取(WebSpider) 时间：2017-04-22 05:56 标签： 表格筛选相同数据
you have been blocked查看: 402|回复: 3
如何把几个表中相同名字的信息筛选出来，并列到另一个表，请看附件
阅读权限10
在线时间 小时
各位老师们好，我要做一个年度文献申请表，想把多个表中包含相同信息的条数筛选出来，列在另一个表中。我昨天刚注册这个论坛，受益匪浅，我编程基础很差，从一位大侠的程序中拷贝下来一部分，现在可以实现在Sheet3(命名为“值筛选”)中，通过在申请时间、申请人名字那里输入信息，点击“信息匹配”可以出现相关条目。
但现在的问题是它只出现一条，找到一条符合条件的，就结束。请各位大侠指点一下，怎样能把符合条件的所有条目都列出来。
具体请看附件。
非常感激！！
15:10 上传
点击文件名下载附件
28.71 KB, 下载次数: 7
阅读权限95
在线时间 小时
Sub piPei()
& & Dim i As Long, j As Long, k As Integer, mySheet, endRow As Long, myC As Integer
& & Set Dic = CreateObject(&Scripting.Dictionary&)
& & myC = 1
& & endRow = Cells(65536, 1).End(3).Row
& & If endRow & Cells(65536, 2).End(3).Row Then
& && &&&endRow = Cells(65536, 2).End(3).Row
& && &&&myC = 2
& & End If
& & If endRow & Cells(65536, 3).End(3).Row Then
& && &&&endRow = Cells(65536, 3).End(3).Row
& && &&&myC = 3
& & End If
& & If endRow & Cells(65536, 4).End(3).Row Then
& && &&&endRow = Cells(65536, 4).End(3).Row
& && &&&myC = 4
& & End If
& & If endRow & Cells(65536, 7).End(3).Row Then
& && &&&endRow = Cells(65536, 7).End(3).Row
& && &&&myC = 7
& & End If
& & If endRow & Cells(65536, 9).End(3).Row Then
& && &&&endRow = Cells(65536, 9).End(3).Row
& && &&&myC = 9
& & End If
& & If endRow & Cells(65536, 12).End(3).Row Then
& && &&&endRow = Cells(65536, 12).End(3).Row
& && &&&myC = 12
& & End If
& & i = 2: cx = Cells(i, myC)
& & If Cells(i, myC) = && Then
& && &&&myC = (myC Mod 2) + 1
& & End If
& & If Cells(i, myC) && && Then
& && &&&For Each mySheet In Sheets
& && && && &If mySheet.Name && ActiveSheet.Name Then
& && && && && & For j = 2 To mySheet.Cells(65536, 1).End(3).Row
& && && && && && &&&If mySheet.Cells(j, myC) = cx Then
& && && && && && && && &For k = 1 To 12
& && && && && && && && && & Cells(i, k) = mySheet.Cells(j, k)
& && && && && && && && &Next k
& && && && && && && && &i = i + 1
& && && && && && &&&End If
& && && && && & Next j
& && && && &End If
& && &&&Next
& & End If
阅读权限95
在线时间 小时
&&&&&&&&&&&&&&&&&&&&&&&&
(25.68 KB, 下载次数: 14)
09:58 上传
点击文件名下载附件
阅读权限10
在线时间 小时
&&&&&&&&&&&&&&&&&&&&&&&&
太感谢了！是我想要的结果，非常感谢大神！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师怎么样把表格中相同的人名筛选出来
全部答案（共1个回答）
不用公式，用排序即可。
选定第一和第二列，用数据菜单的排序选项，将第二列姓名作为主要关键字，第一列分公司作为次要关键字（也可不用）。
排序后，形同名字的...
选中该列→排序→选项→字母排序→确定→确定。
选择筛选后，在筛选下拉菜单里有条件筛选，前提是你的列数据为日期格式的。如图：
把1号表人名标上唯一编号，同时，2号与3号每个人名编号与1号相同，那把1号现2、3分别对照就可找出了。
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区请教一个excel表的问题，如何从几张工作表中筛选符合条件的记录自动汇总到另外一张表？
具体要实现的是，如：在工作簿中有1-12月的单位工资表（表中有各个员工当月的工资信息条），在另外一张表中，能否实现在一个单元格中输入一个员工姓名，既能在下表中列出1-12月各张工资表中该员工的所有工资记录并列成表呢？（注：有可能该员工其中几个月没有领取工资，即每个月的领取工资人员名单是不一样的。）
在每张表上查询最终返回并列出记录的话，EXCEL常用操作及函数可能鞭长莫及，要用VBA了。
用vlookup函数应该是可以的 假设就是两个表，都在D:\\document\\目录下，一个是a.xls，一个是b.xls a.xls里ABCD列依次是名字、一月工资、二月工资，等等 那么在b.xls里 B1=IF(ISNA(VLOOKUP(A1,\D:\\document\\[a.xls]Sheet1\!A:E,2,FALSE)),\"\",VLOOKUP(A1,\D:\\document\\[a.xls]Sheet1\!A:E,2,FALSE)) C1=IF(ISNA(VLOOKUP(A1,\D:\\document\\[a.xls]Sheet1\!A:E,3,FALSE)),\"\",VLOOKUP(A1,\D:\\document\\[a.xls]Sheet1\!A:E,3,FALSE)) D1=IF(ISNA(VLOOKUP(A1,\D:\\document\\[a.xls]Sheet1\!A:E,4,FALSE)),\"\",VLOOKUP(A1,\D:\\document\\[a.xls]Sheet1\!A:E,4,FALSE)) 等等 然后选中B1、C1、D1往下拖动复制就行了，只要在A列输入姓名BCD等就会相应显示数据
下页更精彩：1
本文已影响人07-0609-1509-0907-24
02-1604-2203-2303-18
也许你感兴趣
1. 2. 3. 4. 5. 6. 7. 8. 9. 10.

我要回帖

更多关于 表格筛选相同数据 的文章

 

随机推荐