´¡¤J¦Cªºµ{¦¡

¦Û§Ú·Pı¨}¦n

Sub a1()
    For x = 2 To 1200 Step 3
        Cells(x, 1) = Selection.EntireRow.Insert
        ActiveCell.Offset(3, 0).Range("A1").Select
    Next x
End Sub


´¡¤J¦Cªºµ{¦¡
¦Û¤v¶Ã·d¥X¨Óªº
¥i¬O·|¶]¥XTRUE
½Ð°Ý­n«ç¼Ë¤~¤£·|¶]¥XTRUE¡H

¦Û§Ú·Pı¨}¦n

¤Ó·PÁ¤F
­n¾Çµ{¦¡
­^»y¯uªº­n¦hÀ´´X­Ó¦r
Sub a1()
    For x = 1 To 50
        Cells(x, 1) = "ai"
    Next x

End Sub
    Sub ex()
        For x = 1200 To 2 Step -3
            Cells(x, 1).EntireRow.Insert
        Next x
    End Sub
Sub a2()
    For x = 2 To 1200 Step 3
        Cells(x, 1).EntireRow.Insert
    Next x
End Sub