如何在VBA过程中为循环代码设置局部错误处理，跳过错误继续执行？

针对你的需求，有两种可靠方案可以让循环在出错时跳过当前迭代、继续执行下一个循环变量，同时不触发全局错误处理器：

方案1：局部临时错误捕获（适配原代码写法） #

在循环内部添加临时的错误处理逻辑，捕获WorksheetFunction.Match/Index抛出的错误，执行完当前循环后恢复全局错误处理：

'zoekt de juiste brigade bij de ingevulde luchthaven
For c = 2 To aantalrijen
    On Error Resume Next ' 开启局部错误捕获，遇到错误时跳过后续代码
    Cells(c, 6).Value = WorksheetFunction.Index(Worksheets("Database").Range("A:D"), _
        WorksheetFunction.Match(ws.Range("E" & c).Value, Worksheets("Database").Range("A:A"), False), _
        WorksheetFunction.Match(ws.Range("F1").Value, Worksheets("Database").Range("1:1"), False))
    On Error GoTo 0 ' 恢复全局错误处理，避免影响后续代码逻辑
Next c

• On Error Resume Next会让代码在遇到匹配失败的错误时，跳过当前赋值语句，直接进入下一次循环。
• 必须加上On Error GoTo 0，否则后续代码的错误会被持续忽略，导致全局错误处理器失效。

方案2：改用Application.Match（更优雅的无错误写法） #

WorksheetFunction.Match找不到匹配时会抛出运行时错误，而Application.Match会返回#N/A错误值（不会触发错误处理器）。我们可以先判断匹配是否成功，再执行赋值：

'zoekt de juiste brigade bij de ingevulde luchthaven
Dim rowMatch As Variant, colMatch As Variant
For c = 2 To aantalrijen
    rowMatch = Application.Match(ws.Range("E" & c).Value, Worksheets("Database").Range("A:A"), False)
    colMatch = Application.Match(ws.Range("F1").Value, Worksheets("Database").Range("1:1"), False)
    
    ' 仅当两个匹配都成功时才执行赋值
    If Not IsError(rowMatch) And Not IsError(colMatch) Then
        Cells(c, 6).Value = Worksheets("Database").Cells(rowMatch, colMatch).Value
    End If
Next c

• 先分别获取行、列的匹配结果，用IsError判断是否找到有效匹配。
• 这种写法完全不会触发错误，逻辑更清晰，也避免了错误捕获带来的隐性问题。

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