发生错误时跳出循环，修复错误，跳回VBA循环

Question

标题有点自我解释。我正在寻找一种方法来遇到错误，跳出循环并执行一个操作来修复该错误然后再次开始它在循环中停止。

基本上我需要一个If On Error GoTo ... else continue语句，但我很确定它不存在。

有什么想法吗？

Answer 1

这是一个快速错误处理程序和返回循环。

Dim x as Integer
For x = 1 to 10 Step 1
    On Error Goto HandleError
    'Do your code for each Loop
    NextLine:
Next x

Exit Sub
HandleError:
'Handle Error
'Clear the Error in case of new Error
'Return to Loop
Err.Clear
Resume NextLine

编辑：在处理程序之前添加了Exit Sub，以确保在循环完成后不进入处理程序