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

[µo°Ý] kill row

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-1-19 21:41 ½s¿è
¦^´_  t8899


   
Range("i74:i65536").EntireRow.Delete
Dim xE As Range
With ActiveSheet.Used ...
­ã´£³¡ªL µoªí©ó 2015-1-19 21:00

§Ú¼g¤@­Ó¥¨¶°¡A§R±¼³Ì«á¤@¦C(¤w¨Ï¥Î)«á­±"¨S¥Îªº¦C"³£¥i®M¥Î
Sub a133323()
Dim a
Set a = Cells.Find(What:="*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not a Is Nothing Then
e = a.Offset(1).Address
b = ActiveSheet.UsedRange.Rows.Count
c = "d" & b   'd¥ô¦óÄæ¦W¬Ò¥i
Range(e, c).EntireRow.Delete
End If
ActiveSheet.UsedRange
End Sub

TOP

§Ú¼g¤@­Ó¥¨¶°¡A§R±¼³Ì«á¤@¦C(¤w¨Ï¥Î)«á­±"¨S¥Îªº¦C"³£¥i®M¥Î
Sub a133323()
Dim a
Set a = Cells.Find ...
t8899 µoªí©ó 2015-1-19 21:35


¦³ bug ¼Ú (  §A¥i¥H¦b Row 5 ~ 10 ¶ñ¤J¸ê®Æ, ¨ä¾lªÅ¥Õ, ¥h´ú¸Õ´Nª¾¹D¦³ bug )

À°§A§ï¦¨³o¼Ë

Sub a133323()
§R°£³Ì«án¦C = 1  ' <--- §Aªº¥Øªº
Dim a
Set a = Cells.Find(What:="*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not a Is Nothing Then
   a.Offset(1 - §R°£³Ì«án¦C).EntireRow.Delete
End If
ActiveSheet.UsedRange
End Sub

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-1-20 07:20 ½s¿è
¦³ bug ¼Ú (  §A¥i¥H¦b Row 5 ~ 10 ¶ñ¤J¸ê®Æ, ¨ä¾lªÅ¥Õ, ¥h´ú¸Õ´Nª¾¹D¦³ bug )
À°§A§ï¦¨³o¼Ë
Sub ...
bobomi µoªí©ó 2015-1-19 22:35


´ú¸Õ¨S¦³¿ù
¥i¯à¨Sªí¹F²M·¡
§Úªº¥Øªº=====>¥H±zªº¨Ò¤l Row 5 ~ 10 ¶ñ¤J¸ê®Æ
«hROW10¬°³Ì«á¤@¦C(¦³¸ê®Æ©Î¦³¤½¦¡),ROW5 ¤§«e¤£¬å , ROW 11-65536 ¥þ§R°£

TOP

¥»©«³Ì«á¥Ñ bobomi ©ó 2015-1-20 08:33 ½s¿è
´ú¸Õ¨S¦³¿ù
¥i¯à¨Sªí¹F²M·¡
§Úªº¥Øªº=====>¥H±zªº¨Ò¤l Row 5 ~ 10 ¶ñ¤J¸ê®Æ
«hROW10¬°³Ì«á¤@¦C(¦³¸ê ...
t8899 µoªí©ó 2015-1-20 07:08


³o§Ú´N¤£À´¤F
§Ú´úªº®É­Ô
¶}±ÒªÅ¥ÕÀÉ -> R5 - R10 ¶ñ¤J¸ê®Æ
¥¦·|±q  ROW 6 - 65536 ¥þ§R°£
¦Ó¤£¬O±q Row 10 ¶}©l

TOP

³o§Ú´N¤£À´¤F
§Ú´úªº®É­Ô
¶}±ÒªÅ¥ÕÀÉ -> R5 - R10 ¶ñ¤J¸ê®Æ
¥¦·|±q  ROW 6 - 65536 ¥þ§R°£
¦Ó¤£¬O±q ...
bobomi µoªí©ó 2015-1-20 08:32

½Ð´ú¸Õ Book1.zip (326.76 KB)

TOP

¥»©«³Ì«á¥Ñ bobomi ©ó 2015-1-20 09:00 ½s¿è
½Ð´ú¸Õ
t8899 µoªí©ó 2015-1-20 08:42


¤w¸gª¾¹D­ì¦]¤F
§Aªº Book1.xls ­è¦n R1 ~ R4 ¦³¤º®e ( ¬Ý°_¨Ó¦n¹³¨S¦³¸ê®Æ, ¨ä¹ê¥¦¬O¦³®æ¦¡¸ê®Æ©ÎªÌ¨ä¥L¤°»òªº, ¬é¬O¬Ý¤£¨£¦Ó¤w )
©Ò¥Hµ{¦¡°õ¦æ«á¤£·|¥X¿ù

½Ð§A¥t¶}¤@¦U¥þ·sÀÉ®× -> R5 - R10 ¶ñ¤J¸ê®Æ -> °õ¦æ§Aªº Sub a133323( ) -> ¥¦´N¥X¿ù¤F !!
¦]¬°³o¦U·sÀɮתº R1 ~ R4 ¬O¦U 100% µL¥ô¦ó®æ¦¡¸ê®Æªº°Ï°ì

TOP

¤w¸gª¾¹D­ì¦]¤F
§Aªº Book1.xls ­è¦n R1 ~ R4 ¦³¤º®e ( ¬Ý°_¨Ó¦n¹³¨S¦³¸ê®Æ, ¨ä¹ê¥¦¬O¦³®æ¦¡¸ê®Æ©ÎªÌ¨ä ...
bobomi µoªí©ó 2015-1-20 08:57


¤F¸Ñ, ÁÂÁÂ

TOP

End(xlUp), End(xlDown) ·|¦³¤@¨Ç­­¨î,  ¯S®í¸ê®Æ, ¦³®É·|¦³·N¥~ªºª¬ªp

UsedRange «Ü¦n¥Î, ¦ý¦³®É«á­±¤@°ïªÅ¥Õ¦æ¤@¼Ë·|ºâ¶i¥h

TOP

¦^´_ 18# diolin

»¡ªº¬O¡A¦³¨S¤ñ¸û©P¥þªº§@ªk?
¥t¥~Á`¬O¬Ý¨ì End(xlup) ­n±q¤u§@ªíªº ³Ì«á¤@­ÓROW©¹¤W§ä¡A·Pı¦n¹³®ö¶O®É¶¡

TOP

¦^´_ 19# Scott090

¨ä¹ê¦pªG¸ê®Æ¬O¦Û¤v²£¥Íªº, ¤W­±¨â­Ó¤èªk¤@¯ë´N«Ü¨¬°÷¤F

¦pªG¸ê®Æ¤£¦p¹w´Á, ´N­n¥[ÂI«e¸m³B²z

¦pªG§A·Q¬Ù¨Æ¤@ÂI, ¤]¥i¥H°Ñ¦Ò¥H¤Uªº§@ªk

LastRow = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD