vba - 如何在excel宏中的代码块之间跳转？

Question

LongitudeValue:
         'Longitude Value
          C = C + 1
          SrcWkb.Worksheets("sheet1").Range("N8:P8").Copy
            DstWks1.Cells(R, C).Select
             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

FarEndSiteName:
           'Farend SIte Name
            C = C + 1
           SrcWkb.Worksheets("Sheet1").Range("A").Copy
            DstWks1.Cells(R, C).Select
             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

LongitudeValue 中发生错误时，是否可以在两个代码块之间跳转？代码块，以便代码将从 FarEndSiteName 恢复?

Answer 1

使用On Error Goto <Label>
典型用途是

Sub MySub()
    Dim ...
    On Error Goto EH
    ' code...

CleanUp:
    On Error Resume Next
    ' Tidy up code...

Exit Sub
EH:
    If Err.Number = <some particular error> Then
        '  error handling code

        Resume  ' or Resume Next
    End If

    GoTo CleanUp

End Sub