如果出错，则转到*如果不是下一步

Question

我有一个问题，如果没有要粘贴的东西，我想要GoTo Err1:如果没有，我想继续粘贴。

这是我的代码，但它总是跳到Err1:即使有要粘贴的东西。

Selection.Copy

On Error Resume Next
Sheet2.Range("A3").Paste
'~~~~> Want to skip to Err1: which will display a msgbox if nothing to paste
If Err Then GoTo Err1:
'~~~~> Want to continue here if there is something to paste
Range("BC3:BF3").Select
Range("BC3:BF3").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("BC3:BF142")
Sheet3.Range("B8").Select
ActiveWorkbook.RefreshAll
Range("I7").Select
ActiveWorkbook.RefreshAll

Answer 1

您的错误处理应该是这样工作的：

Option Explicit

Sub MyProcedure()

    On Error GoTo PASTE_ERROR:

    Sheet2.Range("A3").Paste
    '~~~~> Want to skip to Err1: which will display a msgbox if nothing to paste

    On Error GoTo 0 'back to default error handling

    'other code

    Exit Sub 'exit here if no error
PASTE_ERROR:
    MsgBox "Paste Error"
End Sub

另外，我推荐阅读How to avoid using Select in Excel VBA。