如何使用Excel VBA获得多项式回归系数？

我有两列，说x和f(x) 。 我想在Excel VBA中做多项式回归之后得到二次方程的系数。

我是Excel VBA的新手，不知道该怎么做。

例如-

XY
-1 -1
0 3
1 2.5
2 5
3 4
5 2
7 5
9 4

等式f(x)=a*x^2+b*x+c的系数将是

 a= -.008571 b= 0.99555 c= 1.648439. 

我得到了使用这个网站的系数

Answer 1

在使用代码这方面，使用LINEST ，下面的一种方法

 Sub Quaddy() Dim X X = Application.Evaluate("=linest(b1:B8,A1:A8^{1,2})") MsgBox "Equation is y=" & Format(X(1), "0.###") & "x2+" & Format(X(2), "0.###") & "x+" & Format(X(3), "0.###") End Sub 

这显示在下面的Excel图表中