能否用=substitute替换线性方程中X并求解？迭代求解器字符串问题求助

• 用Excel内置EVALUATE函数解析字符串方程
  假设方程字符串存在A1单元格，当前迭代的X数值在B1，先用SUBSTITUTE替换变量X，再用EVALUATE执行计算：

  =EVALUATE(SUBSTITUTE(A1,"X",B1))
  

  注意：EVALUATE属于宏表函数，部分Excel版本需要按Ctrl+Shift+Enter作为数组公式输入；也可以把它定义到名称管理器里，调用起来更稳定。

• 自定义VBA函数增强灵活性
  如果内置函数满足不了需求，写个简单的VBA函数处理：

  Function IterateSolve(equation As String, xValue As Double) As Double
      Dim calcStr As String
      calcStr = Replace(equation, "X", CStr(xValue))
      IterateSolve = Application.Evaluate(calcStr)
  End Function
  

  保存为启用宏的工作簿后，直接在单元格调用：

  =IterateSolve(A1,B1)
  

  只要B1的X值更新，计算结果会自动刷新。

• 设置自动迭代收敛循环
  要实现从初始值自动迭代到收敛：

  1. 在B1单元格输入初始X值，比如=1
  2. C1单元格用上述方法计算迭代后的值：=IterateSolve(A1,B1)
  3. 将C1的值链接到B1，然后开启Excel的迭代计算：依次点击「文件>选项>公式」，勾选“启用迭代计算”，设置最大迭代次数和允许的误差范围
     这样工作簿会自动循环计算，直到结果满足收敛条件。

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