ciao
una UDF da inserire in un Modulo, Tipo testo.unisci()
Function Testo_Unisci(paragrafo As String, Valori As Range) As String
Dim val As Variant
Dim testo As String
testo = ""
For Each val In Valori
testo = testo & val & paragrafo
Next
Testo_Unisci = testo
End Function
utilizzo nel tuo caso con i dati che ai passato
=Testo_Unisci(",";A2:A6)
ti riallego il tuo file con inserita questa
Ciao da locate
excel 2007 / 13