こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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

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

投稿日時 - 2005-05-30 01:28:21

QNo.1418130

困ってます

このQ&Aは役に立ちましたか?

9人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

VBA上でよいのなら、

Selection.Rows.Count

とすれば、良いのでは?

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

投稿日時 - 2005-05-30 01:48:54

お礼

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:22

あなたにオススメの質問