½Ð°Ý¥u­n¦b³æ¼ÆÀx®æ1,3,5.¡K51¼g¤J

¦Û§Ú·Pı¨}¦n

Sub a1()
    For x = 1 To 50
        Cells(x, 1) = "ai"
    Next x
End Sub
½Ð°Ý¥u­n¦b³æ¼ÆÀx®æ1,3,5.¡K51¼g¤J
­n«ç¼Ë¼g©O¡H

¦Û§Ú·Pı¨}¦n

Step 2¤Ó¦n¥Î¤F
§Ú¤U­±ªºµ{¦¡¡A¤£¤Ó¦n¥Î¡A·|¸õ°Ê¼v¹õ¡A¦p¦ó§ïµ½¡K¡H


Sub a1()
    For x = 1 To 800 Step 2
    ActiveCell.Offset(2, 0).Range("A1").Select
    Selection.ClearContents
    Next x
End Sub

¦Û§Ú·Pı¨}¦n

§ï¦¨³o¼Ë´N¤£·|¶Ã¸õ¤F¡C
3Q


Sub a1()
    For x = 1 To 802 Step 2
    Application.ScreenUpdating = False
    Cells(x, 1).Range("A1").Select
    Selection.ClearContents
    Next x
    Application.ScreenUpdating = True
End Sub