自定义函数AC值

Function AC(rng As Range) As Integer '自定义函数AC值 =AC(B5:K5)
    Dim rg As Range, n As Integer
    Dim d As Object
    Dim i, k
    Set d = CreateObject("Scripting.Dictionary")
    n = 1
    For Each rg In rng
        If n < rng.Count Then
            For i = 1 To rng.Count - n
                d(rg.Offset(0, i).Value - rg.Value) = d(rg.Offset(0, i).Value - rg.Value) + 1
            Next
        End If
        n = n + 1
    Next
    n = 0
    For Each k In d.keys
        If d(k) > 1 Then n = n + 1
    Next
    If n > 0 Then n = 1
    AC = d.Count - rng.Count + n
    Set d = Nothing
End Function