求助大神，怎么用VBA多条件查重复

bobosieg

附件表中的数据，表一和表二，我要查表一中的人有多少包含在表二中，因为表二有多列名字和身份证。我要用什么办法，或者VBA怎么编写代码来实现，结果显示在表一的第三列就好

bobosieg

求大神和各位老师帮忙，做这个做得快疯了

鄂龙蒙

查询结果.rar (1.72 MB, 下载次数: 10)

2019-10-17 11:34 上传

点击文件名下载附件

鄂龙蒙

1. Sub 查询()
   
2.     Range("C3:C10000") = ""
   
3.     Dim i, arr, d As Object
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     arr = Sheet4.Range("A1").CurrentRegion
   
6.     For i = 2 To UBound(arr)
   
7.         d(arr(i, 1) & arr(i, 2)) = ""
   
8.         d(arr(i, 3) & arr(i, 4)) = ""
   
9.     Next
   
10.     arr = Range("A2").CurrentRegion
    
11.     For i = 2 To UBound(arr)
    
12.          If d.exists(arr(i, 1) & arr(i, 2)) Then Cells(i + 1, 3) = "表2中有"
    
13.     Next
    
14.     Set d = Nothing
    
15. End Sub

复制代码

大灰狼1976

表2的户主姓名和身份证信息在成员列里面也会出现，所以可以不用考虑户主姓名和身份证信息（A列和B列）。结果参考附件。

xiangbaoan

………………

bobosieg

大灰狼1976 发表于 2019-10-17 11:51
表2的户主姓名和身份证信息在成员列里面也会出现，所以可以不用考虑户主姓名和身份证信息（A列和B列）。结 ...

大神，用你的公式做出来了，我看了下，和你说的一样，数据应该准确。不过我很奇怪的是，为什么和用代码做出来的数据对不上。楼上老师的代码也可以做出来，不过总数和公式的有差距，代码的人数少一点。