Excel Solver运行时长问题：设置阶段vs主动求解阶段优化咨询

我之前也碰到过一模一样的问题——批量用VBA跑Solver时，光是"Setting Up Problem..."这一步就拖慢了整个流程，手动操作反而快很多。结合我踩过的坑和摸索出来的优化方法，下面给你拆解影响设置时间的关键变量，以及对应的解决方案：

Key Variables Affecting Solver Setup Time #

• Workbook Calculation Mode: 自动计算模式下，Solver每次设置约束或目标时都会触发不必要的后台计算，这是拖慢设置的头号元凶。
• Overly Broad Range References: 如果你的VBA代码里用了整列（比如Range("A:A")）或者超大无意义范围作为约束/目标，Solver需要扫描大量空单元格来定位有效数据，耗时会飙升。
• Redundant Solver Initialization: 每次循环都调用SolverReset或者重复初始化Solver对象，会重复加载配置文件和重置状态，增加额外开销。
• Volatile Worksheet Functions: 包含NOW()、OFFSET()这类易失性函数的工作表，会在Solver设置过程中频繁触发计算，拖慢整体速度。
• Unnecessary Screen/Event Overhead: VBA运行时默认的屏幕更新、工作表事件（比如Worksheet_Change）会在设置过程中不断刷新界面、触发事件，浪费大量系统资源。

Optimization Techniques to Speed Up Setup #

• Force Manual Calculation Before Setup
  在调用任何Solver方法前，把计算模式改成手动，完成所有设置和求解后再恢复：

  Dim originalCalcMode As XlCalculation
  originalCalcMode = Application.Calculation
  Application.Calculation = xlCalculationManual
  
  ' 你的Solver设置与求解代码
  
  Application.Calculation = originalCalcMode
  

• Use Exact, Dynamic Range References
  不要用整列或固定大范围，而是动态定位有效数据的边界，比如：

  Dim targetRange As Range, constraintRange As Range
  ' 定位目标单元格（假设目标在B列最后一行）
  Set targetRange = Range("B" & Cells(Rows.Count, "B").End(xlUp).Row)
  ' 定位约束范围（假设约束从C2开始到最后一行）
  Set constraintRange = Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row)
  

• Minimize Solver Reset Calls
  不要在循环内重复调用SolverReset——除非你需要完全清空所有设置。如果只是修改目标或约束，可以直接覆盖现有配置，避免重复初始化：

  ' 循环外初始化一次基础配置
  SolverOk SetCell:=initialTarget, MaxMinVal:=3, ByChange:=initialVariables
  For Each problem In problemList
      ' 只更新需要变更的目标/约束
      SolverOk SetCell:=newTarget
      SolverAdd CellRef:=newConstraint, Relation:=1, FormulaText:=constraintValue
      ' 静默求解
      SolverSolve UserFinish:=True
      ' 清理当前约束（如果下一轮不需要）
      SolverDelete CellRef:=newConstraint, Relation:=1
  Next
  

• Disable Screen Updating & Events
  在批量运行前关闭屏幕更新和工作表事件，减少界面和事件触发的开销：

  Application.ScreenUpdating = False
  Application.EnableEvents = False
  
  ' 你的批量Solver代码
  
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  

• Replace Volatile Functions
  如果工作表里有易失性函数，尽量替换成非易失性的替代方案，或者在Solver运行前把这些函数的结果转换成静态值（比如复制粘贴为数值）。
• Use the Modern Solver2 Object
  避免使用旧版的Solver.XLA宏命令，改用Solver2对象可以减少兼容性开销，提升设置效率：

  Dim solverObj As Solver2
  Set solverObj = Application.Solver
  
  solverObj.Ok SetCell:=targetRange, MaxMinVal:=xlMax, ByChange:=variableRange
  solverObj.Add CellRef:=constraintRange, Relation:=xlEqual, FormulaText:=targetValue
  solverObj.Solve UserFinish:=True
  

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