excel 批量求最优解答:For Each a In Range(Range("A2"), Range("A65535").End(3))SolverReset SolverOk SetCell:=a.Offset(0, 4), MaxMinVal:=2, byChange:=a.Offset(0, 1).Resize(1, 3)SolverAdd CellRef:=a.Offset(0, 4), Relation:=4, formulaText:="整数"SolverAdd CellRef:=a.Offset(0, 4), ...