你可以用VBA编写回归函数吗

是的，可以使用VBA编写回归函数。以下是一个简单的线性回归函数的例子：

Function LinearRegression(x As Range, y As Range) As Variant
    Dim n As Integer
    Dim i As Integer
    Dim sumx As Double
    Dim sumy As Double
    Dim sumxy As Double
    Dim sumx2 As Double
    Dim sx As Double
    Dim sy As Double
    Dim r As Double
    Dim b As Double
    Dim a As Double
    
    n = x.Rows.Count
    For i = 1 To n
        sumx = sumx + x(i, 1)
        sumy = sumy + y(i, 1)
        sumxy = sumxy + x(i, 1) * y(i, 1)
        sumx2 = sumx2 + x(i, 1) ^ 2
    Next i
    
    sx = Sqr((n * sumx2 - sumx ^ 2) / (n * (n - 1)))
    sy = Sqr((n * WorksheetFunction.SumSq(y) - WorksheetFunction.Sum(y) ^ 2) / (n * (n - 1)))
    r = (n * sumxy - sumx * sumy) / (Sqr(n * sumx2 - sumx ^ 2) * Sqr(n * WorksheetFunction.SumSq(y) - WorksheetFunction.Sum(y) ^ 2))
    b = r * sy / sx
    a = WorksheetFunction.Average(y) - b * WorksheetFunction.Average(x)
    
    LinearRegression = Array(a, b, r)
End Function

该函数需要两个参数：x和y，分别代表自变量和因变量。函数返回一个包含三个元素的数组：截距，斜率和相关系数。可以将该函数放入VBA代码模块中，并通过Excel公式调用。例如，要在单元格C1中计算x和y的线性回归方程的截距，可以使用以下公式：

`=LinearRegression(A2:A10, B2:B10)(0)`

类似地，要在单元格D1中计算斜率，可以使用以下公式：

`=LinearRegression(A2:A10, B2:B10)(1)`

要在单元格E1中计算相关系数，可以使用以下公式：

`=LinearRegression(A2:A10, B2:B10)(2)`