Excel VBA質問箱 IV

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

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


46850 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   1コの範囲を複数に一括で貼り付ける仕方があったらどうか教えて下さい!
変数があるとどうもうまくいかず、ズラズラと書くしか術がありませんでした。。。

例を挙げますと、
変数無 
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 質問
【34853】Re:貼り付けについて Kein 06/2/14(火) 19:44 回答
【34855】Re:貼り付けについて かわうそ 06/2/14(火) 20:14 お礼

46850 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free