find du/triplicates or more and combine cellvalue of next cells

Hi,

I want a VBA that searches for duplicates, triplicates, or more and combine the cellvalue that is next to the duplicates. Also, if it combines them, it should only use the last letter. I have a code that works partially, but I'm stuck.

For example, I have this list:

1	2014A
2	2014B
3	2014C
1	2014D
4	2014E
1	2014F

I want it to combine the A, D and F like this:

1	2014A		1	A/D/F
2	2014B		2	2014B
3	2014C		3	2014C
1	2014D		4	2014E
4	2014E
1	2014F

I created the following script, but i can't get it to use the last letter. Also it creates a " / / " when the cells are empty. Can somebody help me? I'm stuck.

Formula:

Please Login or Register  to view this content.