VBA 別シートに転記

Question

シート1からシート2へセルの情報を転記したいです。

１行分の転記はかけたのですが、
これを複数行に繰り返したい場合の書き方がよくわかりませんでした。。

転記元シートの開始行：　１０
転記先シートの開始行:８

空欄になるまで繰り返ししたい。
VBAが全く分からないので、理解しやすい書き方をご教授頂けますと幸いです。

Sub text_tenki()

Worksheets("転記元_01")　.Range(c10).Copy
Worksheets("転記先_02").Range(e8).PasteSpecial

Worksheets("転記元_01")　.Range(p10).Copy
Worksheets("転記先_02").Range(f8).PasteSpecial

Worksheets("転記元_01")　.Range(d10).Copy
Worksheets("転記先_02").Range(g8).PasteSpecial

Worksheets("転記元_01")　.Range(l10).Copy
Worksheets("転記先_02").Range(h8).PasteSpecial

End Sub

Answer 1

こんな感じでどうでしょうか。

Sub sample()

    Dim moto As Worksheet, saki As Worksheet
    Set moto = Worksheets("転記元_01")
    Set saki = Worksheets("転記先_02")

    Dim lastRow As Long
    lastRow = moto.Range("C" & moto.Rows.Count).End(xlUp).Row
    
    Dim i, j
    j = 8
    For i = 10 To lastRow
        moto.Range("C" & i).Copy saki.Range("E" & j)
        moto.Range("P" & i).Copy saki.Range("F" & j)
        moto.Range("D" & i).Copy saki.Range("G" & j)
        moto.Range("L" & i).Copy saki.Range("H" & j)
        j = j + 1
    Next
End Sub

• 何度も登場するオブジェクト（Worksheets("転記元_01")、Worksheets("転記先_02")）は変数に格納
• 繰り返し処理にはFor ... ​Next
• 最終行を求める記述はお決まりのパターン

Comments

[hiro_ike]

ありがとうございます。
分かり易くて、非常に助かりました。