Nhờ hướng dẫn xóa hàng theo điều kiện (1 người xem)

[madao2]

Chào các anh em GPE!
Em có một file báo cáo và cần code xóa tất cả các hàng nếu dữ liệu ở cột D có dữ liệu là "". Cụ thể trong file đính kèm. Như trong VD thì xóa tất cả các hàng từ thứ 8 trở xuống.
Em đã thử tất cả các hướng dẫn ở các bài viết tương tự sau đó chỉnh sửa lại cho phù hợp nhưng không có kết quả. Em cũng có thể dùng AutoFilter lọc và xóa hoặc ẩn đi những hàng thỏa điều kiện nhưng yêu cầu công việc phải xóa triệt để và nhanh gọn bằng cách dùng code.
Mong anh em chỉ giáo!

 

[ndu96081631]

Chào các anh em GPE!
Em có một file báo cáo và cần code xóa tất cả các hàng nếu dữ liệu ở cột D có dữ liệu là "". Cụ thể trong file đính kèm. Như trong VD thì xóa tất cả các hàng từ thứ 8 trở xuống.
Em đã thử tất cả các hướng dẫn ở các bài viết tương tự sau đó chỉnh sửa lại cho phù hợp nhưng không có kết quả. Em cũng có thể dùng AutoFilter lọc và xóa hoặc ẩn đi những hàng thỏa điều kiện nhưng yêu cầu công việc phải xóa triệt để và nhanh gọn bằng cách dùng code.
Mong anh em chỉ giáo!

Thế dùng AutoFilter rồi xóa thì không triệt để và nhanh gọn hả bạn?

 

[Cá ngừ F1]

Thử code này xem sao
[GPECODE=vb]Sub Xoa()
Dim R As Long, I As Long
On Error Resume Next
With Sheet2
R = .[D65000].End(3).Row
For I = R To 2 Step -1
If .Cells(I, 4) = "" Then .Cells(I, 4).EntireRow.Delete
Next I
End With
End Sub[/GPECODE]

 

[madao2]

Thế dùng AutoFilter rồi xóa thì không triệt để và nhanh gọn hả bạn?

Dạ em biết nhưng vấn đề là ngày nào cũng thực hiện vài lần, chi bằng viết code cho nhanh ạ.

 

[madao2]

Thử code này xem sao
[GPECODE=vb]Sub Xoa()
Dim R As Long, I As Long
On Error Resume Next
With Sheet2
R = .[D65000].End(3).Row
For I = R To 2 Step -1
If .Cells(I, 4) = "" Then .Cells(I, 4).EntireRow.Delete
Next I
End With
End Sub[/GPECODE]

Thử code này của bác phát được luôn, cảm ơn bác nhiều nhé!

 

[minhtungph]

bạn chạy thử file của mình xem có đúng ý bạn không

 

[Cá ngừ F1]

Thử code này của bác phát được luôn, cảm ơn bác nhiều nhé!

GPE có khá nhiều nội dung này đó bạn, tôi cũng mò mẫm thôi. Chúc bạn vui vẻ!