希望在"规划求解VBA"中使用动态范围，以便在多行中循环。
一些事情，如（目前它不工作，需要纠正它）

SolverOk SetCell:=Cells(i, 6), MaxMinVal:=2, ValueOf:=0, ByChange:=Range(cells(i, 14):cells(i, 18)).Value , _
        Engine:=1, EngineDesc:="GRG Nonlinear"

SolverReset
SolverOk SetCell:="$F$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$N$3:$R$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$N$3:$R$3", Relation:=4, FormulaText:="integer"
SolverAdd CellRef:="$F$3", Relation:=3, FormulaText:="0"
SolverOk SetCell:="$F$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$N$3:$R$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$F$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$N$3:$R$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve (True)

请帮帮我。