Loc_Khong_Trung_02.bas

Sub Loc_Khong_Trung_02()
Dim ar As Variant
Dim var()
Dim i As Long
Dim n As Long

  ar = Range("A1").CurrentRegion 'Vị trí bắt đầu trong bảng dữ liệu

ReDim var(1 To UBound(ar, 1), 1 To 1)

    With CreateObject("scripting.dictionary")
        .comparemode = 1
        For i = 1 To UBound(ar, 1)
            .Item(ar(i, 2)) = Empty
        Next
        For i = 1 To UBound(ar, 1)
            If Not .exists(ar(i, 1)) Then
                n = n + 1
                var(n, 1) = ar(i, 1)
            End If
        Next
    End With
[E1].Resize(n).Value = var 'Vị trí trích xuất kết quả so sánh

End Sub