自动化多数据集单变量求解（Goal Seek）Do Until循环语法错误求助

核心问题分析 #

你的代码编译错误的直接原因是Do循环结构完全错误：

• 错误写法把Do和Loop Until直接绑定，后续又多写了一个Loop，属于重复闭合循环，违反VBA语法规则。
• 虽然Range引用本身没问题，但循环逻辑和GoalSeek的写法可以更严谨。

修正后的代码示例 #

写法1：先判断条件，不满足再执行求解 #

Sub Macro3()
    Do Until Range("Target_NPV_Delta").Value = 0
        ' 执行单变量求解：让Target_NPV等于NPV_Calc的数值，调整Rate单元格
        Range("Target_NPV").GoalSeek _
            Goal:=Range("NPV_Calc").Value, _
            ChangingCell:=Range("Rate")
    Loop
End Sub

写法2：先执行一次求解，再判断条件是否需要继续 #

Sub Macro3()
    Do
        Range("Target_NPV").GoalSeek _
            Goal:=Range("NPV_Calc").Value, _
            ChangingCell:=Range("Rate")
    Loop Until Range("Target_NPV_Delta").Value = 0
End Sub

关键注意点 #

• 确保所有命名区域（Target_NPV_Delta、Target_NPV、NPV_Calc、Rate）在Excel中正确定义，无拼写错误。
• GoalSeek本身是单次求解函数，若Target_NPV_Delta不会因外部因素变化，其实无需循环，直接执行一次即可得到目标结果。
• 若要处理大量数据集，需修改代码遍历每组数据，将固定命名区域替换为对应行/组的单元格引用。

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