unique values

[Lukas C]

Hi I'm heaving a small problem here
my table looks like that
1 2 3 4 5

A X X Y Y Z

B 12 21 10 10 10

I want to have unique numbers by letters in Raw C and D (like below) or in any other format

C X X Y Z

D 12 21 10 10

many thx in advance

 

[majidsiddique]

please clarify your data in table format

 

[footoo]

Sub v()
Dim rng As Range, cel As Range
Set rng = Range([B2], Cells(2, Columns.Count).End(xlToLeft))
rng.Resize(2).Copy [B4]
For Each cel In rng.Offset(2, 1)
    If cel & cel(2) = cel(1, 0) & cel(2, 0) Then cel.Resize(2).ClearContents
Next
End Sub

 

[AhoyNC]

Here is an array formula you could try.
Enter formulas in C1 and D1 with CTRL-SHIFT-ENTER then drag formulas down rows as needed.

Excel Workbook
	A	B	C	D
1	X	12	X	12
2	X	21	X	21
3	Y	10	Y	10
4	Y	10	Z	10
5	Z	10
Sheet

 

[Lukas C]

Many thx everyone, the array just does the trick many thx

 

[AhoyNC]

You're welcome. Glad we could help. Thanks for the feedback.