请问在excel2003中自定义数组函数的代码是如何写的？

rfnli

第一组数据：9，8，7，6，5，4……
第二组数据：8，7，6，5，4，3……
1、求第二组数据减第一组对应数据差的和，2、求第一组数据减第一组数据平均值的和，3、第一组数据减第一组数据的平均值 乘 第二组数据减第二组数据的平均值 再求和。
请问在excel2003中的代码是如何写的？谢谢

rfnli

3、第一组数据减第一组数据的平均值 乘 第二组数据减第二组数据的平均值 再求和。出错？
Public Function udSuma(r, s As Range) As Double

     Dim i As Integer
     Dim j As Integer
     Dim a As Double
     Dim b As Double
     Dim c As Double
     Dim d As Double
     Dim e As Double
     
     a = 0
     d = 0
     e = 0
     If r.Rows.Count = s.Rows.Count Then            '判断两数组计数是否相同
     For i = 1 To r.Rows.Count                      '对 r 进行计数
        For j = 1 To r.Columns.Count                '
            b = b + r.Cells(i, j) / r.Rows.Count    'r列的平均值
            c = c + s.Cells(i, j) / s.Rows.Count    's列的平均值
            d = (r.Cells(j) - b) * (s.Cells(j) - c) '计算的是(r列第一行数-r平均值)*(s列的第一行数-s列平均值)的结果。
                                                    '不知如何计算(r列数-r平均值)*(s列数-s列平均值)结果之和。
            e = e + (r.Cells(i, j) - b) * (s.Cells(i, j) - c)            '这样计算(r列数-r平均值)*(s列数-s列平均值)结果之和。结果错误，请高手帮助解决，先行谢谢！。
        Next j
     Next i
     End If
     udSuma = e
     End Function