应该可以阿,先打开MACRO录制,再SOLVER,最后STOP MACRO录制。 SOLVER就在录制MACRO里面了。 这是我试的简单公式,不是你的求利润最大化问题。 Sub Macro1() SolverOk SetCell:="$A$5", MaxMinVal:=3, ValueOf:="0", ByChange:="$A$1" SolverSolve End Sub