Question

如何设置执行VBA代码出错时，自动退出执行的过程

Answer 1

on error goto XXX
…………
XXX：
exit

遇到错误跳转，跳转到的地方放一句exit就中止整个vba运行了。

Answer 2

Private Sub CommandButton1_Click()
on error goto skip
A = Range("A5:A500").End(xlDown).Row()
A = A + 1

Range("A" & A).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
exit sub
Skip:
msgbox "没有数据可以粘贴，请先复制数据"
End Sub

不知这个行不行