将以下代码复制到模块中，就可以在Excel里面调用了。
Public Function TotalMax(CelRange As Range) As Integer '统计最大连续现出次数
Dim Js As Integer
For i = CelRange.Count To 2 Step -1
If Val(CelRange(i, 1)) = Val(CelRange(i - 1, 1)) Then
Js = Js + 1
Else
If Js > TotalMax Then TotalMax = Js
Js = 0
End If
Next i
If TotalMax > 0 Then TotalMax = TotalMax + 1
If TotalMax >= CelRange.Count - 1 Then TotalMax = 0
End Function
Public Function AcTMax(CelRange As Range) As Integer '统计当前连续出现次数
Dim Js As Integer
For i = CelRange.Count To 2 Step -1
If Val(CelRange(i, 1)) = Val(CelRange(i - 1, 1)) Then
Js = Js + 1
Else
Exit For
End If
Next i
If Js > 0 Then AcTMax = Js + 1
End Function