[已解决]如何用VBA代替 VLOOKUP公式，用VBA无法匹配全部

linshi88

如何用VBA代替 VLOOKUP公式，参考别人帖子VBA代码无法匹配到全部数据，麻烦高手帮我看一下 谢谢了

最佳答案

月排行榜 / 总排行榜

砂海

2017-8-7 08:54

大小写 的问题 . 要看楼主的实际要求

跳转到最佳答案楼层

windyjw007

看看结果对不对吧！{:2112:}

1. Sub test()
   
2.     Dim d As Object
   
3.     Dim ar, br
   
4.     Dim i As Long
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     ar = Sheets(1).Cells(1, 1).CurrentRegion
   
7.     br = Sheets("数据").Cells(1, 1).CurrentRegion
   
8.     For i = 2 To UBound(br)
   
9.         If Not d.exists(br(i, 1)) Then d.Add br(i, 1), i
   
10.     Next i
    
11.     For i = 2 To UBound(ar)
    
12.         If d.exists(ar(i, 1)) Then
    
13.             ar(i, 2) = br(d(ar(i, 1)), 2)
    
14.             ar(i, 3) = br(d(ar(i, 1)), 3)
    
15.             ar(i, 4) = br(d(ar(i, 1)), 4)
    
16.         End If
    
17.     Next i
    
18.     With Sheets(1).Cells(1, 1)
    
19.         .Resize(Rows.Count, 4).ClearContents
    
20.         .Resize(i - 1, 4) = ar
    
21.     End With
    
22. End Sub

复制代码

linshi88

windyjw007 发表于 2017-8-6 20:39
看看结果对不对吧！

提示 下标越界

linshi88

linshi88 发表于 2017-8-6 20:44
提示 下标越界

麻烦在帮我看一下，谢谢。用公式可以匹配300多条数据，用vba只能匹配到几十条

砂海

大小写 的问题 . 要看楼主的实际要求