¿ï¾Ü©ÊªÅ¥Õ¦C,¦p¦ó§R°£

errol.sun

¦U¦ì¤j¤j¦n
           ¤p§Ì³Ìªñ¶}©l¾Ç²ßVBA,¦ý¬O®Ñ¬Ý¤FÁÙ¬O¤£À´,¤]°Ñ¦Ò¿ý»s¥¨¶°±oµ{¦¡

           ¦ý¬O¿ý»s¥¨¶°®É,¤]¬O¤H¬°§PÂ_¨º¤@¦C»Ý­n§R°£,¨º¤@¦C¤£¥Î§R°£

           ·Q¨Ó·Q¥h,ÁÙ¬O¤£±o¥b¸Ñ,¥u¦n«i©ó¹Á¸Õ¨D§U©óªO¤W¦U¦ì¤j¤j±oÀ°¦£

           ªþ¥ó¤@¬°EXCEL¤£³W«hªÅ¥Õ¦C

           ªþ¥ó¤G¬°¤p§Ì¼¶¼g±oµ{¦¡,Á٧Ʊæ¦U¦ìª©¤j,¯à°÷¤£§[«ü±Ð

           ÁÂÁÂ

¤U¸ü (52.2 KB)
ªþ¥ó¤@

2011-1-21 22:13

¤U¸ü (17.78 KB)
ªþ¥ó¤G

2011-1-21 22:13

Hsieh

¦^´_ 1# errol.sun
§R°£¦C­n±q³Ì¤j¦C¦ì¶}©l©¹¤W§R°£

1. Sub nn()
   
2. For i = Sheet1.UsedRange.Rows.Count To 1 Step -1
   
3.    If Application.CountA(Sheet1.UsedRange.Rows(i)) = 0 Then Sheet1.UsedRange.Rows(i).Delete
   
4. Next
   
5. End Sub

½Æ»s¥N½X

errol.sun

·PÁª©¥D±o¸Ñµª

µ{¦¡³¡¥÷,®e¤p§Ì¦Û¤w¥ý·Q¹L

­YÁÙ¬OµL¸Ñ,¦A½Ð¨Dª©¥D±o¸Ñµª

¦A¤@¦¸·PÁª©¥D±oÀ°¦£
ÁÂÁÂ

wufonna

½Ð°Ý¦p¦ó§R°£¦p¤UªºªÅ¥Õ¦C~~~§Ú°õ¦æ¤FµLªk§R
ÁÂÁÂ

¡E ¨È¹ôÁp¦X¨¾½u¦¨§Î ·s¥x¹ô¤jº¦1.2¨¤ 2010/04/15  0  343  

¡E ¥x¹ô31.5§ð¨¾ ¥¡¦æ¾Ô¥~¸ê 2010/04/13  0  743  

¡E ¥´ª£¶× ¥¡¦æ§À½L§ê±þ¤â 2010/04/09  0  552  

¡E ¥¡¦æ¡G»È¦æ§À½L¤Ö½æ¬ü¤¸ 2010/04/09  0  516  

¡E ¶×»È¡G¥¡¦æ©ñ¼e¥x¹ôªi´T 2010/04/09  0  561  

¡E ¥~¸ê´é¤J ¥x¹ô³Ðªñ¤@¦~·s°ª 2010/04/08  0  771  

¡E ¥x¹ôº¦´T¸¨«á ®£¦¨§ë¾÷«È¼Ð¹v 2010/04/08  0  672  

¡E ¨È¹ô±j¶Õ ¥x¹ôÄò¬Ýº¦ 2010/04/07  0  538  

¡E ¶Àª÷²H©u °Ï¶¡¾Þ§@ 2010/04/04  0  348  

¡E ¶×²v§Q²v ¬Û¤¬²o¤Þªº¿Ë»eÃö«Y 2010/04/04  0  533  

¡E ¼ö¿ú´é¤J ¥¡¦æ§À½Lªý¤É 2010/04/01  0  508  

¡E ¥¡¦æ»\³» ¥x¹ô¯}¤£¤F31.8 2010/03/31  0  748  

¡E ¤H¥Á¹ô³Ûº¦ ¥¡¦æ¤O¦u¥x¹ô31.8 2010/03/30  0  511  

¡E ¥¡¦æ±þ§À½L ­×²zª£¶×«È 2010/03/19  0  1131  

¡E ¥x¹ô¤@«×¤É¯}31.7¤¸ 2010/03/18  0  242  

¡E ¼ö¿ú¤jÁ|´é¤J ¥x¹ô¤W¬Ý31.5 2010/03/18  0  908

Hsieh

¦^´_ 4# wufonna


    §Aªº¤èªk¬°¦ó?
¸ê®Æ¬O§_½T©w¬°ªÅ¥Õ?
«Øij¤W¶ÇÀÉ®×

wufonna

ÁÂÁÂ^0^~~~~~~~~~~~~~~~~~~~~

Hsieh

¦^´_ 6# wufonna

1. Sub nn()
   
2. Columns("A").Replace ChrB(32), ""
   
3. Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
4. End Sub

½Æ»s¥N½X

wufonna

ÁÂÁª©¤j¡A´£¨Ñ³o°Q½×ª©µ¹§Ú­Ì¾Ç²ß¡A
¨ü¯q¨}¦h¡AÁÂÁÂ