|
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)
貼り付け箇所がもっと多くなると・・・・・
もっとスマートなのがあればどなたかお願いします!!
|
|