Xin giúp đỡ lọc danh sách không trùng (2 người xem)

[jinbao]

Nhờ các bác chỉ giùm phương pháp lọc các dữ liệu không trùng tại 2 bảng với
Rất cảm ơn!

 

[hoangminhtien]

Bạn xem trong file có được không nhé!

 

[jinbao]

Nhưng mà bác có cách nào đơn giản hơn không?
Cách này của bác phức tạp quá, ko tiếp thu kịp

 

[ChanhTQ@]

Vậy thêm 1 cách nữa để xem có phức tạp với bạn không đây?!

Option Explicit
Sub FilTer()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Clls As Range
 
 Set Sh = Sheets("sheet2"):         Sheet1.Select
 [D1].Resize(, 2).Value = [A1].Resize(, 2).Value
 Set Rng = Sh.Range(Sh.[A1], Sh.[A65500].End(xlUp))
 For Each Clls In Range([A1], [A65500].End(xlUp))
   If Rng.Find(Clls.Value, , xlFormulas, xlWhole) Is Nothing Then _
        [d65500].End(xlUp).Offset(1).Resize(, 2).Value = Clls.Resize(, 2).Value
 Next Clls
End Sub

 

[ndu96081631]

Nhưng mà bác có cách nào đơn giản hơn không?
Cách này của bác phức tạp quá, ko tiếp thu kịp

Đơn giản nhất đây: Dùng 1 cột phụ với hàm COUNTIF để so sánh... tôi nghĩ chắc vừa với tầm hiểu biết của bạn
Xem file