求助：如何用vba实现数据量很大的多条件查找

wenbai0626

请教各位大神，表里面的数据量比较大，直接用xlookup和vlookup函数经常会表格卡死，请问有没有比较轻量级的vba代码可以实现以下的匹配查找功能呢

根据数据源表里面的序号和首次转人工时间这两个字段，将匹配的是否转接结果放在结果表中
不胜感激！

shiruiqiang

百万级以下vba，以上sql

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.5.7
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
5.     p = ThisWorkbook.Path
   
6.     f = p & "\数据源.xlsx"
   
7.     Set wb = Workbooks.Open(f, 0)
   
8.     With wb.Sheets("Sheet1")
   
9.         arr = .UsedRange
   
10.         wb.Close False
    
11.     End With
    
12.     For i = 2 To UBound(arr)
    
13.         s = CStr(arr(i, 1)) & "|" & CStr(arr(i, 2))
    
14.         d(s) = arr(i, 3)
    
15.     Next
    
16.     With sh
    
17.         r = .Cells(Rows.Count, 1).End(3).Row
    
18.         arr = .[a1].Resize(r, 3)
    
19.         ReDim brr(1 To r, 1 To 1)
    
20.         For i = 2 To UBound(arr)
    
21.             m = m + 1
    
22.             s = CStr(arr(i, 1)) & "|" & CStr(arr(i, 2))
    
23.             If d.exists(s) Then
    
24.                 brr(m, 1) = d(s)
    
25.             End If
    
26.         Next
    
27.         .[c2].Resize(m, 1) = brr
    
28.     End With
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "OK！"
    
31. End Sub
    
32. 
    

复制代码