Excel 多行多列卡方值计算自定义函数

ly随缘

'多行多列卡方值计算函数
Public Function KF(r As Range) As Double
    Dim i, j, A, C, M, P, Q As Integer
    P = r.Rows.Count
    Q = r.Columns.Count
    Dim H(), L() As Integer
    Dim B, N As Double
    ReDim H(P)
    ReDim L(Q)
    M = 0
    For i = 1 To P
        A = 0
        For j = 1 To Q
            A = A + r.Cells(i, j)
        Next
        H(i) = A
        M = M + H(i)
    Next
    For j = 1 To Q
        B = 0
        C = 0
        For i = 1 To P
            B = B + r.Cells(i, j) ^ 2 / H(i)
            C = C + r.Cells(i, j)
        Next
        L(j) = C
        N = N + B / L(j)
    Next
    KF = M * (N - 1)
End Function
方法：1、打开Excel工作薄，依次点击 工具——宏——Visual Basic 编辑器；
      2、依次点击 插入——模块，然后将以上代码复制后粘贴到窗口中；
      3、保存后在表中任一单元格输入如“=KF(A1:C2)”，括号内A1:C2为待计算数据区域(根据您表格数据范围确定)；
      4、点击一下工具栏内的绿色钩即可。