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

解決済みの質問

選択行番号を取得して別シート貼り付ける方法

VBAを使いsheet1の選択した行番号をsheet2のA1列に全て貼り付ける方法が分からなくて困っています。

 ちなみに下記のVBAはsheet1上で実行するとメッセージボックスに選択行の数値が順番に表示されます。この選択行番号情報を全てsheet2のA1列に貼り付けたいのですが、どうすれば良いでしょうか? 

 選択行は最大400位になります。特にメッセージボックスに表示する必要はありませんので、メッセージボックス表示は不要です。

Sub 行番号取得()
Dim r As Range
For Each r In Selection.Rows
MsgBox r.Row
Next
End Sub

投稿日時 - 2018-02-06 14:44:22

QNo.9426206

困ってます

質問者が選んだベストアンサー

Sub 行番号取得()

Dim r As Range
Dim LCnt As Integer

LCnt = 0
For Each r In Selection.Rows
LCnt = LCnt + 1
ThisWorkbook.Sheets(2).Cells(LCnt, 1).Value = r.Row
Next

End Sub

こうゆうことでしょうか。

投稿日時 - 2018-02-06 16:12:01

お礼

早急にご回答いただき、誠にありがとうございます。
正に希望通りの結果を得る事が出来ました。

有難うございました。m(_ _)m

投稿日時 - 2018-02-06 19:46:39

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

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

回答(1)

あなたにオススメの質問