Từ một cột cho ra kết quả hai cột và lấy mã duy nhất

[dongducnhiem]

Chào các bạn thành viên.
Hiện nay tôi đang dùng công thức mãng, lọc từ một cột (cột A Sheet TH) cho ra kết quả duy nhất ở cột P & Q của sheet Ma.
Nay File đã phát sinh rất nhiều dòng, nên nhờ các bạn viết code, để giảm bớt dung lượng.
Hiện nay trên diễn đàn bài lọc duy nhất cũng khá nhiều, nhưng đã tìm vẫn chưa có bài đồng dạng, vậy nhờ các bạn giúp đỡ.
Xin cảm ơn!

 

[concogia]

Chào các bạn thành viên.
Hiện nay tôi đang dùng công thức mãng, lọc từ một cột (cột A Sheet TH) cho ra kết quả duy nhất ở cột P & Q của sheet Ma.
Nay File đã phát sinh rất nhiều dòng, nên nhờ các bạn viết code, để giảm bớt dung lượng.
Hiện nay trên diễn đàn bài lọc duy nhất cũng khá nhiều, nhưng đã tìm vẫn chưa có bài đồng dạng, vậy nhờ các bạn giúp đỡ.
Xin cảm ơn!

Ôn bài thôi không thì quên hết
Hihi

Public Sub DuyNhat()
    Dim d, Sh, Mg, Vung, Cll, K, kK, iMax
    Vung = Sheets("TH").Range(Sheets("TH").[A9], Sheets("TH").[A50000].End(xlUp))
    Set d = CreateObject("scripting.dictionary")
    ReDim Mg(1 To UBound(Vung), 1 To 2)
        For Each Cll In Vung
            If Cll <> "" Then
                If Not d.exists(Cll) Then
                    d.Add Cll, ""
                        If Left(Cll, 1) = "X" Then
                            K = K + 1
                            Mg(K, 2) = Cll
                        Else
                            kK = kK + 1
                            Mg(kK, 1) = Cll
                        End If
                End If
            End If
                iMax = IIf(K > kK, K, kK)
        Next
    [S5:t10000].ClearContents
    [S5].Resize(iMax, 2) = Mg
End Sub