質問: VBA初心者です。 1~4の動作をVBAで動かしたく、 以下のようなコードで動くところまでたどり着きました。
回答: Sub sample() For i = 0 To 498 Worksheets("Sheet1").Range("A2:C2").Offset(i).Copy Worksheets("Sheet2").Range("B2:D2").PasteSpecial (xlPasteValues) Worksheets("Sheet2").Range("D7:G7").Copy Worksheets("Sheet1").Range("D2:G2").Offset(i).PasteSpecial (xlPasteValues) Next i End Sub