GBKEE

¦^´_ 7# willy1205

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim R As Long
   
4.     R = Range("A" & Rows.Count).End(xlUp).Row    'AÄæ¥Ñ³Ì«á¤@¦C©¹¤W¨ì¦³¸ê®Æªº¦C¸¹
   
5.     Range("A2:C" & R).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
6.     'SpecialCells       ¯S®í¥Ø¼Ð
   
7.     'xlCellTypeBlanks   ªÅ®æ
   
8.     'EntireRow          ¾ã­Ó¦C
   
9. End Sub

½Æ»s¥N½X

willy1205

¦^´_ 6# GBKEE


   ³á³á OK

¦b°Ý¤@¤U ¦pªG§Úªº¸ê®Æ¤W­±²Ä¤@¦æ¬O¦³¤å¦rªº¨Ã¥B»Ý­n«O¯d¤U¨Ó
EX :
            A         B       C .. ..
1       ¤H¦W  ª÷¿ú    ©Ê§O
2        ¥Ò      100     M
³o¼Ëªº¸Ü §Ú¦A½d³ò¨ºÃä­n°µ¤°»ò­×§ï©O??   Range("A:C").

ÁÂÁÂ

GBKEE

¦^´_ 5# willy1205

formula is too complex to be assigned to object
¤½¦¡¤Ó½ÆÂø­n¤À°tµ¹¹ï¶H

«ö¶s§R°£,¦sÀÉ«áÃö³¬Excel,¶}±ÒÀɮ׳]«ö¶s¸Õ¸Õ¬Ý

willy1205

¦^´_ 3# GBKEE


    ¦A½Ð°Ý¤j¤j¤@­Ó°ÝÃD¡A§Ú¦A«ü©w«ö¶s¥¨¶°ªº®É­Ô¥X²{¿ù»~¡G

formula is too complex to be assigned to object

³o­Ó­ì¦]¬O¬°¤°»ò??¤§«e³£¦n¦nªº«ç»ò¤µ¤Ñ­n¦h¼g´X­Ó«ö¶s´N¥X¿ù¤F¡A¸Ó«ç»ò¸Ñ¨M??

willy1205

¦^´_ 3# GBKEE


   ÁÂÁ¤j¤j!!
work very well!

GBKEE

¦^´_ 1# willy1205

1. Sub Ex()
   
2.     Range("A:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
3.     'SpecialCells        ¯S®í¥Ø¼Ð
   
4.    'xlCellTypeBlanks ªÅ®æ
   
5.    'EntireRow          ¾ã­Ó¦C
   
6. End Sub

½Æ»s¥N½X

f3202

http://support.microsoft.com/kb/2679461/zh-tw

willy1205

³Ìªñ­±Á{¨ì°ÝÃD¬O¸ê®Æ¤w¸g¿z¿ï¦n¤F¡A¦]¬°±N¤£­nªº¸ê®Æ¾ã¦C§R°£¡A¥u¯d¤U­nªº¸ê®Æ¡A¾É­P¸ê®Æ¤§¶¡¦³ªÅ®æ¦s¦b¡A
EX:
     A     B     C    D    E .....
1  ¥Ò   10   20
2
3 ¤þ   30    50
4
5 ¤B  60    80
¦]¬°¸ê®Æ«Ü¦h¡A¦³¿ìªk¨Ï¥ÎVBA±N¸ê®Æ¾ã¦X¦¨¥H¤U³o¼Ë¶Ü???   ÁÂÁ¤j®a
  A     B     C    D    E .....
1  ¥Ò   10   20
2  ¤þ   30    50
3  ¤B  60    80
4
5