VBA 別シートに転記

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

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

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

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

VBA
1Sub text_tenki()
2
3Worksheets("転記元_01")　.Range(c10).Copy
4Worksheets("転記先_02").Range(e8).PasteSpecial
5
6Worksheets("転記元_01")　.Range(p10).Copy
7Worksheets("転記先_02").Range(f8).PasteSpecial
8
9Worksheets("転記元_01")　.Range(d10).Copy
10Worksheets("転記先_02").Range(g8).PasteSpecial
11
12Worksheets("転記元_01")　.Range(l10).Copy
13Worksheets("転記先_02").Range(h8).PasteSpecial
14
15End Sub

行動規範の内容に同意します

回答1件

ベストアンサー

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

VBA
1Sub sample()
2
3    Dim moto As Worksheet, saki As Worksheet
4    Set moto = Worksheets("転記元_01")
5    Set saki = Worksheets("転記先_02")
6
7    Dim lastRow As Long
8    lastRow = moto.Range("C" & moto.Rows.Count).End(xlUp).Row
9    
10    Dim i, j
11    j = 8
12    For i = 10 To lastRow
13        moto.Range("C" & i).Copy saki.Range("E" & j)
14        moto.Range("P" & i).Copy saki.Range("F" & j)
15        moto.Range("D" & i).Copy saki.Range("G" & j)
16        moto.Range("L" & i).Copy saki.Range("H" & j)
17        j = j + 1
18    Next
19End Sub