恳请大神们帮忙提供一个查询代码

qiongmei6

我想在附件中求得一个代码，根据c列的身份证号如果在ab列找不到资料，则在d列显示“没资料”，如果c列中的身份证号和ab列的身份证号一致，但是b列和ad列不一致，则在d列提示“数据不一致”，目前的d列就是我希望代码执行后得到的结果，非常谢谢各位大神的帮忙

蓝桥玄霜

资料的例子：

rysxing

jsa，试试。。。。。。

哈喽哈哈1

1. Sub 查询()
   
2.     Dim ws As Worksheet
   
3.     Set ws = ThisWorkbook.Sheets("享受工龄名单")
   
4.    
   
5.     Dim lastRow As Long
   
6.     lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
   
7.    
   
8.     Dim i As Long, j As Long
   
9.     Dim found As Boolean
   
10.     Dim id As String
    
11.     Dim name As String
    
12.    
    
13.     For i = 3 To lastRow
    
14.         id = ws.Cells(i, "C").Value
    
15.         name = ws.Cells(i, "B").Value
    
16.         found = False
    
17.         
    
18.         For j = 3 To lastRow
    
19.             If ws.Cells(j, "AB").Value = id Then
    
20.                 found = True
    
21.                 If ws.Cells(j, "AD").Value <> name Then
    
22.                     ws.Cells(i, "D").Value = "数据不一致"
    
23.                 Else
    
24.                     ws.Cells(i, "D").Value = "资料一致"
    
25.                 End If
    
26.                 Exit For
    
27.             End If
    
28.         Next j
    
29.         
    
30.         If Not found Then
    
31.             ws.Cells(i, "D").Value = "没资料"
    
32.         End If
    
33.     Next i
    
34. End Sub
    

复制代码