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

[µo°Ý] ~ µo²{¤@­Ó·sªº°ÝÃD Ãö©óIF§PÂ_¦¡

¦p¦ó¥ÎVBA±N¸ê®Æ¤¤¤£­nªºªÅ¥Õ¦C§R°£¡A¦Ó±N¸ê®Æ¾ã¦X©O??

³Ìªñ­±Á{¨ì°ÝÃ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

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE


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

TOP

¦^´_ 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??

TOP

¦^´_ 5# willy1205
formula is too complex to be assigned to object
¤½¦¡¤Ó½ÆÂø­n¤À°tµ¹¹ï¶H
«ö¶s§R°£,¦sÀÉ«áÃö³¬Excel,¶}±ÒÀɮ׳]«ö¶s¸Õ¸Õ¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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").

ÁÂÁÂ

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦pªG¬O¤U¦C±¡ªp®É
              A          B         C  
1           01        03      04

2                       05

3           06        07       08

4

5          09          10       11
²Ä¤G¦CµLªk§R°£¥Î¦óºØ¤è¦¡³]©w?

TOP

¦^´_ 9# lp986749
  1. Option Explicit
  2. Sub Ex() '.SpecialCells(xlCellTypeBlanks).EntireRow ¦p 9# ªº­«Å|°Ï°ì µ{¦¡µLªk§R°£
  3.     With Range("A:C")
  4.      '   MsgBox .SpecialCells(xlCellTypeBlanks).EntireRow.Address
  5.         'A2,C2 ·|¦³­«Å|°Ï°ì $2:$2,$2:$2,$4:$4
  6.         Intersect(.Cells, .SpecialCells(xlCellTypeBlanks).EntireRow).Delete xlUp
  7.         'Intersect ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò¡C
  8.         '¾ã¦X¬°¤£­«Å|ªº°Ï°ì,µ{¦¡§Y¥i§R°£
  9.     End With
  10.     'SpecialCells       ¯S®í¥Ø¼Ð
  11.     'xlCellTypeBlanks   ªÅ®æ
  12.     'EntireRow          ¾ã­Ó¦C
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD