数据比对

olin12345

求助：两列数据比对，并填入对应的序号

chxw68

解法一：字典法

无关岁月

副本数据对比5.7z (18.76 KB, 下载次数: 25)

2023-11-30 10:31 上传

点击文件名下载附件

ykcbf1100

参与一下。。。

chxw68

1. Sub test2()
   
2.     Dim sql As String
   
3.     Dim mybook As String
   
4.     Dim cnn As Object
   
5.     Dim rs As Object
   
6.     Set cnn = CreateObject("adodb.connection")
   
7.     Set rs = CreateObject("adodb.recordset")
   
8.     mybook = ThisWorkbook.FullName
   
9.     With cnn
   
10.         If Application.Version = "11.0" Then
    
11.             .Provider = "microsoft.jet.oledb.4.0"
    
12.             .ConnectionString = "extended properties=""excel 8.0;HDR=YES;IMEX=1"";data source=" & mybook
    
13.         Else
    
14.             .Provider = "microsoft.ACE.oledb.12.0"
    
15.             .ConnectionString = "extended properties=""excel 12.0;HDR=YES;IMEX=1"";data source=" & mybook
    
16.         End If
    
17.         .Open
    
18.     End With
    
19.     sql = "select a.* from [sheet1$a2:b] a where a.班级 not in (select 班级 from [sheet1$d2:d] where not isnull(班级))"
    
20.     rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
    
21.     With Worksheets("sheet1")
    
22.         .Range("f3").CopyFromRecordset rs
    
23.     End With
    
24. End Sub
    

复制代码

chxw68

添加了解法二：SQL解法。

Learner2022

=IFERROR(INDEX(A:A,IF(ISNA(XMATCH(B2,D:D)),A2,"无")+2),"")和=IFERROR(INDEX(B:B,IF(ISNA(XMATCH(B2,D:D)),A2,"无")+2),"")函数就可以做了，不用VBA

tanglf188

olin12345

谢谢上面的各位老师，感谢帮助，今天没花花了，明天补齐。
单列的对比搜索案例能对比出来，就是没搞懂怎么连接，老师们“丨”方法学习了。

cyq4896

参与一下..