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
Đơ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ạnNhư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