Dò tìm và liệt kê những Giá trị KHÔNG trùng (1 người xem)

[NamThienVu]

Chào các bác!

Tìm kiếm trong diễn đàn thường thấy hướng dẫn Lọc và liệt kê những giá trị TRÙNG nhau, nay tôi xin được mọi người hỗ trợ Liệt kê giá trị KHÔNG trùng nhau:
Cụ thể, nhu cầu cần dò tìm trong Vùng 3 (Sheet B) những dòng nào không xuất hiện trong Vùng 1 (Sheet A) và Vùng 2 (Sheet B) thì liệt kê tại Vùng KQ theo thứ tự từ trên xuống dưới lần lượt theo thứ tự xuất hiện trong Vùng 3.
Mong mọi người giúp đỡ, cảm ơn mọi người nhiều !!

 

[Ba Tê]

Chào các bác!

Tìm kiếm trong diễn đàn thường thấy hướng dẫn Lọc và liệt kê những giá trị TRÙNG nhau, nay tôi xin được mọi người hỗ trợ Liệt kê giá trị KHÔNG trùng nhau:
Cụ thể, nhu cầu cần dò tìm trong Vùng 3 (Sheet B) những dòng nào không xuất hiện trong Vùng 1 (Sheet A) và Vùng 2 (Sheet B) thì liệt kê tại Vùng KQ theo thứ tự từ trên xuống dưới lần lượt theo thứ tự xuất hiện trong Vùng 3.
Mong mọi người giúp đỡ, cảm ơn mọi người nhiều !!

Bạn chạy thử Sub này.

Public Sub sGpe()
Dim Vung1(), Vung2(), Vung3(), KQ(1 To 10000, 1 To 1)
Dim I As Long, K As Long, R As Long
    Vung1 = Sheets("A").Range("B7", Sheets("A").Range("B100000").End(xlUp)).Value
    Vung2 = Sheets("B").Range("B7", Sheets("B").Range("B100000").End(xlUp)).Value
    Vung3 = Sheets("B").Range("D7", Sheets("B").Range("D100000").End(xlUp)).Value
With CreateObject("Scripting.Dictionary")
    R = UBound(Vung1)
    For I = 2 To R
        If Not .Exists(Vung1(I, 1)) Then .Item(Vung1(I, 1)) = ""
    Next I
    R = UBound(Vung2)
    For I = 2 To R
        If Not .Exists(Vung2(I, 1)) Then .Item(Vung2(I, 1)) = ""
    Next I
    R = UBound(Vung3)
    For I = 2 To R
        If Not .Exists(Vung3(I, 1)) Then
            K = K + 1
            KQ(K, 1) = Vung3(I, 1)
        End If
    Next I
End With
If K Then Sheets("B").Range("G8").Resize(K) = KQ
End Sub

 

[Nguyễn Hồng Quang]

Dùng hàm thì thử dùng cách này, bạn xem file gửi kèm nhé
Nhưng mà file thật mặt mũi nó thế nào. Mà đưa file ảo lên trông như bài kiểm tra kiến thức thành viên vậy bạn

 

[NamThienVu]

Dùng hàm thì thử dùng cách này, bạn xem file gửi kèm nhé
Nhưng mà file thật mặt mũi nó thế nào. Mà đưa file ảo lên trông như bài kiểm tra kiến thức thành viên vậy bạn

Dạ không dám bác )
Thanks bác đã hỗ trợ, file dung lượng ít thì dùng cách của bác làm được luôn, nhưng file của tôi tạm tính Vùng 1 có khoảng 1221 dòng, Vùng 2 là 19 dòng, Vùng 3 là 1241 dòng thì máy tính cứ Calculating mãi mà không xong được 100%

 

[Nguyễn Hồng Quang]

Dạ không dám bác )
Cảm ơn bác đã hỗ trợ, file dung lượng ít thì dùng cách của bác làm được luôn, nhưng file của tôi tạm tính Vùng 1 có khoảng 1221 dòng, Vùng 2 là 19 dòng, Vùng 3 là 1241 dòng thì máy tính cứ Calculating mãi mà không xong được 100%

Nếu vậy bạn dùng cách thêm cột phụ như file này. Nếu dữ liệu Lên đến 10.000 dòng tốc độ xử lý vẫn sẽ đỡ hơn