Application.WorksheetFunction.VLookup不匹配错误

If Not IsError(Application.WorksheetFunction.VLookup(SRange(z, lastC), sWks.range("$D:$G"), 3, False)) Then or cells(1,1) = Application.WorksheetFunction.VLookup(SRange(z, lastC), sWks.range("$D:$G"), 3, False) or On Error Resume Next m1 = Application.WorksheetFunction.VLookup(SRange(z, lastC), sWks.range("$D:$G"), 3, False) If m1 > 0 Then Cells(e, 3).Value = "Yes" Else Cells(e, 3).Value = "No" End If 

一直返回Run-time error '1004′: Unable to get the VLookup property of the WorksheetFunction class如果不匹配条目

如何捕捉这个错误或解决这个问题的另一种方式？

Answer 1

只要使用Application.VLookup而不是Application.WorksheetFunction.VLookup

工作表function。 如果它们失败，则function_name版本总是返回运行时错误，而应用程序。 function_name版本返回一个您可以testing的错误值 。