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

jim

¨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

¸Õ¤@¤U³o­Ó

1. Sub test()
   
2. 
   
3. Dim myRowCount As Integer, Cat As Integer
   
4. 
   
5. myRowCount = Range("A1").CurrentRegion.Rows.Count
   
6. 
   
7. Cat = 1
   
8. 
   
9. For i = 1 To myRowCount
   
10. 
    
11. If Range("C" & Cat).Value <> "cat" Then
    
12. 
    
13. Rows(Cat).Delete Shift:=xlUp
    
14. 
    
15. Else
    
16. 
    
17. Cat = Cat + 1
    
18. 
    
19. End If
    
20. 
    
21. Next i
    
22. 
    
23. End Sub

½Æ»s¥N½X

jim

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

jim

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

am0251

¤£·|§a?«ö"F5"¦A¬Ý¬Ý~

am0251

¨º§Ú¦A¸Õ¤@¤U§Oªº§ó§Öªº¤èªk

GBKEE

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

oobird

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

am0251

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

oobird

¤U¸ü (9.46 KB)

2011-6-27 14:29

¾ã¦C§R°£Â\¦b²Ä3