エクセルマクロ イコール関数を使いたい その2

質問

https://okwave.jp/qa/q9510142.html
で回答を頂きました。
同様にいくつかのコピペをするように記述しましたが、コピペするたびにシート1，シート2の間を行ったり来たりしてパッパッと見た目悪いのです。

シート1　A1　「2018/06/20」の値をそのまま
シート2　A1　に「2018/06/20」を表示させる

シート1　A2　「2018」の値をそのまま
シート2　A2　に「2018」を表示させる

シート1　A3　「000」の値をそのまま
シート2　A3　に「000」を表示させる

そのようにしたいのです。
宜しくお願いします。

回答No.12

watabe007 · ベストアンサー

>Sheet1 　　 　 Sheet2
>"G5"　　　（単体セル） ⇒ "C1" （単体セル）
>"B10:C10" （結合セル） ⇒　　"B2:C2" （結合セル）
>"D10:E10" （結合セル） ⇒ "D2:E2" （結合セル）
>"B18:C18" （結合セル） ⇒ "B3:C3" （結合セル）
>"D18:E18" （結合セル） ⇒ "D3:E3" （結合セル）
お待たせしました。
Sub Test()
　　Dim area1 As Variant, area2 As Variant
　　Dim i As Long
　　area1 = Array("G5", "B10:C10", "D10:E10", "B18:C18", "D18:E18")
　　area2 = Array("C1", "B2:C2", "D2:E2", "B3:C3", "D3:E3")
　　For i = 0 To UBound(area1)
　　　　Worksheets("Sheet1").Range(area1(i)).Copy Worksheets("Sheet2").Range(area2(i))
　　Next
End Sub

お礼

ありがとうごさいました。
おかげさまでうまくいきました。
最後まで付き合って下さって感謝です。

回答No.1

watabe007

そのまんま ですが
Worksheets("Sheet1").Range("A1:A3").Copy Worksheets("Sheet2").Range("A1:A3")

お礼

回答ありがとうございます。
A1～A3は例えの話で、本当はA10、G5、J2だったりとバラバラです。
ペースト先もバラバラです。
それをまとめて一気にコピペしたいのです。