Makróval tudom elképzelni, de azt is csak akkor, ha az összefűzést értékként való beillesztés követi, vagyis már nem képlet eredményét, hanem fix szöveget kell színezni.

A próbában az A1:A3 tartomány adatait fűztem össze a B1-ben, az adatok közé egy-egy szóközt is tettem (=A1&" "&A2&" "&A3)

A 3 szövegrész hosszát 3 változóban tettem el: eh, mh, hh (első hossz... harmadik hossz).

Sub szinez()
    eh = Len(Cells(1, 1)): mh = Len(Cells(2, 1)): hh = Len(Cells(3, 1)) 'hosszak
    Range("B1").Select
    Selection.Copy 'képlet másolása...
    Selection.PasteSpecial Paste:=xlPasteValues 'beillesztése értékként
    ActiveCell.Characters(Start:=1, Length:=eh).Font.ColorIndex = 5 'kék
    ActiveCell.Characters(Start:=eh + 2, Length:=mh).Font.ColorIndex = 3 'piros
    ActiveCell.Characters(Start:=eh + mh + 3, Length:=hh).Font.ColorIndex = 10 'zöld
End Sub