Tengo secuencia de caracteres de texto de color en unacélula. Me gustaría analizarlo en función del color en varias celdas, como se muestra a continuación. Los colores se están repitiendo. Intenté usar algunas de las soluciones ya publicadas en este foro, incluida la solución: ¿Cómo extraer texto basado en el color de fuente de una celda con texto de varios colores y separar varias palabras con Delimitador?. Pero, no pude lograr los resultados que quiero. ¿Alguna sugerencia?
Respuestas
2 para la respuesta № 1Esto se ve bien.
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