求各值的最大连续出现数

爱疯

问题：统计A列各值最大连续出现的次数。结果如c1:d4。
要求：
1）A列各种值>4
2）数据最大行不定。适用>65536更好。（测试更多数据，请自行添加。为了让问题好查看和理解，所以示例数据很少）
3）各种值asc码不连续，也适用。
4）各种值不是单字符，也适用。


奖励：
1）技巧不要求数据量，最好思路的，金币 +50；前3名正确操作， 金币 +10
2）函数不要求数据量，最短公式的，金币 +50；前3名正确公式， 金币 +10
3）                      VBA，最快速度的，金币 +50；前3名正确代码， 金币 +10
（奖励完毕）

周六 2013-03-23 12:00 高亮消失后，取消仅作者可见功能。

那么的帅

多来些数据，进行测试

JLxiangwei

=MAX(FREQUENCY(ROW($2:20),(A$1:A19<>A$2:A20)*ROW($2:20))*(A$1:A20=C1))
数组

csmctjg

1. vba方法：
   
2. Sub aa()
   
3.     Dim i&, j&, d As New Dictionary, arr
   
4.     arr = Range("A1:A" & Range("A" & Rows.Count).End(3).Row + 1)
   
5.     For i = 1 To UBound(arr) - 1
   
6.         j = i
   
7.         Do While arr(i, 1) = arr(i + 1, 1)
   
8.             i = i + 1
   
9.         Loop
   
10.         If d(arr(i, 1)) < i - j + 1 Then d(arr(i, 1)) = i - j + 1
    
11.     Next
    
12.     [C1].Resize(d.Count) = Application.Transpose(d.Keys)
    
13.     [D1].Resize(d.Count) = Application.Transpose(d.Items)
    
14. End Sub
    
15. 函数方法（数组公式）：
    
16. =MAX(FREQUENCY(IF(A$1:A$19=C1,ROW($1:$19)),IF(A$1:A$19=C1,,ROW($1:$19))))
    

复制代码

tuotuo865

因为数据少，所以我一数就数出来了……

  呵呵，这个算思路最好不？

tkgg93

笨笨四

D1=MAX(FREQUENCY(ROW($1:$19),(A$1:A$19<>C1)*ROW($1:$19)))-1
数组。

笨笨四

咋回复全看见了？

yunqingzi

{=MAX(FREQUENCY(IF(A$1:A$19=C1,ROW(1:19)),IF(A$1:A$19=C1,,ROW(1:19))))}

云影

1. =MAX(FREQUENCY(IF(A:A=C1,ROW(A:A)),IF(A:A=C1,,ROW(A:A))))

复制代码