Excelマクロについて（セルのコピー）

質問

今、マクロで自動的にセルのデータを別シートに貼り付けるというものを作っています。
Private Sub コピー定義()
Worksheets("sheet1").Activate 'sheet1をアクティブにする
コピー元行 = 2
コピー先行 = 1
コピー元セル = "A" & コピー元行
コピー先セル = "A" & コピー先行
Worksheets("sheet1").Range(コピー元セル).Copy _
Destination:=Worksheets("sheet2").Range(コピー先セル)
End Sub

これで、sheet1のA2からsheet2のA1にコピーできるのですが、
Private Sub コピー定義()
Worksheets("sheet1").Activate 'sheet1をアクティブにする
コピー元行 = 2
コピー先行 = 1
コピー元行 = 2
コピー先行 = 1
コピー元セル = "A" & コピー元行
コピー先セル = "A" & コピー先行
コピー元セル = "B" & コピー元行
コピー先セル = "B" & コピー先行
Worksheets("sheet1").Range(コピー元セル).Copy _
Destination:=Worksheets("sheet2").Range(コピー先セル)
End Sub
とすると、B2の項目しかコピーされません。複数のセルを一度にコピーするマクロの作り方をご存じの方、ご伝授下さい。

回答No.1

keithin · ベストアンサー

そもそも何をしたいのでしょうか？

たとえば「シート１のA2:B2」を「シート２のA1:B1」にコピー貼り付けたいなら，生のマクロは

sub macro1()
　worksheets("Sheet1").range("A2:B2").copy _
　　destination:=worksheets("Sheet2").range("A1:B1")
end sub

といった具合になります。
これを元に，必要な箇所を適切に変数に置き換えてマクロを作成します。

作成例：
sub macro1r1()
　dim r1,r2,r3,r4
　r1 = 2
　r2 = 2
　r3 = 1
　r4 = 1

　worksheets("Sheet1").range("A" & r1 & ":B" & r2).copy _
　　destination:=worksheets("Sheet2").range("A" & r3 & ":B" & r4)
end sub

＃補足
言わずもがなですが，「エクセルに出来ないこと」はマクロを使っても出来ません。
たとえば「シート１のA1とB2の２セル」を「シート２のA1とB2」に一度にコピー貼り付ける，といった具合の。