VBA xóa dòng khi đã filter giá trị cần xóa (1 người xem)

[phamhau299]

Mình muốn filter 1 vài giá trị rồi xóa hết cả dòng chứa giá trị đó, nhưng khi chọn hết tất cả dòng rồi nhấp "delete row" thì nó hiện bảng


khi nhấp OK thì nó xóa hết mấy dòng không filter luôn ?

trường hợp khi đã filter rồi xóa từng dòng thì được
còn nếu chọn hết tất cả các dòng và xóa thì không được
Giúp mình code delete row theo điều kiện vì dữ liệu rất nhiều, nếu xóa thủ công thì rất lâu

 

[Cá ngừ F1]

Bạn gửi dữ liệu thật lên đi, sẽ có cách. Nếu xóa dòng theo 1 điều kiện nào đó thì đâu cần filter, cứ thỏa mãn đk là xóa thôi.

 

[Hau151978]

Nhìn chữ too complex có thể do trong vùng cần xóa được merge với vùng không xóa nên excel không cho.

 

[phamhau299]

Bạn gửi dữ liệu thật lên đi, sẽ có cách. Nếu xóa dòng theo 1 điều kiện nào nó thì đâu cần filter, cứ thỏa mãn đk là xóa thôi.

mình tải lên web hoài mà bị lỗi ko up được
mình up lên mediafire, bạn vào đây tải về nhé http://www.mediafire.com/download/qmr1izgk3o9qhk5/delete+row4.xlsx
điều kiện là chọn những dòng trong cột F (chuyền) là X và N/A , delete row

 

[phihndhsp]

Mình muốn filter 1 vài giá trị rồi xóa hết cả dòng chứa giá trị đó, nhưng khi chọn hết tất cả dòng rồi nhấp "delete row" thì nó hiện bảng
View attachment 129470

khi nhấp OK thì nó xóa hết mấy dòng không filter luôn ?

trường hợp khi đã filter rồi xóa từng dòng thì được
còn nếu chọn hết tất cả các dòng và xóa thì không được
Giúp mình code delete row theo điều kiện vì dữ liệu rất nhiều, nếu xóa thủ công thì rất lâu

cái này khi fillter xong rồi chọn chức năng gotospecial và chọn visible only save sau đó chọn delete dòng là ok

 

[Cá ngừ F1]

mình tải lên web hoài mà bị lỗi ko up được
mình up lên mediafire, bạn vào đây tải về nhé http://www.mediafire.com/download/qmr1izgk3o9qhk5/delete+row4.xlsx
điều kiện là chọn những dòng trong cột F (chuyền) là X và N/A , delete row

Bạn test thử với code này
[GPECODE=vb]Sub Xoa()
Dim R As Long, I As Long
On Error Resume Next
With Sheet2
R = .[F65000].End(3).Row
For I = R To 10 Step -1
If .Cells(I, 6) = "X" Or .Cells(I, 6) = "#N/A" Then .Cells(I, 6).EntireRow.Delete
Next I
End With
End Sub
[/GPECODE]
P/S: học lỏm của thầy Ba Tê xem có đúng ý của bạn không, ặc ặc