在VBA中创建简单回归的函数，可以使用以下代码示例：

Function SimpleRegression(x As Range, y As Range) As Double
    '计算简单回归的函数
    'x和y为输入的数据范围
    
    Dim n As Long
    Dim sumX As Double, sumY As Double
    Dim sumXY As Double, sumX2 As Double
    Dim slope As Double, intercept As Double
    
    n = x.Rows.Count
    
    '计算x和y的总和
    For i = 1 To n
        sumX = sumX + x.Cells(i, 1).Value
        sumY = sumY + y.Cells(i, 1).Value
        sumXY = sumXY + x.Cells(i, 1).Value * y.Cells(i, 1).Value
        sumX2 = sumX2 + x.Cells(i, 1).Value ^ 2
    Next i
    
    '计算斜率和截距
    slope = (n * sumXY - sumX * sumY) / (n * sumX2 - sumX ^ 2)
    intercept = (sumY - slope * sumX) / n
    
    '返回截距
    SimpleRegression = intercept
End Function

使用上述函数，可以在VBA代码中调用，例如：

Sub TestSimpleRegression()
    Dim xRange As Range
    Dim yRange As Range
    Dim intercept As Double
    
    '设置x和y的数据范围
    Set xRange = Range("A1:A10")
    Set yRange = Range("B1:B10")
    
    '调用SimpleRegression函数
    intercept = SimpleRegression(xRange, yRange)
    
    '显示截距
    MsgBox "Intercept: " & intercept
End Sub

在上述示例中，假设数据范围为A1:A10和B1:B10，SimpleRegression函数计算简单回归的截距，并将其作为返回值。然后，可以在TestSimpleRegression子过程中调用该函数，并显示截距。