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

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

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

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

No.1 回答者： t_shadowback 回答日時： 2005/05/30 01:48

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

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

お礼日時：2005/05/30 02:59