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

¯u¥¿²M°£ªÅ¥Õ¦C

¯u¥¿²M°£ªÅ¥Õ¦C

excel¦b½s¿è¸ê®Æ¤¤, ¦¨¤F¤jµ§¸ê®Æ¶qªº°ÝÃD,
¦b½s¿è¹Lµ{¤¤©¹©¹´¡¤J¤£¤ÖªºªÅ¥Õ¦C,
¥Îvba¼g­Ó²³æªºµ{¦¡°µªÅ¥Õ¦C§R°£,
¤£¹L¬Ý°_¨ÓÁÙ¬O¨S¦³¤@¦¸´N¾ã­ÓªÅ¥Õ¦C²M°£±¼,
¯u¥¿±NªÅ¥Õ¦C²M°£±¼, ¨ä·Æ§ýÀ³¦Ü¨ì¦p¤U¹Ï:
Snap6.jpg

Sub §R°£¸ê®Æ¦C¤¤ªºªÅ¦C()
    Dim x As Long
    For x = 2 To Range("a65536").End(xlUp).Row
    If Cells(x, 1) = "" Then
      Rows(x).Select
      Selection.Delete Shift:=xlUp
    End If
  Next x
End Sub

ª©¤W¤£ª¾¬O§_¦³¥ý¶i«ü¾É, ¯à°÷°µ¨ì¯u¥¿²M°£ªÅ¥Õ¦C

¤@¯ë¡e¥Ñ¤U©¹¤W¡f§R¡G

Sub §R°£¸ê®Æ¦C¤¤ªºªÅ¦C()
Dim x As Long
For x = [a65536].End(xlUp).Row To 2 Step -1
¡@¡@If Cells(x, 1) = "" Then Rows(x).Delete
Next x
ActiveSheet.UsedRange¡@'¥[¤J¦¹«ü¥O¡AÁY¤p·Æ±ì¡]©ÎÀx¦sÀɮפ]¥i¡^¡@
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD