在Excel VBA中迭代时跳过所有错误

Question

我正在尝试从一个工作簿中获取数据并将其粘贴到其他工作簿中，因此某些值不可搜索，但显示错误。处理错误时，它会跳过迭代，但是当第二次发生错误时，它不是在跳过迭代而是给出错误消息。

For i = 1 To lrow

    On Error GoTo InvalidValue
    mWkb.Activate
    Sheets("Sheet2").Select
    s_value = ActiveCell.Offset(i, 0).Value

    Sheets("LocDB").Select
    Range("G2").Select
    Range(Selection, Selection.End(xlDown)).Select

    Selection.Find(What:=s_value, After:= _
                   ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
                   SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate


    ActiveCell.Offset(0, 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy

    wkb.Activate

    Range("G9").Select
    ActiveCell.Offset(i, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                           :=False, Transpose:=False

InvalidValue:

Next i