b2:g102の範囲で、c3:c7、d9:d12、e16:e19→同じ行にある氏名、性別、出身地をi2:k102に貼り付けたいのです。動画でサンプルコードがあるのですが、sampleコードを自分流にアレンジしてアウトプットしたいのですが、b2:g102が全選択され、どうも、上手く行きません、大変、お手数ですが、どなたか、ご存じの方、教えてください。多分、最終行の取得が良くないと思います。
ここに実現したいことを箇条書きで書いてください。
前提
ここに質問の内容を詳しく書いてください。
(例)
TypeScriptで●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
エラーメッセージ
該当のソースコード
vba
1Sub sample()2 3 For Each rng In Selection.Rows 4 If f Then5 Range("c" & rng.Row & ",e" & rng.Row & ",g" & rng.Row).Select6 f = False7 Else8 Application.Union(Selection, _9 Range("c" & rng.Row & ",e" & rng.Row & ",g" & rng.Row)).Select10 End If11 Next rng 12 13 Selection.Copy 14End Sub15 ↓ 16Sub sampleアレンジ()17 Dim rng As Range, lastrow As Long, f As Boolean: f = True18 lastrow = Cells(Rows.Count, 2).End(xlUp).Row 19 20 For Each rng In Range(("a3:g" & lastrow)) 21 22 If f Then23 Range("c" & rng.Row & ",e" & rng.Row & ",g" & rng.Row).Select 24 f = False25 Else26 Application.Union(Range("a3:g" & lastrow), _27 Range("c" & rng.Row & ",e" & rng.Row & ",g" & rng.Row)).Select28 End If29 Next rng 30 31 Selection.Copy 32End Sub
ここに問題に対して試したことを記載してください。
VBA 複数行 最終行 取得 でネット検索したが、なかなか上手く行かない
補足情報(FW/ツールのバージョンなど)
offiec2010
ここにより詳細な情報を記載してください。
0 コメント