Potresti anche fare così:
nel tuo file di Excel, nell'Editor di VBA, inserisci un nuovo Modulo e copiaci dentro questa funzione:
codice:
Public Function ConcatenaConLimite(rng As Range, lim As Range)
For k = rng.Column To rng.Column + rng.Columns.Count
s = s & Cells(rng.Row, k) & " "
If Len(s & Cells(rng.Row, k + 1)) > lim.Value Then
ConcatenaConLimite = Trim (s)
Exit Function
End If
Next
ConcatenaConLimite = Trim (s)
End Function
Dopo di che, nel tuo foglio di lavoro, nelle celle in cui ti interessano i risultati (quindi in B13, B14, B15, etc..), usa la nuova funzione in questo modo:
codice:
=concatenaconlimite($B$7:$E$7;A13)
Teo