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
----------------------------------------------------------- |