Hi - as hemesh says, this sort of thing is a bit complicated with formulas, although depending what you want to do with the end results you may be able to do it if you ignore the step of concatenating with commas.
You could try getting morefunc and using the mconcat function but it tends to be a simple task in VBA, for example:
Sub macro_11()
Dim count
For count = Range("A" & Rows.count).End(xlUp).Row To 2 Step -1
If Range("A" & count) = Range("A" & count - 1) Then
Range("B" & count - 1) = Range("B" & count - 1) & "," & Range("B" & count)
Rows(count).Delete
End If
Next count
End Sub
would transform your example into comma separated lists, press alt+f11 to open the vba editor, click insert->module, then copy the code into the module window and run (F5 whilst the cursor is between the sub and end sub lines)
Bookmarks