oobird

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

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

am0251

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

am0251

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

jim

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

jim

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

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