Xóa toàn bộ những hàng có chứa nội dung chuỗi kí tự nào đó

Giả sử có một file Excel trong đó bạn muốn xóa những hàng có chứa một chuỗi kí tự nào đó ,

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 :

 

  • Mở file Excel bạn muốn thực hiện việc xóa các dòng
  • Bấm tổ hợp phím Alt-F11 để mở của sổ Microsoft Visual Basic
  • Chọn menu Insert > Module , bạn copy toàn bộ nội dung bên dưới

 

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

 

  • Quay trở lại Excel
  • Bấm chọn menu Developer > Macro và chạy DeleteRows

 

\"\"

 

  • Bạn được yêu cầu vào cột muốn xóa , ví dụ cột D

 

\"\"

 

  • Bạn gõ chuỗi kí tự có chứa nội dung bạn muốn xóa , ví dụ trong những nội dung trên bạn muốn xóa những ô CS&BD thì chỉ cần gõ DB hoặc CD hoặc S&B

 

\"\"

 

\"\"\"\"