ví dụ như trong hình dưới
Bạn có thể dùng tính năng lọc sau đó thực hiện thao tác xóa những nội dung hiện trong kết quả lọc . Nhưng nhiều khi nội dung lọc quá nhiều thì bạn có thể sử dụng macro DeleleRows , cách thức tiến hành như sau :
Sub DeleteRows()
Dim c As Range
Dim SrchRng As Range
Dim SrchStr As String
Dim Col, Col1, Col2 As String
Col = InputBox("Vao cot muon xoa : ")
Col1 = Col + "1"
Col2 = Col + "65536"
Set SrchRng = ActiveSheet.Range(Col1, ActiveSheet.Range(Col2).End(xlUp))
SrchStr = InputBox("Vao ten chuoi lien quan : ")
Do
Set c = SrchRng.Find(SrchStr, LookIn:=xlValues)
If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing
End Sub