求助修改宏（用宏替代VLOOKUP)

monk

用宏替代VLOOKUP函数

林木水

1. Sub demo()
   
2. Dim i As Long, h As Long, arr, d As Object, brr
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("e2:f" & Sheet1.Range("f65536").End(xlUp).Row)
   
5. For i = 1 To UBound(arr)
   
6.     d(arr(i, 1)) = arr(i, 2)
   
7. Next i
   
8. h = Sheet2.Range("c65536").End(xlUp).Row
   
9. If h = 1 Then End
   
10.     brr = Sheet2.Range("a2:c" & h)
    
11.     For i = 1 To UBound(brr)
    
12.         brr(i, 3) = d(brr(i, 1))
    
13.     Next i
    
14.     Sheet2.Range("a2:c" & h) = brr
    
15. End Sub
    
16. 
    

复制代码

monk

林木水 发表于 2022-1-18 15:17

能代出，但是运行特别的慢，我想用宏替代VLOOKUP就是想加快运算速度，谢谢，还能改改吗

林木水

monk 发表于 2022-1-18 16:32
能代出，但是运行特别的慢，我想用宏替代VLOOKUP就是想加快运算速度，谢谢，还能改改吗

这个不慢了啊，基本上在一秒内