Paste unique value in multiple columns

[chunu]

Hi,
1 have data in sheet1 range a2 to a60
The following code paste unique vales to another sheet in one column.
is it possible to paste unique data from a2 to a20 in sheet2 column a then from a21 to a40 in sheet2 column b and from a41 to a60 in sheet2 column c

Sub Uniques()


Dim c As Range, ar As Variant, var As Variant
Dim Rng As Range: Set Rng = Sheet2.Range("b2", Sheet2.Range("b" & Sheet1.Rows.Count).End(xlUp))


With Rng
With CreateObject("Scripting.Dictionary")
For Each c In Rng
var = .Item(c.Value)
Next c
ar = .Keys
End With
End With


Sheet2.Range("A2").Resize(UBound(ar) + 1) = Application.Transpose(ar)

Thanks

 

[chunu]

code is working Perfectly .
Thank you so much
If i need more help i will come back to you.

 

[Peter_SSs]

code is working Perfectly .
Thank you so much

Good news, and you are welcome. Thanks for the follow-up.

If i need more help i will come back to you.

Just post in the forum - there are many helpers willing to offer suggestions.