VBA循环实现单变量求解报错：Next控制变量引用无效

错误原因 #

触发「Invalid Next control variable reference」的核心问题是嵌套For循环的Next语句顺序颠倒：内层循环用的是y变量，必须先执行Next y结束内层循环，再执行Next x结束外层循环。原代码中先写Next x后写Next y，导致VBA无法识别循环变量的对应关系。

额外问题修正 #

除了循环顺序错误，原代码还有两处关键问题需要调整：

1. 变量St、En、St_2、En_2未赋值，结合需求参数（A=0、B=10，A_2=0、B_2=5），需要将这些变量与需求参数绑定。
2. 原代码中[A]这类引用属于单元格名称引用，若未提前定义对应名称会报错，建议直接按需求赋值参数。

修正后的完整代码 #

Sub GoalSeek()
    ' 绑定需求参数：A=0、B=10，A_2=0、B_2=5
    Dim A As Integer, B As Integer
    Dim A_2 As Integer, B_2 As Integer
    Dim x As Integer, y As Integer
    
    A = 0
    B = 10
    A_2 = 0
    B_2 = 5
    
    ' 循环覆盖目标区域：行5-15，对应列C-H、AF-AK、AX-BC
    For x = A To B
        For y = A_2 To B_2
            ' 执行单变量求解：修改AX5-BC15区域，使C5-H15区域等于AF5-AK15区域的目标值
            Cells(5 + x, 3 + y).GoalSeek _
                Goal:=Cells(5 + x, 32 + y), _
                ChangingCell:=Cells(5 + x, 50 + y)
        Next y ' 先结束内层y循环
    Next x ' 再结束外层x循环
End Sub

代码说明 #

• 循环变量x对应行范围：5+x覆盖第5行到第15行（x从0到10），匹配需求中的行区域。
• 循环变量y对应列范围：
  • 3+y覆盖C列（3）到H列（8）：需要求解的目标计算区域
  • 32+y覆盖AF列（32）到AK列（37）：目标值区域
  • 50+y覆盖AX列（50）到BC列（55）：允许修改的可变单元格区域
• 显式声明变量类型，避免隐式类型转换引发的潜在问题。

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