用字典模拟Vlookup匹配取数

Qs18

试试...........

cai2532

留下脚印学习了

ykcbf1100

参与一下。

结果最好放到第三表去，现在这样只能查询一次，再次查询时结果已错。

ykcbf1100

参与一下。。。。

1. Sub ykcbf()   '//2024.8.25
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("表1")
   
5.     With sh
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         c1 = .Cells(1, "XFD").End(1).Column
   
8.         arr = .[a1].Resize(r, c1)
   
9.         ReDim crr(1 To 10000, 1 To c1)
   
10.     End With
    
11.     For i = 2 To UBound(arr)
    
12.         s = arr(i, 1) & "|" & arr(i, 2)
    
13.         d(s) = i
    
14.     Next
    
15.     brr = Sheets("表2").UsedRange
    
16.     On Error Resume Next
    
17.     With sh
    
18.         For i = 2 To UBound(brr)
    
19.             s = brr(i, 1) & "|" & brr(i, 2)
    
20.             If d.exists(s) Then
    
21.                 m = m + 1
    
22.                 For j = 1 To UBound(arr)
    
23.                     crr(m, j) = arr(d(s), j)
    
24.                 Next
    
25.                 crr(m, 5) = crr(m, 5) + brr(i, 4)
    
26.                 crr(m, 6) = crr(m, 6) + brr(i, 5)
    
27.             Else
    
28.                 m = m + 1
    
29.                 crr(m, 1) = brr(i, 1)
    
30.                 crr(m, 2) = brr(i, 2)
    
31.                 crr(m, 5) = brr(i, 4)
    
32.                 crr(m, 6) = brr(i, 5)
    
33.             End If
    
34.         Next
    
35.         .[a2].Resize(m, c1) = crr
    
36.     End With
    
37.     Set d = Nothing
    
38.     Application.ScreenUpdating = False
    
39.     MsgBox "OK！"
    
40. End Sub
    

复制代码

lizhipei78

excel1202 发表于 2024-8-24 22:59
需要的是取表二的数,加回到表一中，不是替换掉表一的数，请问如何修改代码，谢谢！

根据6楼的改一下即可

excel1202

rysxing 发表于 2024-8-24 23:48
试试。。。。。。

里面没有代码啊

excel1202

醉眼看尘世 发表于 2024-8-25 00:17

取出来的数不正确

excel1202

一招秒杀 发表于 2024-8-25 07:07
Full Join  1句全搞定，唉，比上面的代码简单太多了，简直是不要不要的。

数据几万行时速度太慢了，谢谢！

醉眼看尘世

excel1202 发表于 2024-8-25 13:51
取出来的数不正确

Dic(2)(tmPstr) = Dic(1)(tmPstr) + Arr(i, 5)改成Dic(2)(tmPstr) = Dic(2)(tmPstr) + Arr(i, 5)

excel1202

ykcbf1100 发表于 2024-8-25 08:26
参与一下。。。。

谢谢，但代码会修改表一其他单元格的数据。
要求只将数据加到表一的 E列、F列，在表二找不到表一时，添加到表一的最后一行的的 A列、B列和的 E列、F列。表一其他各列的数据不能修改。