如何在无错误发生时终止VBA代码执行？

要实现无错误时终止程序执行，核心是在正常执行逻辑的末尾添加Exit Sub，让程序完成正常流程后直接退出，不会进入错误处理代码块。同时修复原代码中的语法问题，并优化代码减少Select/Activate的使用（提升稳定性）。

修改后的完整代码 #

Sub CalculateNewTotal()
    Dim ws As Worksheet
    Dim grandTotalCell As Range
    Dim optTotalCell As Range
    Dim a As String, b As String
    
    Set ws = ActiveSheet ' 指定操作的工作表，避免依赖活动表
    
    ' 查找"Grand Total"单元格
    Set grandTotalCell = ws.Columns("B:B").Find(What:="Grand Total", LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    
    ' 提前检查是否找到Grand Total，避免后续错误
    If grandTotalCell Is Nothing Then
        MsgBox "未找到Grand Total", vbExclamation
        Exit Sub
    End If
    a = grandTotalCell.Address(0, 0)
    
    On Error GoTo ErrorHandler ' 开启错误捕获
    
    ' 查找"Opt Total"单元格
    Set optTotalCell = ws.Columns("B:B").Find(What:="Opt Total", LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    
    b = optTotalCell.Address(0, 0)
    
    ' 设置新总计标题与公式
    ws.Range("B100").Value = "New Total"
    ws.Range("C100", ws.Range("B100").End(xlToRight)).Formula = "=IFERROR(" & a & "-" & b & ",0)"
    
    ' 保存并关闭工作簿
    ActiveWorkbook.SaveAs Filename:="xyz" ' 建议补充完整路径，例如"C:\你的路径\xyz.xlsx"
    ActiveWindow.Close True
    
    MsgBox "文件已准备就绪"
    Exit Sub ' 无错误时直接退出，不执行错误处理块

ErrorHandler:
    ' 错误触发时执行的逻辑
    ws.Range("B100").Value = "New Total"
    ws.Range("C100", ws.Range("B100").End(xlToRight)).Formula = "=" & a
    
    ActiveWorkbook.SaveAs Filename:="xyz"
    ActiveWindow.Close True
    
    MsgBox "文件已准备就绪（已执行错误处理）"
End Sub

关键修改说明 #

• 添加Exit Sub：在正常流程的末尾加入该语句，确保无错误时程序直接终止，不会进入错误处理代码块
• 替换Select/Activate：直接操作Range和Worksheet对象，避免因活动单元格变化导致的逻辑错误
• 增加存在性检查：提前判断是否找到"Grand Total"，避免后续代码因空对象报错
• 移除无效代码：删除原代码中无对应For循环的Next i，以及无效的Workbooks(vb).Activate语句
• 优化公式设置：直接批量设置公式，无需复制粘贴操作，提升代码效率与稳定性

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