刪除列之vba寫法

jim

求較各位先進
   在 Sheet1內 想 刪除 column c 內 非屬於 cat  之各列 應如何寫
        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
刪除  2 3 5 Rows  只剩
         A      B        C      D
  1     23    34    cat     34
  2     45    34    cat     45
   thanks

am0251

試一下這個

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

複製代碼

jim

am0251
  對不起無法看到你的解答是否可再上傳謝謝

jim

多謝已經在測試再次感謝一列一列刪好像很慢 (因為有很多資料)
         無論如何謝謝

am0251

不會吧?按"F5"再看看~

am0251

那我再試一下別的更快的方法

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

複製代碼

oobird

藉此帖介紹一下ColumnDifferences用法：
Sub delrow()
r = [c:c].Find("cat").Row
[c:c].ColumnDifferences(Cells(r, 3)).Delete (3)
End Sub

am0251

受教了~~!!不過我有一點看不懂的,就是".Delete (3)"括號裏的"3"是什麼意思呢?謝謝!!!

oobird

下載 (9.46 KB)

2011-6-27 14:29

整列刪除擺在第3