Excel VBA 選択した行数をカウントするには？

質問

キー操作だと （Shift+Ctrl+↓キー) で選択すると一気に末端のセルまで選択可能になります。

ソースは以下の表記になりますよね。
Range(Selection, Selection.End(xlDown)).Select

で、質問です。
ここで範囲選択したセルの行数をカウント（何行選択したか？）するなんて可能なんでしょうか？　アドバイスお願い致します。

回答No.1

t_shadowback

VBA上でよいのなら、

Selection.Rows.Count

とすれば、良いのでは？

因みに、
Selection.Count
だと、セル個数。
Selection.Columns.Count
だと、列数。

お礼

Do While文でオリジナル作成してみました。

Sub 行数カウント()
Dim i As Long
i = 1
Do While Range("C" & i).Value <> ""
i = i + 1
Loop
Range("A1") = i - 1
End Sub

アドバイスは今後の参考にしようと思います。
回答ありがとうございます。