怎样快速在两个工作表中进行人名比对,并找出其中重复的

虎哥儿

我有两个工作表, A表B列是3000个左右的人名, B表B表是40000个左右的人名, 现在我想查A表的人名在B表中是否重复, 用的办法是逐个比对法, 但是太慢了, 请问有没有比较快速的办法?

superway0

有2种方法，
1，使用Vlookup公式，如果可以对应找到的姓名，则是重复，如果是#N/A，则不是重复
2.使用数据透视表，用计数项，如果大于1，则有重复项
如果其他达人有更好的方法，欢迎分享

linzhanjunman

上传个附件吧，大家一起讨论

7121997

superway0 发表于 2013-2-21 20:35
有2种方法，
1，使用Vlookup公式，如果可以对应找到的姓名，则是重复，如果是#N/A，则不是重复
2.使用数据 ...

用countif吧
直接计数，>=1的是重复的

虎哥儿

如果是身份证号的话, 用countif()有的会提示重复, 但实际上不重复.

dajiahaoxinku12

合并计算也是个不错的方法

虎哥儿

我想用代码解决, 下面是其中的一段, 可是一运行就提示不能取得类WorksheetFunction的match属性.
For i = 1 To rm
  sfzh = xs(i)
  With Application.WorksheetFunction
     m = .Match(sfzh, Sheet2.Range("A2:A65536"), 0)
     If IsNumeric(m) = "true" Then
         a = a + 1
         m = .Match(sfzh, Sheet2.Range("A2:A65536"), 0) + 1  '查找当前合同号在年末结息表中的位置

         Sheets("待查身份证号").Cells(i + 1, 2).Interior.ColorIndex = 6      '黄色
         Sheets("中职汇总").Cells(m, 2).Interior.ColorIndex = 3      '红色
         If Cells(i + 1, 2).Comment Is Nothing Then
           Cells(i + 1, 2).AddComment '插入批注
           Cells(i + 1, 2).Comment.Text Text:="身份证号码重复(第" & i + 1 & "行和第" & m & "行)" & Chr(10)
         Else
           Cells(i + 1, 2).Comment.Text Text:=Cells(i + 1, 2).Comment.Text & "身份证号码重复(第" & i & "人和第" & m & "人)"
         End If
         Sheets("查重结果").Cells(a + 1, 1) = xs(i)
         Sheets("查重结果").Cells(a + 1, 2) = Sheets("待查身份证号").Cells(i + 1, 3)
         Sheets("查重结果").Cells(a + 1, 3) = Sheets("待查身份证号").Cells(i + 1, 4)
         Sheets("查重结果").Cells(a + 1, 4) = Sheets("待查身份证号").Cells(i + 1, 5)
         Sheets("查重结果").Cells(a + 1, 5) = Sheets("待查身份证号").Cells(i + 1, 6)
         
         Sheets("查重结果").Cells(a + 1, 7) = Sheets("中职汇总").Cells(m, 2)
         Sheets("查重结果").Cells(a + 1, 8) = Sheets("中职汇总").Cells(m, 10)
         Sheets("查重结果").Cells(a + 1, 9) = Sheets("中职汇总").Cells(m, 12)
         Sheets("查重结果").Cells(a + 1, 10) = Sheets("中职汇总").Cells(m, 19)
     End If
  End With
Next i

虎哥儿

m = .Match(sfzh, Sheet2.Range("A2:A65536"), 0) 是查找定位的, 我想如果这个身份证号能定位的话就说明存在, 可不好用

201228

看完 虎哥儿 的VBA, 有种   法海不懂爱 的感觉，造孽啊