エクセルで連続した回数を数える方法を教えてください

エクセルの使い方で質問があります。
A列に連続したデータがあってその中で10回連続で1があったら1回と数えるようにしたいのですが、
どういう数式を書いたらいいでしょうか？
よろしくお願いします。

例、1

1行
2行 1 --
3行 1
4行 1
5行 1
6行 1 1回
7行 1
8行 1
9行 1
10行 1
11行 1 --
12行
13行
14行 1
15行 1
16行 1
17行
18行
19行 1 --
20行 1
21行 1
22行 1
23行 1 1回
24行 1
25行 1
26行 1
27行 1
28行 1 --
29行 1
30行 1

カウント2回

例2、

1行
2行 1 --
3行 1
4行 1
5行 1
6行 1 1回
7行 1
8行 1
9行 1
10行 1
11行 1 --
12行 1 --
13行 1
14行 1
15行 1
16行 1 1回
17行 1
18行 1
19行 1
20行 1
21行 1 --
22行 1
23行 1
24行 1
25行 1
26行 1
27行 1
28行 1
29行 1
30行 1

カウント2回

のように数えるようにしたいと思います。
よろしくお願いします。

No.2 ベストアンサー 回答者： web2525 回答日時： 2013/01/24 23:54

セルB10

=IF(AND(COUNTIF(A1:A10,1)=10,COUNTIF(B1:B9,1)=0),1,"")
以下ドラッグコピー

この回答へのお礼

ご解答ありがとうございました。
教えていただいた方法で回数を求めることが出来ました。

お礼日時：2013/01/25 00:52

No.3 回答者： web2525 回答日時： 2013/01/25 00:03

No2です

ちなみにこんな形で条件付き書式を設定すると、10連続の範囲を罫線で表示することもできます

この回答へのお礼

範囲の見方まで教えて頂き、本当にありがとうございます。
早速やってみます。

お礼日時：2013/01/25 00:57

No.1 回答者： maiko0318 回答日時： 2013/01/24 23:30

B10に、

=IF(AND(A1=1,A2=1,A3=1,A4=1,A5=1,A6=1,A7=1,A8=1,A9=1,A10=1),1,"")

を書いて下にコピーする

この回答へのお礼

ご解答ありがとうございました。

お礼日時：2013/01/25 00:50