求助大佬！ vba多表格匹配大数据

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.28
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("1")
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> sh.Name Then
   
7.             With sht
   
8.                 r = .Cells(Rows.Count, 1).End(3).Row
   
9.                 arr = .[a1].Resize(r, 2)
   
10.             End With
    
11.             For i = 2 To UBound(arr)
    
12.                 s = arr(i, 1)
    
13.                 d(s) = arr(i, 2)
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     With sh
    
18.         r = .Cells(Rows.Count, 1).End(3).Row
    
19.         arr = .[a1].Resize(r, 3)
    
20.         For i = 2 To UBound(arr)
    
21.             s = arr(i, 1)
    
22.             If d.exists(s) Then
    
23.                 arr(i, 3) = d(s)
    
24.             End If
    
25.         Next
    
26.         .[c1].Resize(r, 1) = Application.Index(arr, 0, 3)
    
27.     End With
    
28.     Set d = Nothing
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "OK！"
    
31. End Sub
    
32. 
    

复制代码

jjmysjg

ykcbf1100 发表于 2024-7-28 21:13
参与一下。。。

.[c1].Resize(r, 1) = Application.Index(arr, 0, 3)
这句。麻烦老师指导一下

幽默的熊

ykcbf1100 发表于 2024-7-28 21:13
参与一下。。。

感谢大佬参与, 真的学到了很多

幽默的熊

yanglinzi 发表于 2024-7-28 16:28
请测试。。。

万分感谢大佬

幽默的熊

yanglinzi 发表于 2024-7-28 16:27

感谢大佬 学到了!