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

§R°£¦C¤§vba¼gªk

ÁÂÁ¦U¦ì¼ö¤ßªº«ü¾É ¦A¦¸·PÁÂ

TOP

¦A«×½Ð¸û¦pªG­n¤À¶}¨Ó°õ¦æ§R°£À³¦p¦ó¼g
          a    b    c    d       e    f    g    h
      ----------------------------------
1      2    3    x    1       2    1   y    1
2      1    2    y    3       2    3   x    3
3      3    2    x    2       3    2   x    2
4      2    3    z    3       4    2   x    3

§Y a b c d ¦æ ¤@²Õ°õ¦æ   [c:c].Find("x")     ­Y«D x §R range(a2:d2) and (a4:d4)  ¤£¤@©w¬O2 ,4¦C
¥t¤@²Õ e f g h ¦æ °õ¦æ   [g:g].Find("x")      ­Y«D x §R range(e1:h1)   ¤£¤@©w¬O ¦C1
  ³o¼Ë¬O§_¥i¦æ?

¥t¥~ÁÙ¦³¤@­Ó°ÝÃD·Q½Ð±Ð
  sheet1 ¦¡¦Û°Ê¿z¿ï §t¦³ÁôÂæC    5-10 ­Y¥k¤â°Ê°õ¦æcopy a1:h20 ¦Üsheet2¥i¥H¶K¤W(­È)
  ¦ý¬O¨Ï¥Î vba¨Ó°õ¦æ «o¤£¥i¶K¤W  ¥X²{ 400ĵ§i¹Ï  ½Ð±Ð¦U¦ì«e½úÀ³¦p¼g¦¹ vba  
ÁÂÁÂ

TOP

¦A¨D±Ð oobird ¥ý¶i
Sub delrow()
r = [c:c].Find("cat").Row
[c:c].ColumnDifferences(Cells(r, 3)).Delete (3)
End Sub

    ¦b Sheet1¤º ·Q §R°£ column c ¤º ÄÝ©ó ""  ¤§¦U¦C À³¦p¦ó¼g
         A      B        C      D
1     23    34              34
2     12    23    dog   23
3     34    12              12
4     45    34    cat     45
5     23    23              23
§R°£  1 3 5 Rows  ¥u³Ñ
          A      B        C      D
   1     12    23    dog   23
   2     45    34    cat     45
    thanks

TOP

¦^´_ 13# jim
¥i§R±¼¦³ªÅ¥Õªº¾ã¦Cªº¥t¤@»yªk .
  1. Sub Ex()   
  2.     Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  3.    'CurrentRegion        ¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥Ø«eªº°Ï°ì¡C¥Ø«e°Ï°ì¬O«ü¥H¥ô·NªÅ¥Õ¦C¤ÎªÅ¥ÕÄ檺²Õ¦X¬°Ãä¬Éªº½d³ò¡C
  4.    'SpecialCells              ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí»P«ü©w«¬ºA¤Î­È¬Û²Å¦Xªº©Ò¦³Àx¦s®æ¡C
  5.    '°Ñ¼Æ    xlCellTypeBlanks ¡C ªÅÀx¦s®æ
  6.    'EntireRow                 ¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥]§t«ü©w½d³òªº¾ã­Ó¦C (©Î­Y¤z¦C)¡C
  7. End Sub
½Æ»s¥N½X

TOP

¦hÁ§Aªº«ü¾É
   ¦ý¬O¨ä¥L rows ÁÙ¦³ªÅ®æ ©Ò¥H°õ¦æ®É¥þ³¡§R°£

TOP

¦hÁ§Aªº«ü¾É
   ¦ý¬O¨ä¥L rows ÁÙ¦³ªÅ®æ ©Ò¥H°õ¦æ®É¥þ³¡§R°£
jim µoªí©ó 2011-7-23 16:41



    [c:c].SpecialCells(4).Delete (3)

TOP

¦A«×¨D±Ð oobird ¥ý¶i
SpecialCells(4).  4¬O¦ó·N«ä©Î§@¥Î
Sub delrow()
r = [c:c].Find("").Row
[c:c].SpecialCells(4).Delete (3)
End Sub
©Ò¦³¸ê®Æ¥þ§R

§Ú§âC¦ì²¾¦ÜE
         A      B      C      D       E      F
1                     23    34              34
2             12           23    dog   23
3            34    12                      12
4     45                   34    cat     45
5     23    23                             23
§R°£  1 3 5 Rows  ¥u³Ñ
           A      B        C      D      E       F
    1            12              23    dog   23
    2     45                     34    cat     45
   
Sub delrow()
r = [E:E].Find("").Row
[E:E].SpecialCells(4).Delete (3)
End Sub
       ­×§ï¦p¤U¬O§_¥¿½T?          TKS

TOP

SpecialCells(4).  4¬Oªí¥ÜªÅ¥ÕÀx¦s®æ
   r = [E:E].Find("").Row~³o¦æ¬O¦h¾lªº

Sub delrow()
[E:E].SpecialCells(4).Delete (3)
End Sub
³o¼Ë§Y¥i

TOP

oobird ¥ý¶i
ÁÂÁ§Aªº¸Ñ»¡  ¸Õ¤@¤U¥i¦æ

½Ð±Ð¤@­Ó°ÝÃD ¦b¯ÂªÅ®æ¤W°õ¦æ §¹¥þ¨S°ÝÃD
­Y¬O¦A¥Î copy ¶K¤W«hµLªk°õ¦æ ¬O§_¦b4³o­Ó«ü¥O©|¦³°ÝÃD?
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

TOP

[­ÉÃDµo°Ý]
½Ð±Ð¦U¦ì¤j¤j!  ­Y²Ä¤@¦C¬°ªíÀY¼ÐÃD¦C( »Ý­n«O¯d),
¦b Sheet1¤º ·Q §R°£ column c ¤º «DÄÝ©ó cat ©M dog ¤§¦U¦C  µ{¦¡­n¦p¦ó­×§ï©O?

           A         B           C          D
  1    ½s¸¹    ¦ì¸m     ¦WºÙ     ¤Ñ¼Æ
  2     23        34        cat        34
  3     12        23      dog        23
  4     34        12         yy        12
  5     45        34       cat         45
  6     23        23      dog        23
  7     13        18         xx        32


§R°£  4 ¡B7 Rows  ¥u³Ñ

           A          B          C          D
  1    ½s¸¹    ¦ì¸m     ¦WºÙ     ¤Ñ¼Æ
  2     23        34        cat        34
  3     12        23      dog        23
  5     45        34        cat        45
  6     23        23      dog        23

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD