批量单变量求解 office wps 单变量求解比较

单变量求解是解决假定一个公式要取的某一结果值，其中变量的引用单元格应取值为多少的问题。

搞了快10年研发，单变量求解还真没搞过，今天有需求，找到office和wps都有这个高级功能

需求公式：

excel公式：

(POWER(A3+1,2)-1)/(A3*POWER((1+A3),B3-1))

r	n	h
1	2	1.5
-0.947368444	2	20.00001

office：

根据百度教程，把h设置为20，n为2，计算出来r是-0.947368444

再反过来把r=-0.947368444,n=2代入公式，h计算基本正确

wps：

带进去，计算出来一个值-9999722440

估计是越界了

vba批量单变量求解：

Sub ma()


   '单个单元格例子：  Range("C2").GoalSeek Goal:=1111, ChangingCell:=Range("A2")
     Dim i, j
    j = 2
    For r = 1 To ActiveSheet.UsedRange.Rows.Count
           ' Worksheets(3).Cells(j, 3).Value = i
           If (ActiveSheet.Cells(j, 4).Value <> "") Then
            ActiveSheet.Cells(j, 3).GoalSeek Goal:=ActiveSheet.Cells(j, 4).Value, ChangingCell:=ActiveSheet.Cells(j, 1)
           End If
            
        j = j + 1
    Next
End Sub