Lọc dữ liệu

[locnguyen96]

nhờ anh chị hướng dẫn cho em cách lọc các dữ liệu bị trùng nhau trong 1 cột với ạ, trùng thì sẽ tách ra cột khác

 

[Ba Tê]

nhờ anh chị hướng dẫn cho em cách lọc các dữ liệu bị trùng nhau trong 1 cột với ạ, trùng thì sẽ tách ra cột khác

Bạn chạy thử Sub này coi sao:

Public Sub sGpe()
Dim sArr(), dArr(), I As Long, K1 As Long, K2 As Long, R As Long
sArr = Range("A2", Range("A2").End(xlDown)).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 2)
With CreateObject("Scripting.Dictionary")
    For I = 1 To R
        If Not .Exists(sArr(I, 1)) Then
            K1 = K1 + 1
            .Item(sArr(I, 1)) = ""
            dArr(K1, 1) = sArr(I, 1)
        Else
            K2 = K2 + 1
            dArr(K2, 2) = sArr(I, 1)
        End If
    Next I
End With
Range("E2").Resize(R, 2) = dArr
End Sub

 

[PacificPR]

nhờ anh chị hướng dẫn cho em cách lọc các dữ liệu bị trùng nhau trong 1 cột với ạ, trùng thì sẽ tách ra cột khác

Bạn tham khảo thử

 

[befaint]

Bạn tham khảo thử

Khi chỉ có A1 = "PatientNo"

Set Rng = Range("A1", Range("A" & Rows.Count).End(xlUp).Offset(1))
'...
For I = 2 To UBound(sArr, 1)
'...
If C > 0 Then Range("C2").Resize(K, C) = dArr