Excel VBA生成错误代码时，如何快速终止过程执行？

VBA里有专门的语句可以直接终止当前过程，不用把后续代码都嵌套在ELSE块里，核心方案是使用Exit Sub：

核心解决方法 #

当检测到错误状态（比如plSheetError = True）时，直接调用Exit Sub，就能立即终止当前NewCode过程，回到工作表界面，后续代码不会执行。

修正后的完整代码 #

原代码存在几个语法和逻辑问题（比如参数传递方式错误、字符串引号使用错误、未正确获取工作表名称），以下是修正后的版本：

Dim pcActiveSheet As String, plSheetError As Boolean

Sub NewCode
    ' 获取当前激活工作表的名称
    pcActiveSheet = ActiveSheet.Name
    ' 调用测试过程（注意不要加括号，避免按表达式传递参数）
    SheetTest pcActiveSheet, plSheetError
    
    ' 检测到错误时直接终止过程
    If plSheetError = True Then
        Exit Sub
    End If
    
    ' 这里写所有测试通过后要执行的代码，无需缩进
    MsgBox "工作表验证通过，执行后续逻辑"
    ' ...其他业务代码...
End Sub

' 修正参数传递：plSheetError使用ByRef，才能在主过程中修改其值
Sub SheetTest(pcActiveSheet As String, ByRef plSheetError As Boolean)
    If pcActiveSheet <> "Sheet1" Then
        plSheetError = True
    Else
        plSheetError = False
    End If
End Sub

额外说明 #

• 如果是Function过程，对应使用Exit Function来终止并返回值；
• 慎用End语句：它会直接终止所有VBA代码的执行、关闭用户窗体、清除所有变量，而Exit Sub仅退出当前过程，不会影响其他正在运行的代码，安全性更高。

内容的提问来源于stack exchange，提问作者jimi_t