Depois de Text to Columns e assumindo que os dados estão em ColumnsA: D iniciando na Row2, isso deve funcionar (copiado conforme apropriado):
=A2&IF(B2<>A2,", "&B2,)&IF(AND(C2<>B2,C2<>A2),", "&C2,)&IF(AND(D2<>C2,D2<>B2,D2<>A2),", "&D2,)
É apenas uma string junto, com uma vírgula e um espaço no meio, cada entrada única para cada linha.