VBA循环遇Vlookup错误时如何跳转至下一次迭代？编译错误求助

看起来你碰到了两个核心问题：一是编译错误（Sub or Function not defined），二是VLookup出错时无法自动进入下一次循环迭代。我来一步步帮你搞定：

先解决编译错误 #

你直接写Vlookup(...)会触发编译错误，原因很简单：VBA里不能直接调用工作表函数，必须通过WorksheetFunction或者Application对象来调用。这两个对象的区别是：

• WorksheetFunction.VLookup：查找失败时会直接触发运行时错误；
• Application.VLookup：查找失败时返回一个错误值（比如#N/A），不会触发报错。

再处理循环中跳过错误的需求 #

要实现「出错时跳过当前迭代，直接进入下一次循环」，有两种常用方案，你可以根据习惯选：

方案1：用Application.VLookup结合IsError判断 #

这种方案不需要开启错误捕获，直接判断返回值是否为错误：

Sub ProcessLookupLoop()
    Dim i As Integer
    Dim lookupVal As Variant
    Dim lookupResult As Variant
    
    ' 假设你的循环范围是第2行到第100行
    For i = 2 To 100
        lookupVal = ThisWorkbook.Sheets("数据源").Range("A" & i).Value
        
        ' 使用Application.VLookup，出错时返回错误值而非触发报错
        lookupResult = Application.VLookup( _
            lookupVal, _
            ThisWorkbook.Sheets("查找表").Range("C:D"), _
            2, _
            False _
        )
        
        ' 如果查找结果是错误值，直接跳转到下一次循环
        If IsError(lookupResult) Then
            GoTo SkipToNextIteration
        End If
        
        ' 这里写查找成功后要执行的代码，比如把结果写入单元格
        ThisWorkbook.Sheets("数据源").Range("B" & i).Value = lookupResult
        
SkipToNextIteration: ' 循环跳转标记
    Next i
End Sub

方案2：用On Error Resume Next捕获错误 #

如果你习惯用WorksheetFunction.VLookup（它的好处是返回值类型更明确），可以开启错误捕获来处理失败情况：

Sub ProcessLookupLoopWithErrorHandling()
    Dim i As Integer
    Dim lookupVal As Variant
    Dim lookupResult As Variant
    
    For i = 2 To 100
        lookupVal = ThisWorkbook.Sheets("数据源").Range("A" & i).Value
        
        ' 开启错误捕获：后续代码的错误会被忽略，不会中断程序
        On Error Resume Next
        lookupResult = WorksheetFunction.VLookup( _
            lookupVal, _
            ThisWorkbook.Sheets("查找表").Range("C:D"), _
            2, _
            False _
        )
        ' 关闭错误捕获，恢复正常的错误处理机制
        On Error GoTo 0
        
        ' 如果刚才的VLookup触发了错误，清除错误并跳转到下一次循环
        If Err.Number <> 0 Then
            Err.Clear ' 清除错误编号，避免影响后续循环
            GoTo SkipToNextIteration
        End If
        
        ' 查找成功后的业务代码
        ThisWorkbook.Sheets("数据源").Range("B" & i).Value = lookupResult
        
SkipToNextIteration:
    Next i
End Sub

关键说明 #

• GoTo SkipToNextIteration是核心：它会直接跳到循环的Next i语句，让程序进入下一次迭代，跳过当前迭代中剩余的代码；
• 方案2里一定要记得用On Error GoTo 0关闭错误捕获，否则后续代码的错误会被隐藏，不利于调试；
• 如果你不确定查找范围或参数是否正确，可以先在Excel单元格里手动测试VLOOKUP公式，确保逻辑没问题再写到VBA里。

内容的提问来源于stack exchange，提问作者Jose Manuel