同期の並び替えで、規則的ですが、数が多くて処理に困っています。何かいい方法はないでしょうか?

質問

同期の並び替えで、規則的ですが、数が多くて処理に困っています。何かいい方法はないでしょうか?
一通り最後までやったのですが、ものすごい数になってしまいました。
下記

Sub Macro1()
Sheets("sheet2").Select

'sheet1のA君のデータ（C列の10,14,18,22~90）をsheet2（C列）に同期
Range("C8").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[2]C"
Range("C9").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[5]C"
Range("C10").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[8]C"

　　　　　・
　　　　　・
　　　　　・
　　Range("C31").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[71]C"

'sheet1のB君のデータ（D列の10,14,18,22~90）をsheet2（E列）に同期
Range("E8").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[2]C[-1]"
Range("E9").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[5]C[-1]"
Range("E10").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[8]C[-1]"
　　　　　・
　　　　　・
　　　　　・
　　Range("C31").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[71]C[-1]"

'sheet1のC君のデータ（E列の10,14,18,22~90）をsheet2（G列）に同期
Range("G8").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[2]C[-2]"
Range("G9").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[5]C[-2]"
Range("G10").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[8]C[-2]"
　　　　　・
　　　　　・
　　　　　・
　　Range("G31").Select
ActiveCell.FormulaR1C1 = "=sheet1!R[71]C[-2]"

と続き
最終的には

'sheet1のV君のデータ（X列の10,14,18,22~90）をsheet2（AS列）に同期
　　Range("AS8").Select
　　 ActiveCell.FormulaR1C1 = "=集計関連!R[2]C[-21]"
　　　　　・
　　　　　・
　　　　　・
　　Range("AS31").Select
　　 ActiveCell.FormulaR1C1 = "=集計関連!R[71]C[-21]"
End Sub

と一応規則的に並び替えています。…が、途方もない数になってしまうのですが、何か省略したり…というような方法はないでしょうか?
よろしくお願いいたします。

回答No.1

nattocurry · ベストアンサー

Sheets("sheet2").Select

Dim i, j

For i = 0 To 21
For j = 0 To 23
Cells(8 + j, 3 + i * 2).FormulaR1C1 = "=sheet1!R[" & 2 + j * 3 & "]C[" & i * -1 & "]"
Next j
Next i

これでどうでしょうか？

お礼

凄いです!!感動しました!!!!

何時間もかけて書いたものの僅か100分の1行で…
思わず一人で「すげぇ」って言ってしまいました。

ありがとうございます!!!
まだVBAを独学で初めて4日目なんでもっと精進します!!