Vedi se così va bene.![]()
codice:Option Explicit Sub unisci() Dim testo As String Dim cella As Range Dim inizio As Long, fine As Long inizio = Selection.Rows(1).Row fine = inizio + Selection.Rows.Count - 1 For Each cella In Selection testo = testo & " " & cella.Value Next cella 'applichi alla cella la formattazione che vuoi 'esempio: With Range("b" & inizio) .Value = testo .Font.ColorIndex = 3 End With 'unisco le celle Range("b" & inizio & ":b" & fine).Merge End Sub