Excel マクロ 値の転記

質問

Excel　マクロ　値の転記

Sheet2をSheet1に転記したいのですが、A列だけは3回同じ値を転記
するのには、※をどのように変えたらいいのでしょうか？
宜しくお願い致します。

〔Sheet1〕転記先
Ａ　　Ｂ
あ　　10
あ　　20
あ　　30
い　　40
い　　50

〔Sheet2〕転記元
Ａ　　Ｂ
あ　　10
い　　20
う　　30
え　　40
お　　50

Sub テスト()
Dim i As Long
For i = 1 To 30
　　　'↓※ココをどう書いて良いのかが分かりません
Worksheets("Sheet1").Cells(i, "A") = Worksheets("Sheet2").Cells(i, "A")
Worksheets("Sheet1").Cells(i, "B") = Worksheets("Sheet2").Cells(i, "B")
Next i
End Sub

回答No.2

kybo · ベストアンサー

以下の様に訂正するとよいでしょう。

Worksheets("Sheet1").Cells((i - 1) * 3 + 1, "A").Resize(3) = Worksheets("Sheet2").Cells(i, "A")

お礼

kyboさん、お答えありがとうございました。
提示して頂いたコードで、イメージしていた通りの結果が得られました。
大変助かりました。ありがとうございました！

回答No.1

hoiho1010

もう少し他人にわかりやすく説明してください
3回も同じ値を転記する理由はナンデスカ？

具体的にやりたいこととその理由をはっきり書かないと的確な回答を
得ることはできません！