Giúp mình viết Code xoá dữ liệu như File đính kèm. (1 người xem)

[bogay]

Mình muốn xoá dữ liệu cũa mã hiệu bên sheet DGCT tương ứng với việc bên Sheet Dutoan không có mã hiệu này. Các bác giúp em tý nhé, mày mò mãi mà vẫn không ra đáp án. Thank!

 

[Quang_Hải]

Mình muốn xoá dữ liệu cũa mã hiệu bên sheet DGCT tương ứng với việc bên Sheet Dutoan không có mã hiệu này. Các bác giúp em tý nhé, mày mò mãi mà vẫn không ra đáp án. Thank!

Thử với code này xem sao

Nói trước nếu dữ liệu 2 bên không khớp thì code xóa tầm bậy ráng chịu, chẳng hạn như là mã bị thừa 1 khoảng trắng hay gì gì đó...

Sub xoa()
Dim cell As Range, tim As Range
With Sheet1
   .[D65536].End(3).Offset(1, -2) = "END"
   For Each cell In .Range(.[B6], .[B65536].End(3).Offset(-1))
      If cell <> "" Then
         Set tim = Sheet2.[B7:B1000].Find(cell, , , xlWhole)
         If tim Is Nothing Then
            Range(cell, cell.End(4).Offset(-1)).EntireRow.Delete
         End If
      End If
   Next
   .[B65536].End(3).Clear
End With
End Sub

 

[Paraduong]

Anh giúp bạn ấy viết code kiểm tra mã hiệu sheet dutoan không tồn tại hoặc sai thì khỏi xóa luôn cho chắc ăn.