Я пытаюсь использовать решатель для нескольких столбцов (точное количество столбцов определяется пользователем). Посмотрев на вопросы здесь, я все еще не могу найти, что не так с моим кодом (я довольно плохо знаком с 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 лист выглядит так:

На листе «Диаграммы» есть только ячейки, содержащие целевые значения для первой строки, ограничения и количество лет.