vlookup错误处理，错误2042

Question

我正在尝试在VBA中使用Vlookup ，并且我有以下代码：

Dim Result As Variant

    For i = 2 To lastrow
        Result = Application.VLookup(Template.Range("A" & i).Value2, EDM.Range("B:BP"), 5, False)
        If IsError(Result) Then
            Template.Range("E" & i).Value2 = ""
        Else
            Template.Range("E" & i).Value2 = Result
        End If
    Next i

由于某种原因，每个单元格都变成空白。 如果我在具有匹配项的单元格中手动键入公式，则效果很好。 我猜想它与错误处理有关，也许吗？ 目的是对照EDM列B在Template的A列中查找值，并返回EDM列G。

Answer 1

你是对的，它关系到你的错误处理，你需要捕获VLookup错误有点不同，通过使用If IsError(Application.VLookup...)

注意 ：在您的文章中，您正在编写“ EDM列B”对比；在代码中，您编写了EDM.Range("B:BP") ，那是哪一个？

试试下面的代码：

Dim Result As Variant

For i = 2 To lastrow
    If IsError(Application.VLookup(Template.Range("A" & i).Value2, EDM.Range("B:BP"), 6, False)) Then
        Template.Range("E" & i).Value2 = ""
    Else
        Result = Application.VLookup(Template.Range("A" & i).Value2, EDM.Range("B:BP"), 6, False)
        Template.Range("E" & i).Value2 = Result
    End If
Next i