excel中用宏（VBA）实现VLOOKUP

Question

=VLOOKUP(C2,表2!A:B,2,)

Answer 1

只查一个没意义，写代码的目的就是批量查，示例代码：

Option Explicit

Sub 宏1()
    Dim db, arr, i, rlt
    Set db = CreateObject("Scripting.Dictionary")
    arr = Sheets("表2").UsedRange
    For i = 1 To UBound(arr)
        db(Trim(arr(i, 1))) = Trim(arr(i, 2))
    Next i
    arr = Sheets("表1").UsedRange
    ReDim rlt(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        If db.Exists(Trim(arr(i, 3))) Then rlt(i, 1) = db(Trim(arr(i, 3)))
    Next i
    Sheets("表1").Range("d1").Resize(UBound(rlt), 1) = rlt
End Sub

Answer 2

=Application.vlookup(C2,Sheets("表2").Range("A:B"),2,0)追答

=Application.vlookup(Range（"C2"）,Sheets("表2").Range("A:B"),2,0)