在Excel中使用For和Next循环存储求解器结果

我想用重复求解器51次，并将解算器的每次计算结果存储在Excel中的一个单独的单元格中。 下面是我的VBA脚本。 但是，我遇到了脚本的问题。 存储结果只显示第51个，最后一个计算结果。 这是一个简单的脚本，但我可以找出我做错了什么地方。 感谢您的帮助！

Private Sub Button1_Click() Dim j As Integer For j = 1 To 51 Range("m4") = j solversolve UserFinish:=True solversolve(UserFinish:=True) = Range("Q" & j + 3) Next j End Sub 

Answer 1

假设目标函数在范围（“m4”）中，并且您想要求解从范围（“Q4”）开始的解决scheme，则请尝试：

 Private Sub Button1_Click()` Dim j As Integer For j = 1 To 51 solversolve UserFinish:=True Range("Q" & j + 3).value=Range("m4").value Next j End Sub 

但是，你不需要改变模型来重新运行它？ 有任何随机值？