怎样快速进行两表姓名、身份证项对比并标识

总量控制

如何以姓名和身份证列为对比，并在其后标识。说明：如下两种情况，都也不能算是比对成功。（1）身份证相同，但姓名不同的（2）姓名相同，但身份证不同的。

chxw68

1. Sub test()
   
2.   Dim d As New Dictionary
   
3.   With Worksheets("表一")
   
4.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.     .Range("c1:c" & r).ClearContents
   
6.     arr = .Range("a2:c" & r)
   
7.   End With
   
8.   
   
9.   With Worksheets("表二")
   
10.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.     .Range("c1:c" & r).ClearContents
    
12.     brr = .Range("a2:c" & r)
    
13.   End With
    
14.   
    
15.   For i = 1 To UBound(brr)
    
16.     xm = brr(i, 1) & "+" & brr(i, 2)
    
17.     d(xm) = i
    
18.   Next
    
19.   
    
20.   For i = 1 To UBound(arr)
    
21.     xm = arr(i, 1) & "+" & arr(i, 2)
    
22.     If d.Exists(xm) Then
    
23.       arr(i, 3) = "都有"
    
24.       brr(d(xm), 3) = "都有"
    
25.     Else
    
26.       arr(i, 3) = "表二没有"
    
27.     End If
    
28.   Next
    
29.   
    
30.   For i = 1 To UBound(brr)
    
31.     If Len(brr(i, 3)) = 0 Then
    
32.       brr(i, 3) = "表一没有"
    
33.     End If
    
34.   Next
    
35. 
    
36.   With Worksheets("表一")
    
37.     .Range("c2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 3)
    
38.   End With
    
39.   
    
40.   With Worksheets("表二")
    
41.     .Range("c2").Resize(UBound(brr), 1) = Application.Index(brr, 0, 3)
    
42.   End With
    
43. End Sub
    

复制代码

chxw68

参见附件。

百度不到去谷歌

函数简单就做了 应该发到函数区
简单的match就行了 2者都配的用一个数组公式match
看附件 我只做了表1的 表2的反过来就行了
原创--百度不到去谷歌--QQ800871835

总量控制

请老师再帮忙一下,如果姓名在第三列,身份证在第10列,需要在第一列出现结果,如何修改代码?

wjh98

chxw68 发表于 2014-3-10 22:37
参见附件。

chxw68老师你好，如果表一证件号前8位与姓名与表二的证件号前8位与姓名相同，那么就视同一致了，代码该如果修改

TWENTY

研究一下。