- ©«¤l
- 5
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-7-2
- ³Ì«áµn¿ý
- 2021-8-10
|
¯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¹Ï:
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 |
|