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

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

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

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

¥»©«³Ì«á¥Ñ am0251 ©ó 2011-6-26 16:42 ½s¿è

¸Õ¤@¤U³o­Ó
  1. Sub test()

  2. Dim myRowCount As Integer, Cat As Integer

  3. myRowCount = Range("A1").CurrentRegion.Rows.Count

  4. Cat = 1

  5. For i = 1 To myRowCount

  6. If Range("C" & Cat).Value <> "cat" Then

  7. Rows(Cat).Delete Shift:=xlUp

  8. Else

  9. Cat = Cat + 1

  10. End If

  11. Next i

  12. End Sub
½Æ»s¥N½X
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

am0251
  ¹ï¤£°_µLªk¬Ý¨ì§Aªº¸Ñµª¬O§_¥i¦A¤W¶ÇÁÂÁÂ

TOP

¦hÁ¤w¸g¦b´ú¸Õ¦A¦¸·PÁ¤@¦C¤@¦C§R¦n¹³«ÜºC (¦]¬°¦³«Ü¦h¸ê®Æ)
         µL½×¦p¦óÁÂÁÂ

TOP

¤£·|§a?«ö"F5"¦A¬Ý¬Ý~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¨º§Ú¦A¸Õ¤@¤U§Oªº§ó§Öªº¤èªk
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 4# jim
  1. Sub Ex()
  2.     Dim Rng As Range, R As Range
  3.     For Each R In Range("A1").CurrentRegion.Rows
  4.         If R.Cells(3) <> "cat" Then If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(Rng, R)
  5.     Next
  6.     Rng.Delete xlUp
  7. End Sub
½Æ»s¥N½X

TOP

ÂǦ¹©«¤¶²Ð¤@¤UColumnDifferences¥Îªk¡G
Sub delrow()
r = [c:c].Find("cat").Row
[c:c].ColumnDifferences(Cells(r, 3)).Delete (3)
End Sub

TOP

¨ü±Ð¤F~~!!¤£¹L§Ú¦³¤@ÂI¬Ý¤£À´ªº,´N¬O".Delete (3)"¬A¸¹ùتº"3"¬O¤°»ò·N«ä©O?ÁÂÁÂ!!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

2011-06-27_140203.jpg
¾ã¦C§R°£Â\¦b²Ä3

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD