能否通过Excel Solver串联实现嵌套优化：先最大化g(x)再最小化f(a)

当然可以实现这种嵌套式的优化需求！你描述的是一个双层优化问题：外层是对参数a的最小化，内层则是针对每个给定的a，先完成对x的最大化——这完全可以通过Excel Solver结合VBA来串联实现，本质上就是让内层Solver的求解成为外层Solver迭代过程中的必要环节。

核心逻辑拆解 #

• 外层Solver的任务：调整参数a，目标是最小化f(a)
• 内层Solver的任务：对每一个外层给出的a值，先求解max g(x(a))得到最优x*，再将x*代入计算当前a对应的f(a)值，供外层Solver判断迭代方向

具体实现方案 #

1. 先做好Excel单元格布局 #

提前规划好单元格的功能，确保公式关联正确：

• 用固定单元格存放参数a（比如你伪代码里的$I$8）
• 用固定单元格存放变量x（比如$I$9）
• $G$5单元格：编写公式计算g(x,a)，作为内层最大化的目标
• $G$4单元格：编写公式计算f(a,x*)（x*是内层求解的最优值），作为外层最小化的目标

2. 用VBA实现嵌套Solver调用 #

你的伪代码只是单独调用了两次Solver，没有形成串联逻辑。下面是修正后的可执行思路，通过VBA让内层求解自动嵌入外层迭代：

Sub NestedOptimization()
    Dim outerConverged As Boolean
    Dim prevF As Double, currentF As Double
    Dim iterationCount As Integer
    iterationCount = 0
    outerConverged = False
    
    ' 初始化外层Solver：最小化f(a)，调整参数a（$I$8）
    SolverReset
    SolverOk SetCell:="$G$4", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$8", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    
    Do While Not outerConverged
        iterationCount = iterationCount + 1
        
        ' 步骤1：针对当前a值，执行内层最大化求解最优x
        SolverReset
        SolverOk SetCell:="$G$5", MaxMinVal:=1, ValueOf:=0, ByChange:="$I$9", _
            Engine:=1, EngineDesc:="GRG Nonlinear"
        ' 执行内层求解，不弹出对话框
        SolverSolve UserFinish:=True
        
        ' 步骤2：判断外层是否收敛
        currentF = Range("$G$4").Value
        ' 收敛条件：f(a)变化量小于0.0001，或迭代次数超过10次
        If Abs(currentF - prevF) < 0.0001 Or iterationCount >= 10 Then
            outerConverged = True
        Else
            prevF = currentF
            ' 单步执行外层Solver迭代
            SolverSolve StepThru:=True
        End If
    Loop
    
    ' 保存最终求解结果
    SolverSave SaveArea:="$A$1:$A$5"
End Sub

3. 更简洁的替代方案：自定义函数封装内层优化 #

如果你不想写复杂的循环，也可以把内层最大化逻辑封装成VBA自定义函数，直接在计算f(a)的单元格中调用：

Function GetOptimalF(a As Double) As Double
    ' 将传入的a值写入对应单元格
    Range("$I$8").Value = a
    
    ' 执行内层Solver求解max g(x,a)
    SolverReset
    SolverOk SetCell:="$G$5", MaxMinVal:=1, ValueOf:=0, ByChange:="$I$9", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve UserFinish:=True
    
    ' 返回当前a对应的最优f值
    GetOptimalF = Range("$G$4").Value
End Function

之后在$G$4单元格输入公式=GetOptimalF($I$8)，外层Solver调整$I$8（参数a）时，会自动触发这个函数完成内层优化，再得到f(a)的值进行最小化。

关键注意事项 #

• 确保g(x,a)和f(a,x)的单元格公式能自动关联a和x的变化，每次x更新后f的值要实时刷新
• 使用GRG Nonlinear引擎时，尽量保证目标函数是连续可微的，否则可能出现收敛困难
• 记得在Excel中启用宏，并允许Solver在VBA中运行（可在信任中心设置）
• 如果内层优化有约束条件，要通过SolverAdd语句添加，比如SolverAdd CellRef:="$J$9", Relation:=1, FormulaText:="0"（限制x≥0）

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