[GIÚP] Sửa code lọc duy nhất & phân loại. (1 người xem)

[hoanglocphat]

Nhờ các thành viên giúp mình như sau:
Mình có sưu tầm code sau

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
    [P5:Q10000].ClearContents
    If K > 0 Then [P5].Resize(iMax, 2) = Mg
End Sub

Code trên sẽ lọc cột A của Sheet TH và cho kết qủa ở cột cột P & Q của sheet MA, code sẽ lọc duy nhất và phân lọai là "N" hay "X" rồi sắp xếp vào cột P & Q của Sheet MA

Tuy nhiên, tại cell A21 của sheet TH, nếu ta xóa giá trị X001, thì code sẽ không cho kết qủa nữa!

Nhờ các bạn sửa code để nó vẫn cho kết qủa
Cảm ơn các bạn!

 

[leonguyenz]

Nhờ các thành viên giúp mình như sau:
Mình có sưu tầm code sau
---
Code trên sẽ lọc cột A của Sheet TH và cho kết qủa ở cột cột P & Q của sheet MA, code sẽ lọc duy nhất và phân lọai là "N" hay "X" rồi sắp xếp vào cột P & Q của Sheet MA
Tuy nhiên, tại cell A21 của sheet TH, nếu ta xóa giá trị X001, thì code sẽ không cho kết qủa nữa!
Nhờ các bạn sửa code để nó vẫn cho kết qủa
Cảm ơn các bạn!

Xóa X001 thì K = 0, mà K = 0 thì không trả ra kết quả rồi, bạn thêm điều kiện:

If K > 0 [B][COLOR=#ff0000]Or kK > 0[/COLOR][/B] Then [P5].Resize(iMax, 2) = Mg