VBA For循环中错误处理失效原因及Resume、On Error语法行为疑问

所有异常的核心来源是：VBA 错误处理引擎的状态/栈残留，和循环本身没有必然关系，你之前无循环的测试场景只是刚好没触发残留问题，才表现为"正常"。

先明确两个最容易被误解的错误处理基础规则 #

很多人对VBA错误处理的认知停留在"On Error就是抓错"，根本没搞清楚背后的状态机制：

• 每个过程同一时间只能注册一个全局生效的错误处理钩子，由On Error GoTo 标签语句指定跳转位置
• 当错误被触发、执行流跳转到错误处理分支后，引擎会进入两个特殊状态：
  1. 错误栈被压入一个"待处理错误"标记，只有靠固定语句才能弹栈清除
  2. 注册的错误钩子处于"已激活"状态，不会因为错误处理代码执行完就自动注销

为什么无循环场景看起来"符合预期" #

把你第一个无循环的测试代码的执行流拆解后，你会发现它其实是"碰巧没出问题"：

1. 代码注册错误钩子到errorHandler标签，执行Error(1)抛错，跳转到错误分支
2. 错误分支里执行On Error GoTo 0 —— 这行的唯一作用是注销之前注册的错误钩子，根本没有清除刚才压入的错误栈标记
3. 错误分支代码执行完，自然向下走到skip:标签打印内容，最后执行Error(14)
   因为之前的钩子已经被注销了，错误14直接触发默认的中断行为，你就误以为"错误处理已经恢复正常"。
   你可以自己做个小测试：把最后一行的Error(14)换成Error(1)，会发现这个错误根本不会被错误分支捕获，直接中断程序——这就是残留的错误栈标记没被清除的证据。

为什么循环里不加Resume skip就直接中断 #

拆解你那个无Resume的循环测试的执行流，问题就一目了然：

1. 第一次循环n=1：
   • 执行On Error GoTo errorHandler注册钩子
   • 抛Error(1)，跳转到错误分支打印内容，执行On Error GoTo 0注销钩子
   • 自然流到skip:标签打印，第一次循环结束，但是错误栈里的待处理标记还留着
2. 第二次循环n=2：
   • 执行循环开头的On Error GoTo errorHandler准备注册新钩子
   • 因为上一次的待处理错误标记还没清除，VBA根本不允许在这个状态下注册新的错误钩子，这行代码相当于白写
   • 接下来执行Error(1)，因为没有生效的钩子，直接触发未处理错误中断，根本走不到错误分支
     你以为循环里的On Error GoTo每次都会重新生效，实际上只要有残留的待处理标记，这个注册动作就会被引擎直接忽略。

为什么加了Resume skip就彻底正常 #

很多人以为Resume的作用只是"跳转到某行继续执行代码"，这完全是舍本逐末：
Resume 语句的核心功能是先清除错误栈的待处理标记、弹出错误栈帧，做完这一步之后，才会执行跳转动作。
所以加了Resume skip之后的执行流是：

1. 第一次循环抛错，进入错误分支
2. 执行On Error GoTo 0注销钩子
3. 执行Resume skip：先把残留的错误栈标记清掉，再跳到skip标签执行打印
4. 第二次循环开始时，没有残留状态，On Error GoTo errorHandler可以正常注册钩子，哪怕再抛错也能正常进入错误分支
   直到循环全部跑完，才会触发最后一行的Error(14)，因为这时候所有钩子已经被注销，错误按默认逻辑中断，完全符合你的预期。

为什么用On Error GoTo -1会导致程序崩溃 #

这是VBA文档最容易误导人的一个语句，先把两个容易混的语句的作用讲清楚：

• On Error GoTo 0：注销当前过程的所有错误钩子，回到默认的错误中断模式，不清除残留的错误栈标记
• On Error GoTo -1：清除当前的错误栈标记，但不会注销已经注册的错误钩子
  回到你那个测试代码，崩溃的原因根本不是"无限循环"，是栈溢出：

1. 第一次循环n=1：注册钩子、抛Error(1)、进错误分支打印
2. 执行On Error GoTo -1：只清了错误栈标记，之前注册的errorHandler钩子还在生效
3. 自然流到skip标签打印，执行Next n累加循环变量
4. 第二次循环n=2：执行循环头的On Error GoTo errorHandler重复注册钩子，抛Error(1)，因为钩子还在，直接跳回错误分支
5. 整个过程中，每次错误跳转都没有用Resume弹出错误栈帧，哪怕循环变量n在正常累加，错误处理的栈帧会一直累积，快速耗尽内存，表现上就是一直重复打印循环内容，直到Excel崩溃。

最后整理几个实操避坑点：

• 错误处理分支必须用Resume类语句退出，自然向下流到正常代码是非常危险的写法
• On Error GoTo 0只能注销钩子，不能替代Resume清除栈状态
• On Error GoTo -1只清状态、不注销钩子，除非你明确知道要干嘛，否则别随便用
• VBA的错误处理规则是过程级的，不管在循环里还是循环外，状态残留的逻辑完全一致，不存在"循环特殊"的说法

内容的提问来源于stack exchange，提问作者Nord.Kind