VBA find後のセルと下の空白セルの間にある空ではないセルの数が知りたい

Question

vba初心者です。手でやると時間がかかることがありまして、急きょvbaを初めてみました。

||A|B|C|D|
|:--:|:--:|:--:|:--:|
|1|名称||
|2|あああ||
|3|いいい||
|4|ううう||
|5|えええ||
|6|||

結果としてほしいのは、Find()した"名称"から下の空白セルまでの間にある空ではないセルの数です。

この場合、A2:A5の「4」という結果がほしいです。

実際の画面では、"名称"がどのセルにあるのかわからないので、まずはFindを使用してみましたが、その後が思うように実装できませんでした。
（この後に配列を宣言する際に配列の要素数にこの値を使用したいです。）

お手数ですが、ご教示の方よろしくお願いいたします。

Answer 1

こんな感じでしょうか。

Dim r1 As Range
Dim r2 As Range
Dim cnt As Long
Set r1 = ActiveSheet.Cells.Find("名称")
Set r2 = r1.End(xlDown)
cnt = r2.Row - r1.Row
Debug.Print cnt

Comments

[cafeore_nmti]

ありがとうございます。2つのセルの各行を取得して差分を出すということですね。参考にさせていただきます。ありがとうございます！