[µo°Ý] Àx¦s®æ©¹¤U²Ö¥[1®æ

chiang0320

ActiveCell.Offset(1, 0).Activate  ³o¬OÀx¦s®æ©¹¤U²Ö¥[1®æ
¦ý¬O¦pªG¦³³]©w°_ÂI±q Range("I4").Select ¶}©l
¥t¥~·|¦³For Nextªº°j°é
·|¤@ª½°±¯d¦bRange("I5").Select
½Ð°Ý¥H¤Uµ{¦¡­n«ç»ò­×§ï¡A¤~¤£·|¤@ª½°±¯d¦b"I5"¡A·|«ùÄò¤@ª½²Ö¥[1©¹¤U     ¡AÁÂÁ¨ó§U!
-----------------------------------------------------------
Public Sub ©¹¤U²Ö¥[1()

    Range("I4").Select
    ActiveCell.Offset(1, 0).Activate
End Sub
-----------------------------------------------------------

starry1314

¦^´_ 1# chiang0320

Public Sub ©¹¤U²Ö¥[1()

    Range("I4").Select
    For i = 1 To 100
    ActiveCell.Offset(i - ActiveCell.Row + 3, 0).Activate
    Next
End Sub