Excel VBA循环中Solver无法二次启动的问题排查求助

核心问题分析 #

你的代码存在几个关键错误，直接导致Solver无法启动第二次运行：

• 单元格引用格式无效：SolverOk和SolverAdd中使用的"(52 + 48 * i, 42)"这类字符串不是Excel认可的A1样式地址（如"$AM$52"），Solver无法解析包含变量计算的表达式字符串。
• 未重置Solver状态：每次循环后未清除上一次的Solver设置与约束，第二次循环时约束叠加，Solver因状态混乱或重复约束无法运行。
• 重复调用SolverSolve：连续两次调用SolverSolve会导致Solver状态异常。

修正后的代码 #

Sub MPCMacro()
    Dim i As Integer
    Dim targetCell As Range
    Dim changeRange As Range
    
    ' 激活目标工作表（建议替换为具体工作表名，比如Worksheets("供暖优化表")）
    ActiveWorkbook.ActiveSheet.Activate
    
    For i = 0 To 1 ' 后续可改为336
        ' 重置Solver，清除上一次的所有设置与约束
        SolverReset
        
        ' 计算当前循环的目标单元格和可变单元格范围
        Set targetCell = Cells(52 + 48 * i, 42)
        Set changeRange = Range(Cells(5 + 48 * i, 31), Cells(52 + 48 * i, 31))
        
        ' 正确设置Solver参数，使用单元格Address属性获取A1格式地址
        SolverOk SetCell:=targetCell.Address, _
                 MaxMinVal:=2, _
                 ValueOf:=0, _
                 ByChange:=changeRange.Address, _
                 Engine:=1, _
                 EngineDesc:="GRG Nonlinear"
        
        ' 添加约束（使用changeRange的Address属性）
        SolverAdd cellRef:=changeRange.Address, _
                  relation:=1, _
                  formulaText:=4
        SolverAdd cellRef:=changeRange.Address, _
                  relation:=3, _
                  formulaText:=0
        
        ' 仅调用一次SolverSolve，启用UserFinish避免弹窗干扰循环
        SolverSolve UserFinish:=True
        SolverFinish KeepFinal:=1
        
        ' 优化复制操作，直接赋值替代Select/Copy/Paste
        Cells(5 + 48 * (i + 1), 29).Value = Cells(6 + 48 * i, 29).Value
        Cells(5 + 48 * (i + 1), 34).Value = Cells(6 + 48 * i, 34).Value
        
    Next i
End Sub

关键修改说明 #

• 生成合法单元格地址：通过targetCell.Address和changeRange.Address获取Solver需要的A1格式地址，替代原来的无效表达式字符串。
• 循环前重置Solver：SolverReset会清除上一次的所有Solver状态，确保每次循环都是全新的求解环境。之前添加该语句后无法启动，是因为原单元格引用错误导致的，修正后即可正常使用。
• 移除重复求解调用：保留一次SolverSolve UserFinish:=True，避免状态冲突。
• 简化复制逻辑：去掉Select和Copy/PasteSpecial，直接赋值单元格值，更高效且避免选择状态带来的潜在问题。

额外建议 #

• 替换ActiveSheet为具体工作表名（如Worksheets("供暖优化表")），防止因工作表切换导致错误。
• 确认已启用规划求解加载项：Excel选项→加载项→管理Excel加载项→勾选“规划求解加载项”。

内容的提问来源于stack exchange，提问作者bkdata