­ã´£³¡ªL

Range("i74:i65536").EntireRow.Delete
ActiveSheet.UsedRange

°õ¦æ ctrl  + end

­ã´£³¡ªL

¦^´_ 9# t8899


   
Range("i74:i65536").EntireRow.Delete
Dim xE As Range
With ActiveSheet.UsedRange
¡@¡@¡@Set xE = .Item(.Count)
¡@¡@¡@MsgBox "³Ì«á¤@®æ¡e¦ì§}¡f¡G" & xE.Address
¡@¡@¡@MsgBox "³Ì«á¤@®æ¡e¦C¸¹¡f¡G" & xE.Row
¡@¡@¡@MsgBox "³Ì«á¤@®æ¡eÄ渹¡f¡G" & xE.Column
¡@¡@¡@MsgBox "³Ì«á¤@®æ¡eÄæ¦W¡f¡G" & Split(xE.Address, "$")(1)
End With

¨ú±o¡e³Ì«á¤@¦C¡f¤èªk¦³¦hºØ¡A¨Ò¦p¡GEnd(xlUp), End(xlDown)
¤£¹L¨Ì¾Ú¹ê»Ú¸ê®Æ¨Ó§PÂ_¸û·Ç½T¡I
VBE¤º«Ø»¡©úÀÉ¥i§ä¨ì¬ÛÃö»yªk¡Aªá¨Ç®É¶¡¦b³o§ä¸ê®Æ¡A¥i¾Ç¨ì«Ü¦h¡I
¡@