Multiple values in a cell

[fatalcore]

Hi friends,
I was wondering if somebody could help me out with a formula or a VBA code to collate a data in a cell.
In Column A I have names and in Column B i have multiple values. What I am trying to do is collate all the values in a cell separated by a comma.
I am attaching a sample file for your reference, it contains a before and after tab.
Thanks friends.

[Marc L]

Please Login or Register  to view this content.

[apo]

Here's an alternative..

Please Login or Register  to view this content.

[fatalcore]

Thanks a ton, the code is working perfectly but when there are only one value against a name the code stops working. I was wondering if it is possible like if there is only one value then only one value will appear in Column C.
Thanks friends.

[apo]

Hi..

Just a small change/addition needed.. (shown in red)..

Please Login or Register  to view this content.

[jindon]

try

Please Login or Register  to view this content.

[fatalcore]

Waooo ! Works like a charm !
Thanks a ton !

[apo]

Hi..

As per your PM.. I have fixed/integrated my code to work in your real data.

I also added Jindons code.. you will see that Jindons is quite a bit faster than mine (autofilter is fast but no where near as fast as the method he used)..

btw.. your column where the results are dumped needs to be formated as text so the comma delimiting doesn't get messed up..

[Marc L]

Please Login or Register  to view this content.

[syed01]

Dear Marc L,
Can you please explain the below lines.
Set Rs = Re.End(xlUp) //
Rs(, 3).Value = Join(Application.Transpose(Range(Rs(, 2), Re(0, 2))), ", ") // Transpose(Range(Rs(, 2), Re(0, 2)))

Thanks in advance

[Marc L]

Application.Transpose is the worksheet function, returns a vertical range of cells as a horizontal range, or vice versa.

Fot other statement, select it and press F1 key, the best help to know its purpose …

Regards.