Dear Team,
I need your assistance to obtain the unique values with further names; an excel file with the outcome is also attached.
Thanks
Code
Sub GetUniques()
Dim d, e As Object, c As Variant, i As Long, lr As Long
Set d = CreateObject("Scripting.Dictionary")
Set e = CreateObject("Scripting.Dictionary")
lr = Cells(Rows.Count, 1).End(xlUp).row
c = Range("A2:B" & lr)
For i = 1 To UBound(c, 1)
d(c(i, 1)) = 1
e(c(i, 2)) = 1
Next i
Range("J2").Resize(d.Count) = Application.Transpose(d.keys)
Range("K2").Resize(e.Count) = Application.Transpose(e.keys)
End Sub