未经测试:

For n = 54 to 288
    SolverReset
    SolverOk SetCell:="CQ" & n, MaxMinVal:=2, ValueOf:=0, _
         ByChange:="CF" & n & ":CJ" & n , Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="CM" & n, Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="CQ" & n, Relation:=3, FormulaText:="0"

    SolverSolve
Next n