如何编写Excel VBA语句：A1为Yes则终止代码，否则继续执行

基础实现（终止当前子程序） #

如果只是想终止当前正在运行的Sub/Function过程、跳过后续代码，用Exit Sub（子程序）或Exit Function（函数）即可，这是最安全的常规方案：

Sub RunMyCode()
    ' 统一转为大写并去除首尾空格，兼容大小写输入和带空格的情况（如"yes"/" Yes "/YES）
    If UCase(Trim(Range("A1").Value)) = "YES" Then
        Exit Sub ' 直接退出当前过程，后续代码不再执行
    End If
    
    ' 以下是A1不为Yes时才会执行的代码
    Range("B1").Value = "执行后续操作"
    MsgBox "程序继续运行"
    ' 更多业务逻辑...
End Sub

强制终止所有VBA运行 #

如果需要彻底终止整个VBA项目的所有代码（包括其他正在运行的过程），可以用End语句，但注意它会直接中断所有执行，不会触发对象清理、内存释放等操作，仅在必要时使用：

Sub RunMyCode()
    If UCase(Trim(Range("A1").Value)) = "YES" Then
        End ' 终止所有VBA代码运行
    End If
    
    ' 后续代码...
End Sub

常见失败原因排查 #

你之前无法跳过后续代码，大概率是以下问题：

• 条件匹配不严谨：单元格内容可能包含空格（比如输入了" Yes "），或者没处理大小写差异，导致"yes"无法触发终止。
• 用错终止语句：比如误用Stop（仅暂停调试，不会终止程序，运行时会弹出调试窗口，后续代码仍会执行），或者没把终止语句放在正确的条件分支里。
• 单元格引用错误：比如误引用了其他工作表的A1，需要明确指定工作表，比如Sheet1.Range("A1")，避免因当前活动表不对导致判断错误。

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