´¡¤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

Hsieh

¦^´_ 1# ¦Û§Ú·Pı¨}¦n
­n´¡¤J¦C¡A¬O¨Ï¥ÎInsert¤èªk
¦]¬°±q¤W©¹¤U´¡¤J¦C¡A¨C¦¸´¡¤J«á·|³y¦¨¦C¦ì¤U²¾
©Ò¥H­n¥¿½T¶¡¹j´¡¤J³Ì¦n¥Ñ¤U©¹¤W

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

½Æ»s¥N½X