Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4158 / 76734

←次へ　｜　前へ→


	【78202】このマクロを1つにまとめたいんですが

［名前なし］ - 16/5/25(水) 17:05 -


	引用なし

	パスワード

Sheet2の「A2」～「K2」、「O2」～「W2」、「L2」～「N2」の最終行までコピーを
Sheet1の「B2」にSheet2の「A2」～「K2」に貼り付ける、Sheet1の「M2」にSheet2の「O2」～「W2」、Sheet1の「V2」にSheet2の「L2」～「N2」に貼りつけるマクロを1つにまとめたいのですが、いろいろ調べてみても見つかりませんでした。

Sub test()

　　'Sheet2の「A2」～「K2」の最終行までコピー
　　Sheets("Sheet2").Select
　　Range("A2:K2").Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Selection.copy
　　'Sheet1の「B2」に貼り付け
　　Sheets("Sheet1").Select
　　Range("B2").Select
　　ActiveSheet.paste

　　'Sheet2の「O2」～「W2」の最終行までコピー
　　Sheets("Sheet2").Select
　　Range("O2:W2").Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Selection.copy
　　'Sheet1の「M2」に貼り付け
　　Sheets("Sheet1").Select
　　Range("M2").Select
　　ActiveSheet.paste

　　'Sheet2の「L2」～「N2」の最終行までコピー
　　Sheets("Sheet2").Select
　　Range("L2:N2").Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Selection.copy
　　'Sheet1の「V2」に貼り付け
　　Sheets("Sheet1").Select
　　Range("V2").Select
　　ActiveSheet.paste

End Sub

自分で上のマクロを1つにまとめましたが、エラーがでます。
上手く1つにまとめる方法はないでしょうか？

Sub test()

　　'Sheet2の「A2」～「K2」,「O2」～「W2」,「L2」～「N2」の最終行までコピー
　　Sheets("Sheet2").Select
　　Range("A2:K2, O2:W2, L2:N2").Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Selection.copy
　　'Sheet1の「B2」, 「M2」, 「V2」に貼り付け
　　Sheets("Sheet1").Select
　　Range("B2, M2, V2").Select
　　ActiveSheet.paste

End Sub

どうかよろしくお願いします。

3 hits

▼

【78202】このマクロを1つにまとめたいんですが ［名前なし］ 16/5/25(水) 17:05