Xóa theo điều kiện? (1 người xem)

[Hoàng Nhật Phương]

Xin chào tất cả các bạn,
Tôi đang vướng mắc một vấn đề như tiêu đề tôi đã viết, cụ thể hơn là đã nêu trong file đính kèm.
Phiền các bạn xem xét và giúp cho ạ.
Xin cảm ơn rất nhiều.

 

[vanle33]

Xin chào tất cả các bạn,
Tôi đang vướng mắc một vấn đề như tiêu đề tôi đã viết, cụ thể hơn là đã nêu trong file đính kèm.
Phiền các bạn xem xét và giúp cho ạ.
Xin cảm ơn rất nhiều.

Đơn giản là dùng Filter để lọc ra những dòng có chữ a, b. Sau đó quét chọn toàn bộ những dòng này/Delete là xong.

 

[khuongvietphong]

Bạn thử coi File này đúng ý khôn :

 

[phulien1902]

Xin chào tất cả các bạn,
Tôi đang vướng mắc một vấn đề như tiêu đề tôi đã viết, cụ thể hơn là đã nêu trong file đính kèm.
Phiền các bạn xem xét và giúp cho ạ.
Xin cảm ơn rất nhiều.

Không biết đúng ý chủ nhân không?

Sub abc()
    Dim i As Long, LR As Long
    LR = Range("e" & Rows.Count).End(xlUp).Row
    For i = LR To 13 Step -1
        If Range("E" & i) = "a" Or Range("E" & i) = "b" Then
            Range("E" & i).Offset(, 1).Resize(, 6).ClearContents
        End If
    Next i
End Sub

 

[Hoàng Nhật Phương]

Xin cảm ơn tất cả các bạn nhiều ạ,
Tất cả các code trên đều đúng với ý tôi muốn, đã vậy lại còn được bạn hpkhuong khuyến mại thêm code xóa dòng )

Xin cảm ơn.
Oanh Thơ