Extract only unique numbers

[motilulla]

Hello,</SPAN></SPAN>

In the columns B:AD there are 9 numbers divided in 3 parts I need a Formula or a VBA solution to extract the only unique numbers from the column B:AD of the each row and list them in columns AG:AX in the ascending order left to right</SPAN></SPAN>

Here is an example....</SPAN></SPAN>

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN	AO	AP	AQ	AR	AS	AT	AU	AV	AW	AX
1
2		n1	n2	n3	n4	n5	n6	n7	n8	n9		n1	n2	n3	n4	n5	n6	n7	n8	n9		n1	n2	n3	n4	n5	n6	n7	n8	n9			n1	n2	n3	n4	n5	n6	n7	n8	n9	n10	n11	n12	n13	n14	n15	n16	n17	n18
3		8	4	21	1	10	0	5	6	3		4	0	17	6	2	15	3	11	32		4	0	1	8	5	6	3	2	18			0	1	2	3	4	5	6	8	10	11	15	17	18	21	32
4		9	5	22	0	11	1	6	7	4		5	1	0	7	3	16	4	12	33		5	1	2	9	6	7	4	3	0			0	1	2	3	4	5	6	7	9	11	12	16	22	33
5		10	0	23	1	12	2	7	8	5		6	2	1	8	4	17	5	0	34		6	2	3	0	7	8	5	4	1			0	1	2	3	4	5	6	7	8	10	12	17	23	34
6		11	1	24	2	0	3	8	9	6		7	3	2	9	5	0	6	1	35		7	3	4	1	0	9	6	5	2			0	1	2	3	4	5	6	7	8	9	11	24	35
7		12	2	25	0	1	4	9	10	7		0	4	3	10	6	1	7	2	36		8	0	5	2	1	10	7	6	3			0	1	2	3	4	5	6	7	8	9	10	12	25	36
8		0	3	26	1	2	5	10	11	8		1	5	4	11	0	2	8	3	37		0	1	6	3	2	11	8	7	4			0	1	2	3	4	5	6	7	8	10	11	26	37
Sheet3

Thank you all</SPAN></SPAN>

Excel 2000</SPAN></SPAN>
Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>

 

[Eric W]

Put this in AG3 and copy down and across as needed:

=IF(MAX($B3:$AD3)=MAX($AF3:AF3),"",SMALL($B3:$AD3,COUNTIF($B3:$AD3,"<="&AF3)+1))

 

[DRSteele]

For those of you using Excel365, the new functions make quick work of this task.

Put this in AG3 and copy downwards:

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]=SORT(UNIQUE(A4:AD4,1),,,1)[/FONT]

 

[motilulla]

For those of you using Excel365, the new functions make quick work of this task.

Put this in AG3 and copy downwards:

[FONT=Verdana]=SORT(UNIQUE(A4:AD4,1),,,1)[/FONT]

Hello DRSteele, I am using very old version excel 2000 so unfortunately it did not work for me. Thank you for your help</SPAN></SPAN>

Have a nice weekend</SPAN></SPAN>

Kind Regards</SPAN></SPAN>
Moti</SPAN></SPAN>

 

[motilulla]

Put this in AG3 and copy down and across as needed:

=IF(MAX($B3:$AD3)=MAX($AF3:AF3),"",SMALL($B3:$AD3,COUNTIF($B3:$AD3,"<="&AF3)+1))

Eric, formula worked superb!! Thank you so much for your kind help </SPAN></SPAN>

Have a nice weekend</SPAN></SPAN>

Kind Regards</SPAN></SPAN>
Moti </SPAN></SPAN>

 

[DRSteele]

You're welcome. You have a nice weekend too.