สอบถามครับ พอดีมีข้อมูล และอยาก ให้ result ออกมาตามภาพ ครับ
พอดีลองใช้งาน macro rec อย่างง่าย แล้ว แต่ว่า ข้อมูลเยอะมาก หากทำตาม code ต้องมานั่งแก้ ทีละ บรรทัด อยากได้ วิธี การวน Loop ครับ



    Range("E1").Select
    ActiveCell.FormulaR1C1 = "=Sheet2!RC[-4]"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=Sheet2!R[2]C[-5]"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "=Sheet2!R[4]C[-6]"
    Range("E2").Select
    
ก็เลยลองใช้ วิธี For i = ข้อมูลออกมามั่วยิ่งกว่าเดิม

For i = 2 To 30
    Range("A" & i).Select
     ActiveCell.Formula = "=Sheet2!a" & i - 1
    Range("B" & i).Select
        ActiveCell.Formula = "=Sheet2!a" & i
    Range("C" & i).Select
        ActiveCell.Formula = "=Sheet2!a" & i + 2
Next i

ผลออกมาไม่ได้ตามต้องการอยู่ดี ไม่แน่ใจว่าผมต้องแก้ตรงไหนครับ