VBA从主模块调用不同模块子过程时Exit Sub运行异常问题求解

两个异常现象的核心诱因：

1. 加Exit Sub仅生成第一个Brief的原因：Exit Sub会直接终止当前整个主过程的执行，第一次匹配到条件执行完子过程后就直接退出，不会继续跑后续循环。
2. 不加Exit Sub出现每行生成所有信函的核心原因：你贴出的代码缺少循环变量r的自增逻辑，同时存在工作表引用不明确的问题。

排查步骤 #

• 检查循环变量逻辑：当前代码的Do循环没有r = r + 1的语句，循环会一直停留在r=6的行不会向下移动；如果子过程中修改了活动工作表，还会导致IsEmpty(Cells(r, 1))的判断取到错误工作表的内容，陷入死循环或者逻辑错乱。
• 检查子过程的副作用：查看调用的各个信函生成子过程，是否存在修改活动工作表/选中单元格、修改公共变量的逻辑，这类操作会干扰主循环的判断条件和Range取值。
• 检查工作表引用一致性：当前循环判断IsEmpty(Cells(r, 1))没有指定所属工作表，默认取当前活动工作表的值，而条件判断用的是Sheet1的Range，一旦子过程切换了活动工作表，就会出现判断和取值分属不同表的问题。

解决方案 #

第一步 补全循环变量逻辑，统一工作表引用 #

建议将多层ElseIf替换为更清晰的Select Case结构，修改后主代码参考：

Dim r As Long
Dim targetSheet As Worksheet
' 固定引用操作的工作表，避免子过程切换活动表导致异常
Set targetSheet = Sheet1
r = 6
Do Until IsEmpty(targetSheet.Cells(r, 1))
    Select Case targetSheet.Range("C" & r).Value
        Case "Brief 1"
            Call Rappelbrief_1
        Case "Brief 2"
            Call Rappelbrief_2
        Case "Brief 3"
            Call Rappelbrief_3
        Case "Brief BA"
            Call Brief_BA
        Case "Brief na tel contact"
            Call Brief_opheffen_na_telefonisch_contact
        Case "Brief tel. opheffing"
            Call Brief_Tel_Opheffing
        Case "Brief 1 + ophefform"
            Call Rappelbrief_1
            Call Brief_opheffen_na_telefonisch_contact
            'Ophefform_PDF
        Case Else
            ' 可选：增加异常打印，方便排查不符合规则的C列值
            Debug.Print "第" & r & "行C列值不匹配：" & targetSheet.Range("C" & r).Value
    End Select
    ' 关键：循环变量自增，移动到下一行
    r = r + 1
Loop

第二步 消除子过程的副作用 #

修改所有信函生成子过程，不要在子过程里使用Activate、Select这类切换活动工作表/单元格的方法，所有单元格操作都指定明确的工作表对象，避免影响主循环的执行环境。

第三步 不要在循环内部加Exit Sub #

如果只是要结束当前单次的条件判断，不需要加任何额外语句，Select Case/If执行完匹配分支后会自动进入下一轮循环，只有需要提前终止整个主过程的时候才使用Exit Sub。

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