Excel VBA質問箱 IV

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

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


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

46854 / 76736

←次へ　｜　前へ→


	【34849】貼り付けについて

かわうそ - 06/2/14(火) 19:05 -


	引用なし

	パスワード

１コの範囲を複数に一括で貼り付ける仕方があったらどうか教えて下さい！
変数があるとどうもうまくいかず、ズラズラと書くしか術がありませんでした。。。

例を挙げますと、
変数無　
Sheet2.Range("AG6:AG7").Copy Destination:=Sheet2.Range("AH6,AI6,AJ6")

変数有　
Range(Worksheets("Sheet2").Range("A" & iyL1), Worksheets("Sheet2").Range("B" & iyL1)).Copy _
Destination:=Sheet2.Range("AC" & iyL1)
Range(Worksheets("Sheet2").Range("A" & iyL1), Worksheets("Sheet2").Range("B" & iyL1)).Copy _
Destination:=Sheet2.Range("AE" & iyL1)
Range(Worksheets("Sheet2").Range("A" & iyL1), Worksheets("Sheet2").Range("B" & iyL1)).Copy _
Destination:=Sheet2.Range("AK" & iyL1)
Range(Worksheets("Sheet2").Range("A" & iyL1), Worksheets("Sheet2").Range("B" & iyL1)).Copy _
Destination:=Sheet2.Range("AM" & iyL1)
Range(Worksheets("Sheet2").Range("A" & iyL1), Worksheets("Sheet2").Range("B" & iyL1)).Copy _
Destination:=Sheet2.Range("AO" & iyL1)

貼り付け箇所がもっと多くなると・・・・・
もっとスマートなのがあればどなたかお願いします！！　

0 hits

▼

【34849】貼り付けについて かわうそ 06/2/14(火) 19:05

≪