EXCEL中求列中1的连续出现大于5次的次数，公式或VBA

出现1连续大于5的次数的公式：

=SUM(IF(FREQUENCY(IF(A1:A1000=1,ROW(1:1000),""),IF(A1:A1000<>1,ROW(1:1000),""))>5,1,0))

按CTAL+SHIFT+回车 结束输入，即可得到答案。

至于变成红色可以用条件格式做到：

1、选中A列——》

2、按着CTAL然后用鼠标点一下A5单元格——》

3、菜单－》格式－》条件格式—》输入公式：一共要做5个公式：

=AND(SUM($A1:$A4)=4,$A5=1)

=AND($A5=1,SUM($A2:$A4)=3,$A6=1)

=AND($A5=1,SUM($A3:$A4)=2,SUM($A6:$A7)=2)

=AND($A5=1,$A4=1,SUM($A6:$A8)=3)

=AND($A5=1,SUM($A6:$A9)=4)

效果图：

因为我的版本是2003版的，只能做3个条件，2007版本以上的就可以做N条公式了。

1 下载附件，点击按钮

2 A列连续1大于等于6的单元格背景红色，次数输出在B2单元格

3 不明白HI我

大于5的结果应该是2吧。

这个好高难度，不用编程搞不定啊，用vb吧