¿Cómo extraer texto basado en el color de fuente de una celda en Excel?
Si tiene una lista de datos con texto en rojo en cada celda en Excel, como se muestra en la siguiente captura de pantalla, ¿sabe cómo extraer solo el texto en rojo? Ahora presentaré una forma rápida de resolver el rompecabezas que extrae texto según el color de fuente de una celda en Excel.
Extraiga texto según el color de la fuente de cada celda
Extraiga texto según el color de la fuente de cada celda
En Excel, solo puede usar la función definida para extraer el texto según el color de la fuente.
1. Prensa Alt + F11 teclas juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Hacer clic en recuadro > Módulo y copie el siguiente código VBA en la ventana emergente.
VBA: extraer texto según el color de la fuente
Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
If pRange.Characters(i, 1).Font.Color = TextColor Then
xOut = xOut & VBA.Mid(xValue, i, 1)
End If
Next
GetColorText = xOut
End Function
3. Luego guarde y cierre el cuadro de diálogo, y seleccione una celda en blanco junto a la lista de datos, escriba esta fórmula = GetColorText (A1) (A1 indica la celda de la que desea extraer el texto), presione Participar para obtener el texto necesario, luego arrastre el controlador de autocompletar para completar la fórmula en el rango que desee.
Ahora puede ver que se extrae todo el texto rojo.
Consejo: En el código VBA anterior, puede cambiar el color rgb en este script TextColor = RGB (255, 0, 0) a otros para satisfacer sus necesidades.
Artículos relativos:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!