VBA求解器不循环

我正在尝试在多列上使用解算器（用户定义的列的确切数量）。 在看了这里的问题之后，我仍然无法find我的代码有什么问题（我对VBA很新颖）。 当我运行它，它在第一年工作正常，但不适用于接下来的几年。

Dim wsFM_B3 As Worksheet Set wsFM_B3 = ThisWorkbook.Worksheets("xxxx_B3") Dim wsCharts As Worksheet Set wsCharts = ThisWorkbook.Worksheets("Charts") Dim j As Integer For j = 0 To Range("CC_Reduction_Years").Value SolverReset SolverAdd CellRef:=wsFM_B3.Range("E_Start").Offset(0, j), Relation:=3, FormulaText:=wsCharts.Range("Min_E") SolverAdd CellRef:=wsFM_B3.Range("Bank_Start").Offset(0, j), Relation:=3, FormulaText:=wsFM_B3.Range("Cash_B3") SolverOk SetCell:=wsFM_B3.Range("PoY_Start").Offset(0, j).Address, MaxMinVal:=3, ValueOf:=0, ByChange:=wsCharts.Range("CC_Base_Start").Offset(0, j).Address, Engine _ :=1, EngineDesc:="GRG Nonlinear" SolverSolve True Next j End Sub 

以下是我的xxxx_B3表：

在“图表”表单中，只有包含第一行的目标值，约束条件和年数的单元格。