vba - VBA-错误时如何进入下一个迭代循环

Question

我有下面的代码，并且在Vlookup公式中发现错误时，我无法跳到下一个交互(i)。它给我错误“编译错误子或未定义函数”

例如，如果Vlookup公式在第二次互动(i = 2)中出现错误，则代码应跳过下一行代码，然后转到下一次互动(i = 3)

For i = 1 To 10:
   If Range("A" & i).Value = "" Then
Else

    On Error GoTo Handler

    datavalue = Application.WorksheetFunction.VLookup(Sheets("DataManipulation").Range("A" & i), Sheets("ExtractQ1").Range("A1:G1048576"), 4, False)

    Sheets("DataManipulation").Range("B" & i).Value = datavalue

Handler:
   Next i

   End If

Next i

Answer 1

我会用On Error Resume Next:

For i = 1 To 10:
   If Range("A" & i).Value = "" Then

   Else
      On Error Resume Next
      datavalue = Application.WorksheetFunction.VLookup(Sheets("DataManipulation").Range("A" & i), Sheets("ExtractQ1").Range("A1:G1048576"), 4, False)
      If Err = 0 Then
          Sheets("DataManipulation").Range("B" & i).Value = datavalue
      End If
      On Error Goto 0 ' Reactivate normal error reporting
   End If    
Next i