Lấy dữ liệu khác nhau giữa 2 cột (3 người xem)

[tkhieu]

Xin chào mọi người
Nhờ mọi người giúp mình code VBA có thể tìm dữ liệu từ cột 1 thỏa mãn điều kiện là không xuất hiện trong cột 2, sau đó copy những dữ liệu này sang cột thứ 3.
mình có đính kèm file mẫu bên dưới ạ

 

[SA_DQ]

Sub LayDuLieuTu1CotKhongTrung()
 Dim Rng As Range, sRng As Range, Cls As Range
 Dim Rws As Long, W As Integer
 
 Rws = [B2].CurrentRegion.Rows.Count
 Set Rng = [B1].Resize(Rws + 9)
 ReDim Arr(1 To Rws, 1 To 1) As Long
 [C2].Resize(Rws).Value = Space(0)
 For Each Cls In Range([A2], [A2].End(xlDown))
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        W = W + 1:          Arr(W, 1) = Cls.Value
    End If
 Next Cls
 If W Then [C2].Resize(W).Value = Arr()
End Sub

Chúc bạn vui & có ngày làm việc kết quả!

 

[tkhieu]

Sub LayDuLieuTu1CotKhongTrung()
 Dim Rng As Range, sRng As Range, Cls As Range
 Dim Rws As Long, W As Integer
 
 Rws = [B2].CurrentRegion.Rows.Count
 Set Rng = [B1].Resize(Rws + 9)
 ReDim Arr(1 To Rws, 1 To 1) As Long
 [C2].Resize(Rws).Value = Space(0)
 For Each Cls In Range([A2], [A2].End(xlDown))
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        W = W + 1:          Arr(W, 1) = Cls.Value
    End If
 Next Cls
 If W Then [C2].Resize(W).Value = Arr()
End Sub

Chúc bạn vui & có ngày làm việc kết quả!

Cám ơn bạn nhiều nhé, Code hoạt động tốt ạ