エクセルマクロ For Next

マクロ初心者です。以下のマクロを組んでみました。

Public Sub ()

Dim a As Integer
Dim b As Integer

For a = 9 To 16
For b = 3 To 38 Step 5

①
Sheets(1).Select
Range("L12") = Cells(a, 4).Value
Range("M12") = Cells(a, 5).Value
Range("L12:M16

").Copy

②
Sheets("2").Select
Cells(b, 3).PasteSpecial Paste:=xlPasteValues

Next b
Next a

End Sub

①と②を一連で繰り返したいのですが、①が繰り返し処理された後に②が繰り返し処理されてしまいます。
どのようにすればいいかご教授ください。

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/08/28 10:33

Public Sub ()

Dim a As Integer
Dim b As Integer

b =3

For a = 9 To 16

with Sheets(1)
.Range("L12") = .Cells(a, 4).Value
.Range("M12") = .Cells(a, 5).Value
Sheets("2").Cells(b, 3).resize(5 , 2).Value = .Range("L12:M16").Value
end with

b = b + 5
Next a

End Sub

かな？
検証できてませんけど。

この回答へのお礼

試してみたところ、無事に求めていた通りの動作になりました！
他サイトでは攻撃的な回答をされたので、余計に嬉しいです。
ありがとうございます。
Resizeプロパティも勉強しなおします。

お礼日時：2020/08/28 10:48