转载：VBA中使用vlookup函数

VLOOKUP函数不是VBA函数，应写成Application.WorksheetFunction.VLookup()或者Application.VLookup()

Application.是引用工作表函数的方法，非VBA函数的工作表函数必须用这种方法，不能直接被VBA引用。

下面是使用案例：

Sub usevlookup()

    Cells(1, 2) = Application.VLookup(Cells(1, 1), Worksheets("imei出库日报").Range("A:D"), 4, 0)
    aa = Application.VLookup(Cells(2, 1), Worksheets("imei出库日报").Range("A:D"), 4, 0)
    'aa = Cells(1, 2)
    If Not Application.IsNA(aa) Then
        MsgBox aa
    Else
        MsgBox "not found."
    End If
End Sub