Thread: filter unique records with its corresponding column

Hi jungelbobo
something like

Sub ptest()
    Dim a, b(), i!, n!
    With Range("a1", Range("a" & Rows.Count).End(xlUp)).Resize(, 2)
        a = .Value
     End With
    ReDim b(1 To UBound(a, 1), 1 To 2)
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For i = 1 To UBound(a, 1)
            If Not IsEmpty(a(i, 1)) Then
                If Not .exists(a(i, 1)) Then
                    n = n + 1
                    b(n, 1) = a(i, 1)
                    .Add a(i, 1), n
                End If
                b(.Item(a(i, 1)), 2) = b(.Item(a(i, 1)), 2) + a(i, 2)
            End If
        Next
  End With
    Range("D1").Resize(n, 2).Value = b
End Sub