VBA 返回报错所在的位置并重复执行

要实现VBA返回报错所在的位置并重复执行，可以使用以下代码：

On Error GoTo ErrorHandler

'你的代码

Exit Sub

ErrorHandler:
MsgBox "Error occurred at line: " & Erl & vbCrLf & _
    "Error number: " & Err.Number & vbCrLf & _
    "Error description: " & Err.Description, vbCritical, "Error"
Resume

这段代码在执行过程中会在错误发生时跳转到ErrorHandler标签处。在ErrorHandler中，会弹出一个消息框，显示错误发生的行数、错误代码和错误描述。然后，使用Resume语句返回到错误发生的位置，继续执行程序。