VBA For循环超出UBound设定上限值问题求助

代码片段 #

limit = UBound(arr_1, 1)
For from_idx = 1 To limit
    If from_idx = 2044 Then
        x_break = True 'set watch to action when true
    End If
    For to_idx = 1 To UBound(arr_2, 1)
        If arr_1(from_idx, 1) = arr_2(to_idx, 1) Then
            Exit For
        End If
    Next to_idx 
Next from_idx 

问题描述 #

当UBound(arr_1,1) = 2044时，运行上述代码发现For循环会超出设定的上限，from_idx被设为2045，按逻辑该循环不应进入此状态。

补充信息 #

• 数组维度：
  • arr_1 (1 to 2044, 1 to 55)
  • arr_2 (1 to 2366, 1 to 57)

分析与解决思路 #

1. 先修正代码笔误 #

代码里的arr-1(from_idx, 1)是明显的输入错误，应该是arr_1(from_idx, 1)。这个笔误会引发运行时错误，甚至干扰循环的正常执行逻辑，必须先修正。

2. 循环变量超出上限的核心原因排查 #

VBA的For...Next循环正常逻辑是：当循环变量达到To后的上限值，执行完循环体后会退出循环，不会再递增。出现from_idx变为2045的情况，大概率是以下场景：

• 调试时的正常机制：调试器中，当最后一次循环（from_idx=2044）执行完毕后，VBA会自动将循环变量递增到2045，再判断是否超过上限，此时才退出循环。你看到的2045是循环退出后的变量值，并非循环执行时的状态，这是VBA循环的正常流程。
• 循环变量被手动修改：检查代码其他位置（包括嵌套循环、调用的子过程）是否有直接修改from_idx的操作，比如from_idx = from_idx + 1这类赋值，会直接破坏循环的自动递增逻辑。
• 数组维度被意外修改：虽然你把UBound(arr_1,1)赋值给了limit，但如果循环过程中arr_1被重新定义、扩容，可能间接影响循环逻辑，需确认arr_1在循环中未被改动。

3. 验证步骤 #

1. 修正笔误后重新运行代码，观察问题是否消失。
2. 在For from_idx = 1 To limit行添加断点，逐次检查循环体执行时from_idx的取值，确认是否真的在循环中达到2045。
3. 全局搜索代码中所有对from_idx的赋值操作，排除手动修改的可能。

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