在Excel的VBA中想做个规划求解的for循环计算，得不出结果怎么办？

Question

Sub cheng3()
'
' cheng3 宏
'
' 快捷键: Ctrl+m
'

Dim i As Integer
For i = 3 To 100

Range("BB" & CStr(i)).Formula = "=K2*Ki+L2*Li+M2*Mi+N2*Ni+O2*Oi+P2*Pi+Q2*Qi+R2*Ri+S2*Si+T2*Ti+U2*Ui+V2*Vi+W2*Wi+X2*Xi+Y2*Yi+Z2*Zi+AA2*AAi+AB2*ABi+AC2*ACi+AD2*ADi+AE2*AEi+AF2*AFi+AG2*AGi+AH2*AHi+AI2*AIi+AJ2*AJi+AK2*AKi+AL2*ALi+AM2*AMi+AN2*ANi+AO2*AOi+AP2*APi+AQ2*AQi+AR2*ARi+AS2*ASi+AT2*ATi+AU2*AUi+AV2*AVi+AW2*AWi+AX2*AXi+AY2*AYi+AZ2*AZi+BA2*BAi"
Range("BB" & CStr(i)).Formula = "=Ji-BBi"

SolverReset

SolverOk SetCell:="$BB$i", MaxMinVal:=1, ValueOf:=0, ByChange:="$K$i:$BA$i", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$K$i:$BA$i", Relation:=4, FormulaText:="整数"
SolverOk SetCell:="$BB$i", MaxMinVal:=1, ValueOf:=0, ByChange:="$K$i:$BA$i", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$K$i:$BA$i", Relation:=3, FormulaText:="0"
SolverOk SetCell:="$BB$i", MaxMinVal:=1, ValueOf:=0, ByChange:="$K$i:$BA$i", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$BB$i", Relation:=1, FormulaText:="$J$i"
SolverOk SetCell:="$BB$i", MaxMinVal:=1, ValueOf:=0, ByChange:="$K$i:$BA$i", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$BB$i", MaxMinVal:=1, ValueOf:=0, ByChange:="$K$i:$BA$i", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
Next

End Sub
怎样才能让公式里的i,随for循环变化，求解？

好像整个程序还是有些许问题，求大神帮忙，跪谢！在线等！

Answer 1

你文中Range("BB" & CStr(i)).Formula = "=K2*Ki+L2*Li+M2*Mi+N2*Ni+O2*Oi+P2*Pi+Q2*Qi+R2*Ri+S2*Si+T2*Ti+U2*Ui+V2*Vi+W2*Wi+X2*Xi+Y2*Yi+Z2*Zi+AA2*AAi+AB2*ABi+AC2*ACi+AD2*ADi+AE2*AEi+AF2*AFi+AG2*AGi+AH2*AHi+AI2*AIi+AJ2*AJi+AK2*AKi+AL2*ALi+AM2*AMi+AN2*ANi+AO2*AOi+AP2*APi+AQ2*AQi+AR2*ARi+AS2*ASi+AT2*ATi+AU2*AUi+AV2*AVi+AW2*AWi+AX2*AXi+AY2*AYi+AZ2*AZi+BA2*BAi"
Range("BB" & CStr(i)).Formula = "=Ji-BBi"这段Excel可不是k2*k3 ……k2*k4下去的 这里的i不会和你的for循环变化追问

小白一名，大神，求改！