求帮助 VBA实现 vlookup的功能

taihuafighting

VBA新手，工作需要处理大量数据，如附件中的流水数据，我需要根据其中的商户订单号在订单数据表中找到与之相应的店铺名称，我尝试使用字典的方法来匹配，可是总是出错，在论坛中也看了不少贴子，还是不知道问题在哪，还希望能够有大神求助，多谢！

我自己尝试用的代码：

Sub 匹配数据()
    Dim arr, brr, crr(), d As Object, i&, r
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("订单数据").Range("A1").CurrentRegion
    For i = 2 To UBound(arr)
        d("" & arr(i, 10)) = i
    Next
    With Sheets("流水数据")
        brr = .Range("G2:G")
        ReDim crr(1 To UBound(brr))
        For i = 1 To UBound(brr)
            r = d("" & brr(i))
            If r <> "" Then
                crr(i, 1) = arr(r, 5)

         End If

        Next
        .[T2].Resize(i, 1) = crr
    End With
End Sub

lsc900707

1. Sub 匹配数据()
   
2.     Dim arr, brr, d As Object, i&
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("订单数据").Range("A1").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(Trim(arr(i, 10))) = arr(i, 5)
   
7.     Next
   
8.     With Sheets("流水数据")
   
9.         brr = .[a1].CurrentRegion
   
10.         For i = 2 To UBound(brr)
    
11.             If d.exists(Trim(brr(i, 7))) Then .Cells(i, 20) = d(Trim(brr(i, 7)))
    
12.         Next
    
13.     End With
    
14. End Sub

复制代码

taihuafighting

lsc900707 发表于 2018-9-29 05:28

多谢版主！！