vba两个数组多项式拟合怎么做

在VBA中进行多项式拟合，可以借助于Excel中的函数来实现。假设我们有两个数组x和y，我们可以使用Excel的工具进行多项式拟合。

首先，在Excel中打开一个空白工作表，将x和y数组放在两列中。然后，选择数据区域，点击“插入”选项卡中的“散点图”图标，选择“散点图（加平滑线）”。

接下来，在图表上右键点击平滑线，选择“添加趋势线”，并选中“多项式”类型，在“阶数”文本框中输入多项式的阶数（例如3），勾选“显示方程式”和“显示R²值”，点击“确定”按钮。

现在，在图表上已经显示出了多项式拟合的方程式和R²值。我们可以将方程式和R²值从图表中复制到VBA代码中，并使用数组x和方程式计算出拟合的y值。

以下是示例代码：

Sub PolyFit()

Dim x() As Double, y() As Double, coef() As Double
Dim n As Integer, m As Integer
Dim formula As String, r2 As Double
Dim i As Integer, j As Integer
Dim yfit() As Double

'Set the values of x and y arrays

n = UBound(x) - LBound(x) + 1
m = 3 'polynomial order

'Redimension coef and yfit
ReDim coef(m)
ReDim yfit(n)

'Perform polynomial fit
formula = WorksheetFunction.LinEst(y, Application.Power(x, Array(1, 2, 3)))
r2 = WorksheetFunction.RSq(y, Application.Power(x, Array(1, 2, 3)))

'Extract coefficients from formula string
For i = 1 To m + 1
coef(i - 1) = Val(Mid(formula, InStr(1, formula, "(") + 1 + i * 8, 8))
Next i

'Calculate yfit
For i = LBound(x) To UBound(x)
yfit(i - LBound(x)) = coef(0) + coef(1) * x(i) + coef(2) * x(i) ^ 2 + coef(3) * x(i) ^ 3
Next i

End Sub

在以上代码中，我们首先定义了三个数组x、y和yfit，分别表示输入的x、y数组和拟合后的y值数组。然后，我们使用LinEst函数进行多项式拟合，得到拟合的方程式和R²值。在这个例子中，我们拟合三阶多项式。

接着，我们使用Mid函数从方程式字符串中提取出系数，存储到coef数组中。最后，我们使用提取出的系数计算拟合的y值，并存储到yfit数组中。

最终，我们可以使用打印语句显示拟合的y值数组。使用以上方法，可以使用VBA实现多项式拟合。