解決済み

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

  • 困ってます
  • 質問No.9426206
  • 閲覧数153
  • ありがとう数3
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 92% (230/250)

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

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

  • 回答No.1

ベストアンサー率 60% (164/272)

Visual Basic カテゴリマスター
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

こうゆうことでしょうか。
お礼コメント
shibushijuko

お礼率 92% (230/250)

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

有難うございました。m(_ _)m
投稿日時 - 2018-02-06 19:46:39
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


OKWAVE若者応援スペシャル企画

ピックアップ

ページ先頭へ