VBA中Do While多条件语句触发Subscript Out of Range错误求助

嘿，这个下标越界的问题其实很好定位——本质就是你在访问fixeddaysdiff_input数组时，用到的索引超出了数组的有效范围。咱们一步步拆解你的循环条件里的问题：

核心问题根源 #

你的循环条件里用到了三个动态索引：i + C - 1、i + C、i + C + 1，这三个值都有可能超出数组的合法下标范围：

• 当C的初始值很小（比如0或1），i + C -1可能小于数组的起始下标（VBA数组默认起始下标是0或1，取决于你声明数组的方式）
• 随着循环里C = C + 1不断自增，i + C + 1会越来越大，迟早会超过数组的最大下标，这时候访问就会直接触发下标越界错误

举个实际例子：如果fixeddaysdiff_input的最大行下标是10，当i + C已经等于10时，i + C +1就是11，这时候访问数组的第11行就完全超出范围了。

具体修复建议 #

1. 先明确数组的边界范围 #

在循环开始前，先添加几行调试代码，确认数组的合法下标区间：

Debug.Print "数组起始行下标：" & LBound(fixeddaysdiff_input, 1)
Debug.Print "数组结束行下标：" & UBound(fixeddaysdiff_input, 1)

运行后看立即窗口的输出，你就能清楚知道哪些索引是安全的。

2. 给循环条件加上边界限制 #

必须把索引合法性判断加入循环条件，确保所有要访问的数组元素都在有效范围内。修改后的Do While条件如下：

Do While (i + C - 1 >= LBound(fixeddaysdiff_input, 1)) _
   And (i + C + 1 <= UBound(fixeddaysdiff_input, 1)) _
   And _
   ((fixeddaysdiff_input(i + C, 2) = fixeddaysdiff_input(i + C - 1, 2)) _
   And (fixeddaysdiff_input(i + C, 1) = fixeddaysdiff_input(i + C - 1, 1))) _
   Or _
   ((fixeddaysdiff_input(i + C, 2) = fixeddaysdiff_input(i + C + 1, 2)) _
   And (fixeddaysdiff_input(i + C, 1) = fixeddaysdiff_input(i + C + 1, 1)))
    C = C + 1
    ' 你的accumulated相关代码...
Loop

注意用括号把边界判断和原条件分开，避免逻辑运算符优先级导致的判断混乱。

3. 检查C的初始值 #

如果C的初始值是0，第一次循环时i + C -1 = i -1，如果i本身就是数组的起始下标（比如1），那i-1就是0，若数组起始下标是1的话就会直接越界。所以要么把C的初始值设为1，要么在条件里额外确认i + C -1不小于数组起始下标。

额外调试小技巧 #

可以在循环内部添加一行调试输出，每次循环都打印当前的C值和三个索引值，方便精准定位哪一次循环触发了错误：

Debug.Print "当前C值：" & C & " | 索引1：" & i+C-1 & " | 索引2：" & i+C & " | 索引3：" & i+C+1

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