Analizzare il testo multicolore nella cella del foglio di calcolo di Excel in più celle? - excel, excel-vba, vba

Ho una sequenza di caratteri di testo colorati in acellula. Mi piacerebbe analizzarlo in base al colore a più celle come mostrato di seguito. I colori stanno ripetendo. Ho provato ad utilizzare alcune delle soluzioni già pubblicate in questo forum, inclusa la soluzione: Come estrarre il testo in base al colore del carattere da una cella con testo di più colori e separare più parole in Delimiter?. Ma, non ho potuto raggiungere i risultati che voglio. Eventuali suggerimenti?

risposte:

Questo sembra giusto.

Option Explicit

Function udf_Color_Piece(rTXT As Range, Optional iNDX As Long = 1)
Dim c As Long, seg As Long, clr As Long

seg = 0
clr = -9
udf_Color_Piece = vbNullString

For c = 1 To Len(rTXT.Text)
With rTXT.Characters(Start:=c, Length:=1)
If clr <> .Font.Color Then
seg = seg + 1
clr = .Font.Color
If seg > iNDX Then Exit Function
End If
If seg = iNDX Then
udf_Color_Piece = udf_Color_Piece & .Text
End If
End With
Next c

End Function