Unique sorting along rows

[jumpulas]

Hello all,
I have the following:
Data is columns A to F and I would like to unique sort each row and show the results in Cols I to M.
There are seveal rows of data and in this example I have only shown 2 rows.
Can any one help please.

Regards
Jumpulas

Excel Workbook
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Data1	Data2	Data3	Data3	Data4	Data5			Output1	Output2	Output3	Output4	Output5
2	Alpha	Zeta	Zeta	Omega	Beta	Alpha			Alpha	Beta	Omega	Zeta
3	Tiger	Elephant	Lion	Lion	Tiger				Elephant	Lion	Tiger
Sheet13

Excel 2010

 

[jumpulas]

Anyone to assist me!!!!

Thanks jumpulas

Hello all,
I have the following:
Data is columns A to F and I would like to unique sort each row and show the results in Cols I to M.
There are seveal rows of data and in this example I have only shown 2 rows.
Can any one help please.

Regards
Jumpulas

Excel Workbook
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Data1	Data2	Data3	Data3	Data4	Data5			Output1	Output2	Output3	Output4	Output5
2	Alpha	Zeta	Zeta	Omega	Beta	Alpha			Alpha	Beta	Omega	Zeta
3	Tiger	Elephant	Lion	Lion	Tiger				Elephant	Lion	Tiger
Sheet13

Excel 2010

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG25May17
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Rw [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A2"), Range("A" & rows.Count).End(xlUp))
ReDim Ray(1 To Rng.Count, 1 To 6)
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
Ac = 0
n = n + 1
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Rw [COLOR="Navy"]In[/COLOR] Dn.Resize(, 6)
        [COLOR="Navy"]If[/COLOR] Not .Exists(Rw.value) [COLOR="Navy"]Then[/COLOR]
            Ac = Ac + 1
            Ray(n, Ac) = Rw
            .Add Rw.value, ""
            [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Rw
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Next[/COLOR] Dn
Range("i1").Resize(n, 6) = Ray
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick