Option Explicit Sub unisci_e_colora_B() Dim i As Variant For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 3) = Cells(i, 1) & " " & Cells(i, 2) With Cells(i, 3).Characters(Start:=Len(Cells(i, 1)) + 1, Length:=Len(Cells(i, 2)) + 1).Font .ColorIndex = 3 End With Next i End Sub
Option Explicit Sub unisci_e_colora_B() Dim i As Variant For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 3) = Cells(i, 1).Text & " " & Cells(i, 2).Text With Cells(i, 3).Characters(Start:=Len(Cells(i, 1).Text) + 1, Length:=Len(Cells(i, 2).Text) + 1).Font .Color = Cells(i, 2).DisplayFormat.Font.Color .FontStyle = "Grassetto" End With Next i End Sub