请教：如何使WorksheetFunction.VLookup在找不到数据时不报错，继续执行余下部分？

大象无痕

Option Explicit


Sub pj2()
    Dim i As Integer
    i = 2
    Do While Range("A" & i) <> ""
        Range("B" & i) = Application.WorksheetFunction.VLookup(Range("A" & i), Sheets(2).Columns("A:B"), 2, False)
        If Range("B" & i) <> "" Then
            Range("C" & i) = Date
        Else
            Range("C" & i) = ""
        End If
        i = i + 1
    Loop
End Sub


------------------如何使WorksheetFunction.VLookup在找不到数据时不报错，继续执行完全部检控？
程序在比对A4时没有数据，就报错不继续向下比对。基实后面也有数据是比对上的。

ykcbf1100

在循环代码上方加一句容错语句：On Error Resume Next

petergaod

On Error Resume Next

quqiyuan

1. On Error Resume Next

复制代码

大象无痕

谢谢上面大神热心回复，问题已解决。谢谢！