求连续出现的次数

wxf921

请教各位高手：我想求"1"和"一"连续出现的次数，如何写函数。如图

ilovelittle

1. =IFERROR(INDEX(FREQUENCY(IF($A$2:$A$15=1,ROW($A$2:$A$15)),IF($A$2:$A$15<>1,ROW($A$2:$A$15))),SMALL(IFERROR(IF(FREQUENCY(IF($A$2:$A$15=1,ROW($A$2:$A$15)),IF($A$2:$A$15<>1,ROW($A$2:$A$15)))>0,ROW($A$1:$A$14)),FALSE),ROW(A1))),"")

复制代码

可以简化一下吧。

cabcyvr

辅助列方法（供参考）
d2=IF(A2<>A1,A2&"/"&SUMPRODUCT(($A$2:A2=A2)*($A$2:A2<>$A$1:A1)*1)&"/"&TEXT(MIN(IF(A3:$A$16<>A2,ROW(A3:$A$16)))-ROW(),"0000"),"")  数组下拉

b1=IFERROR(RIGHT(INDEX(D:D,MATCH("1/"&ROW(A1)&"*",D:D,)),4)-0,"")     下拉复制
C1=IFERROR(RIGHT(INDEX(D:D,MATCH("一/"&ROW(A1)&"*",D:D,)),4)-0,"")    下拉复制

wxf921

ilovelittle 发表于 2018-7-4 11:56
可以简化一下吧。

非常感谢您的帮助！

wxf921

cabcyvr 发表于 2018-7-5 08:12
辅助列方法（供参考）
d2=IF(A2A1,A2&"/"&SUMPRODUCT(($A$2:A2=A2)*($A$2:A2$A$1:A1)*1)&"/"&TEXT(MIN(IF( ...

非常感谢您的帮助！

高

结果中的0也可以去掉，公式会稍长些。我觉得0个就说明没有了。

wxf921

高 发表于 2018-7-21 11:14
结果中的0也可以去掉，公式会稍长些。我觉得0个就说明没有了。

非常感谢您的帮助！