主题：[求助]excel规划求解

此主题相关图片如下：83e7b3e6-7789-4200-897e-e45844a11910.png

Sub test()

Dim MaxRow As Integer, i As Integer
Dim iA As Integer, iB As Integer
Dim StrFormula1 As String, StrFormula2 As String
Worksheets("Sheet1").Activate
iRows = 20
For i = 2 To iRows
SolverReset
SolverOk SetCell:=Replace("$AI$2", "2", i), MaxMinVal:=2, byChange:=Replace("$AA$2", "2", i)
SolverSolve UserFinish:=True
Next


End Sub