ciao
la richiesta giusta era Concatenare()
intanto saluto Alfredo
comunque ti posto una macro() o Sub() da inserire nel modulo foglio5
questi riporta i tuoi dati in foglio2 iniziando da riga 20 per non modificare i tuoi
PS attenzione a Testo a capo
Sub ConcatenaA_B_inF2AB()
Dim i As Long, prog As Variant
Dim Nriga As Long
Dim Stringa As String, Sh As String
Sh = "Foglio2"
prog = Cells(6, 1).Value
Stringa = ""
Nriga = 20
For i = 6 To Cells(Rows.Count, 1).End(xlUp).Row
Stringa = Stringa & " " & Cells(i, 2)
If prog <> Cells(i + 1, 1) Then
Sheets(Sh).Cells(Nriga, 1) = prog
Sheets(Sh).Cells(Nriga, 2) = Trim(Stringa)
prog = Cells(i + 1, 1)
Nriga = Nriga + 1
Stringa = ""
End If
Next i
End Sub
riallego il tuo file con inserita la sub()
Ciao da locate
excel 2007 / 13