Combinations of 4 Ranks

[cocacrave]

Hi,
I'm trying to figure this out...
I have 4 columns. Cells in these columns can have 4 ranks: s, h, c, d.
These ranks are put in every possible order. 256 (4*4*4*4).
I would like to "organize" these rows.
For example, ssss is same as hhhh which is same as cccc as well as dddd.
Another example, shcd is same as hcds, and cdsh.. etc.

I thought about how to do this and the best solution I could come up with is:
Make all ranks in column A to equal A.
If that rank is repeated later on (For example, ssss) then set it to A again. So in the ssss example, it will be AAAA.
Column B will be equal to B unless the rank is same as column A.
Same idea for column C and D.

Few examples:
sshd - AABC
sssc - AAAB
shdh - ABCB
shhh - ABBB
dshh - ABCC

After I do this I can sort through these new "ranks" and only have non-recurring ranks.
I need to do this in VBA, because I need to use these new ranks to sort..
I tried to do this using Select Case. But it became huge quick and I could not keep track of what was going on...

ranks.xlsx

Can you help me please?

[shg]

Row\Col	A	B	C
1	sshd	AABC	B1: =sWdPatt(A1)
2	sssc	AAAB
3	shdh	ABCB
4	shhh	ABBB
5	dshh	ABCC

Please Login or Register  to view this content.

[cocacrave]

I don't know what this function is doing exactly now but I will take a look at it.
Thank you for your help

[shg]

You're welcome.

In your example file, you could use

=sWdPatt(A2 & B2 & C2 & D2)

[cocacrave]

It works perfectly. You are a god!!

[shg]

Lesser god. You're welcome.