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
