公式真有点麻烦,可以使用VBA编程
Function COUNTTT(RNG As Range, STR As String)
arr = RNG
Max = 0
num = 0
S = Application.WorksheetFunction.CountA(RNG)
For i = 1 To S
If arr(i, 1) = STR Then
num = num + 1
If Max < num Then Max = num
Else
num = 0
End If
Next i
COUNTTT = Max
End Function
把这个代码写到模板里面,公式就可以使用了,如下