Lọc mã duy nhất từ 2 sheet (2 người xem)

[thuanntk]

Chào các bạn!
Mình có 2 sheet có chứa danh sách, Mình muốn lọc 2 danh sách từ 2 sheet này thành 1 danh sách duy nhất và bỏ qua khoảng trống bằng VBA, cảm cơn các bạn.

 

[chuot0106]

Chào các bạn!
Mình có 2 sheet có chứa danh sách, Mình muốn lọc 2 danh sách từ 2 sheet này thành 1 danh sách duy nhất và bỏ qua khoảng trống bằng VBA, cảm cơn các bạn.

Cấu trúc File thật của bạn có giống thế này không? Bạn xem lại nếu đúng thì tôi giúp luôn. Sợ phải sửa lắm!

 

[thuanntk]

Cấu trúc File thật của bạn có giống thế này không? Bạn xem lại nếu đúng thì tôi giúp luôn. Sợ phải sửa lắm!

Đúng là như vậy đó bạn, bạn giúp mình với nhé

 

[chuot0106]

Đúng là như vậy đó bạn, bạn giúp mình với nhé

Mở File nhấn nút "LỌC" xem kết quả đã đúng chưa?

 

[chuot0106]

File sau này có bổ sung thêm 1 chút!

 

[SA_DQ]

Mình cũng thử tập tành với Dic:

Sub Filter()
 Dim Data(), J As Long, KQ(), I As Long, K As Byte
 Dim Dic As Object
 
 Set Dic = CreateObject("Scripting.Dictionary")
 ReDim KQ(1 To 65500, 1 To 1)
 For K = 2 To 3
    With Sheets("DS" & CStr(K - 1))
        Data = .Range(.Cells(K, K), .Cells(65500, K).End(xlUp)).Value
    End With
    For I = 1 To UBound(Data)
        If Not IsEmpty(Data(I, 1)) And Not Dic.exists(Data(I, 1)) Then
            J = J + 1
            Dic.Add Data(I, 1), J
            KQ(J, 1) = Data(I, 1)
        End If
    Next I
 Next K
 Sheets("TH").Range("D3").Resize(J, 1).Value = KQ()
End Sub