ｅｘｃｅｌで連続空白部分の個数を求める

質問

ｅｘｃｅｌで列の「空白」の個数を数えられるプログラム方法を教えてほしいです。

具体的な出題形式はどんなものかと申しますと、たとえば下記のようにｅｘｃｅｌシートＡ１～Ａ１５に「〇」がランダムで記載されているとします。

　Ａ　　Ｂ
１〇
２〇
３
４〇
５
６〇
７〇
８
９
10
11
12〇
13
14
15〇

この場合、Ａ３とＡ５で計1個の空白部分、Ａ８～Ａ１１に4個の空白部分、Ａ１３～Ａ１４に2個の空白部分があるということになります。
このA列の「〇」と「〇」の間隔にある「空白部分」の個数をB列に表記したいのです。つまり、

　Ａ　　Ｂ
１〇
２〇
３　　　１
４〇
５　　　１
６〇
７〇
８
９
10
11　　　４
12〇
13
14　　　２
15〇

といったような形です。
今回一番知りたいのは「連続空白部分の個数」を出力したいのです。

大変、申し訳ないですがこのような表記ができる、もしくは連続空白個数を判明できるプログラムはどのようにすればよいでしょうか

回答No.1

keithin · ベストアンサー

プログラム方法？
わざわざマクロを使って記入させたいということですか？

ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim r as long
　dim rr as long
　range("B:B").clearcontents

　for r = range("A65536").end(xlup).row to 1 step -1
　　if cells(r, "A") = "" and cells(r + 1, "A") <> "" then
　　　for rr = r to 1 step -1
　　　　if cells(rr, "A") <> "" then exit for
　　　next rr
　　　cells(r, "B") = r - rr
　　　r = rr
　　end if
　next r
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押してマクロを実行する。

＃参考
わざわざマクロとか使わなくても、ふつーに数式だけで
例えばＢ２に
=IF(AND(A3<>"",A2=""),ROW()-MATCH("○○",$A$1:A2,1),"")
と記入、下までコピー貼り付けるだけでもほとんと十分です。

もっとも、あなたの「実際のエクセル」に例えばじゃなく実際に何を記入してるのかに応じて、勿論適切に数式を作成しなきゃなりませんが。

お礼

回答ありがとうございます。

マクロの方まで答えていただき感謝しています。