Excel Solver宏仅对单行生效，请求排查问题原因

问题描述 #

选中单元格后，期望实现以下Solver自动化逻辑：

• 目标单元格设为当前选中单元格
• 目标值取附近单元格的值（示例为G17）
• 可变单元格设为当前选中单元格正下方的单元格
  但运行下方宏代码时，仅第一行生效，对其他行无反应且无报错：

Sub Macro3()
'
' Macro3 Macro
'

'
    ChangingCell = ActiveCell.Offset(0, -13)
    TargetCell = ActiveCell.Offset(-1, -13).Value
    SolverOk SetCell:=ActiveCell, MaxMinVal:=3, ValueOf:=TargetCell, ByChange:=ChangingCell, _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:=ActiveCell, MaxMinVal:=3, ValueOf:=TargetCell, ByChange:=ChangingCell, _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub

问题原因及修复方案 #

核心问题1：单元格对象未用Set声明 #

VBA中引用单元格对象时，必须用Set关键字赋值，否则会默认提取单元格的值而非对象本身。原代码里ChangingCell = ActiveCell.Offset(0, -13)实际是把单元格的值赋给变量，而非单元格对象，导致Solver无法识别正确的可变单元格范围。

核心问题2：单元格偏移逻辑与需求不符 #

你要求可变单元格是“当前选中单元格正下方的单元格”，但原代码用的是Offset(0, -13)（同列左移13列），这和需求完全匹配不上，也是仅第一行可能“碰巧”生效的原因。

核心问题3：重复调用SolverOk #

原代码连续两次调用SolverOk属于冗余操作，可能干扰Solver的参数初始化流程。

修复后的宏代码 #

Sub FixedSolverMacro()
' 修复后的Solver自动化宏
    Dim targetCell As Range
    Dim changingCell As Range
    Dim targetValue As Variant
    
    ' 按需求定义各单元格：
    Set targetCell = ActiveCell ' 目标单元格为当前选中单元格
    targetValue = targetCell.Offset(-1, 0).Value ' 目标值为当前单元格正上方单元格的值（对应示例G17的位置逻辑）
    Set changingCell = targetCell.Offset(1, 0) ' 可变单元格为当前单元格正下方单元格
    
    ' 设置Solver参数
    SolverOk SetCell:=targetCell, _
             MaxMinVal:=3, _
             ValueOf:=targetValue, _
             ByChange:=changingCell, _
             Engine:=1, _
             EngineDesc:="GRG Nonlinear"
    
    ' 运行Solver
    SolverSolve UserFinish:=True ' UserFinish:=True可跳过结果弹窗，直接完成计算
End Sub

额外注意事项 #

• 确保已启用Solver加载项：文件→选项→加载项→管理Excel加载项→转到→勾选“规划求解加载项”
• 若目标值的位置不是正上方，可调整Offset的参数（Offset(行偏移, 列偏移)，正数代表向下/向右，负数代表向上/向左）

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