VBA编译报错Invalid Next Control variable reference解决求助

1 报错根因 #

你当前的编译错误由循环嵌套的Next语句顺序错误直接导致：
三层For循环的嵌套顺序为外到内：a → b → D，Next语句必须严格按照从内到外的顺序匹配，即先结束最内层的D循环，再结束中间层的b循环，最后结束最外层的a循环。你现有代码的Next顺序完全写反，VBA无法匹配循环变量直接触发编译报错。
另外你代码中还存在一个潜在的变量名拼写错误：判断语句中使用的Freight_Col_PerKg_List和你前面赋值的Freight_Str_PerKg_List名称不一致，会触发后续运行时错误。

2 优化后代码（满足值为0跳过计算的需求） #

建议不要用GoTo跳转，直接用正向条件判断即可，逻辑更清晰不易出错：

Dim a As Integer
Dim b As Integer
Dim D As Integer

'{.......}

' a
Freight_Str_Minimum_List(1) = strFreightperMinCol:
Freight_Str_Minimum_List(2) = strFreightMinCol:
Freight_Str_Minimum_List(3) = strMOtherMinCol

' b
Freight_Col_Minimum_List(1) = FreightperMinCol:
Freight_Col_Minimum_List(2) = FreightMinCol:
Freight_Col_Minimum_List(3) = MOtherMinCol

' d
Freight_Str_PerKg_List(1) = strFreightperKgCol:
Freight_Str_PerKg_List(2) = strFreightperkgAll_InCol:
Freight_Str_PerKg_List(3) = strFreightless45All_InCol:
Freight_Str_PerKg_List(4) = strFreightgreater45All_InCol:
Freight_Str_PerKg_List(5) = strFreight100All_InCol:

' this goes until (9)

For a = 1 To 3
    For b = 1 To 3
        For D = 1 To 9
            ' 三个值都不为0时才执行计算，否则直接跳过进入下一次循环
            If Freight_Str_Minimum_List(a) <> 0 And _
               Freight_Col_Minimum_List(b) <> 0 And _
               Freight_Str_PerKg_List(D) <> 0 Then ' 这里修正了变量名拼写错误
                
                ' 你原来的计算代码 With...End With 放在这里
            
            End If
        Next D ' 先结束最内层D循环
    Next b ' 再结束中间层b循环
Next a ' 最后结束最外层a循环

3 注意事项 #

• 如果你坚持要用GoTo跳转实现，需要把nextsegment3标签放在Next D之前，和内层循环对应，不要跨多层循环跳转，避免出现不可预期的逻辑错误
• 如果数组元素是字符串类型，判断未找到的条件不要只判断等于0，建议补充判断是否为空字符串""，覆盖更多异常场景

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