プロが教える店舗&オフィスのセキュリティ対策術

Excel2016を利用しています。

A列に、文字がランダムに入力されています。
その文字から文字までの空白のセルをカウントしたいのです。

aaaa~bbb ⇒空白セルは4個
bbb~ccc  ⇒空白セルは1個
ccc~ddd ⇒空白セルは2個

これをどのようにVBAで表現するのか、困っています。
お手数ですが、ご教示お願いします。

「Excel VBA 空白セルのカウントに」の質問画像

質問者からの補足コメント

  • うーん・・・

    仰せの通りです。
    自分で考えたのは、A列が空白だったら、連番を振るというようにかんがえたのですが、
    うまくできなくて困っています。

    No.1の回答に寄せられた補足コメントです。 補足日時:2019/09/11 12:31

A 回答 (2件)

シート名をSheet1とした場合の1例です。



Dim Sh1 As Worksheet
Set Sh1 = Worksheets("Sheet1")

END1 = Sh1.Range("A65536").End(xlUp).Row
CNT = 0

For Cnt1 = 2 To END1

If Sh1.Range("A" & Cnt1).Value = "" Then
CNT = CNT + 1
Sh1.Range("B" & Cnt1).Value = CNT
Else
CNT = 0
End If

Next Cnt1
    • good
    • 0
この回答へのお礼

いつも、ありがとうございます。
できました。

お礼日時:2019/09/11 13:11

B列に空白セルの連番を振りたいということでしょうか?

この回答への補足あり
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!