ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] kill row

[µo°Ý] kill row

¤§«e§Ú¦b¶]¬Yµ{§Ç®É¡Aµ{§Ç¦³°ÝÃD
¾É­P§Ú«öctrl-end row©~µM¨ì65536
§Ú¥Îmark ªº¤è¦¡§R°£¡A§R°£75-65536
«öctrl-endÁÙ¬O¨ì65536 ?? Book1.zip (324.09 KB)

EXCEL À³¸Ó¥»¨Ó´N¬O³o¼Ë§a

§A¦b [A10000] ©ñ¤J­È 22, µM«á¾ã¦C§R°£¥¦

¦b«ö ctrl-end row ¥¦´Nª½±µ°é¿ï¨ì Row 10000

§Ú¤]¦]¬°¦¹·P¨ì§xÂZ, ¦]¬°««ª½±²¶b·|Åܱo«ÜÃø¥Î

TOP

§A¦bªÅ¥Õ­¶°õ¦æ¤@¤U  Sheet1.[A1:A800].Clear
«ö ctrl-end row ¥¦´Nª½±µ°é¿ï¨ì Row 800

TOP

§A¦bªÅ¥Õ­¶°õ¦æ¤@¤U  Sheet1.[A1:A800].Clear
«ö ctrl-end row ¥¦´Nª½±µ°é¿ï¨ì Row 800
bobomi µoªí©ó 2015-1-18 11:02

µL®Ä°Ú?
§Ú¥Î³o¤@¥y Range("i74:i65536").EntireRow.Delete ¤]µL®Ä :'(

TOP

µL®Ä°Ú?
§Ú¥Î³o¤@¥y Range("i74:i65536").EntireRow.Delete ¤]µL®Ä
t8899 µoªí©ó 2015-1-18 21:02



¨S¬ÝÀ´§Ú»¡ªº?

¶}±Ò1­Ó·s EXCEL ÀÉ®× ->  vba °õ¦æ  Sheet1.[A1:A800].Clear ->  ªð¦^ Sheet1 ->  «ö shift + ctrl  + end  -> EXCEL ´Nª½±µ°é¿ï¨ì Row 800

¥i¬O§Ú­Ì®Ú¥»¨S¶ñ¸ê®Æ¤£¬O¶Ü? ¥u¬O°õ¦æ Clear ¦Ó¤w,  ¦]¬°Clear «ü©wªº½d³ò·¥­­¬O Row = 800

«ö shift + ctrl  + end «á Excel ¥¦´N¦Û¤v¤Ï¥Õ¨ì Row = 800 ( 800 ¤£¥¿¦n´N¬O­è­è Clear «ü©wªº¦C¼Æ¹À )

©Ò¥H³o¤£¬O EXCEL ¦Û¤vªº°ÝÃD¶Ü

TOP

¨S¬ÝÀ´§Ú»¡ªº?

¶}±Ò1­Ó·s EXCEL ÀÉ®× ->  vba °õ¦æ  Sheet1.[A1:A800].Clear ->  ªð¦^ Sheet1 ->  ...
bobomi µoªí©ó 2015-1-18 21:35

¤F¸Ñ! ÁÂÁÂ

TOP

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

°õ¦æ ctrl  + end

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-1-19 10:32 ½s¿è
Range("i74:i65536").EntireRow.Delete
ActiveSheet.UsedRange

°õ¦æ ctrl  + end
­ã´£³¡ªL µoªí©ó 2015-1-19 10:15

ÁÂÁÂ!¥i¥H¤F,³o¨S¬å±¼¡AÀɮפj¤p¦h¤F2,500,000 /kb ¥ª¥k
ActiveSheet.UsedRange ³o¦æ·N«ä¬O?

TOP

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

°õ¦æ ctrl  + end
­ã´£³¡ªL µoªí©ó 2015-1-19 10:15

¦A½Ð±Ð:
¦P¦¹°ÝÃD¡A§ä³Ì«á¤@¦Cªº»yªk ???

TOP

¦^´_ 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
¡@

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD