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

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

Xin chào các bạn,

Như tiêu đề tôi đã đề cập, nhờ các bạn giúp đỡ cho tôi trư hợp cụ thể nêu trong tập tin gửi kèm ạ.

Trân trọng,

 

[befaint]

trư hợp cụ thể

Thử bật chức năng Record macro trong khi Filter cột O với điều kiện "OK", rồi xóa các dòng vừa lọc được.

Sub Macro1()
''
With ActiveSheet
    .Range("$O$10:$O$997").AutoFilter Field:=1, Criteria1:="OK"
    .Range("$O$11:$O$997").SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilterMode = False
End With
End Sub

 

[Horse]

Xin chào các bạn,

Như tiêu đề tôi đã đề cập, nhờ các bạn giúp đỡ cho tôi trư hợp cụ thể nêu trong tập tin gửi kèm ạ.

Trân trọng,

Bạn xem thử file

 

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

Xin cảm ơn befaint , Horse, rất nhiều!
Code ở tập tin gửi ở bài 3 cho ra kết quả theo ý muốn của Oanh Thơ ạ.
hihi

 

[thuongluxu]

note