¿Cómo resaltar un texto específico dentro de una celda basado en otro texto?

En Excel, puede ser fácil para nosotros resaltar las celdas basadas en un texto específico, pero aquí, quiero resaltar un texto específico dentro de una celda para que destaque, pero no toda la celda. Esto puede ser un problema para la mayoría de nosotros. En este artículo, hablaré sobre algunos trucos para resolver esta tarea en Excel.

Resaltar uno o más textos específicos dentro de múltiples celdas con código VBA

Resaltar uno o más textos específicos dentro de múltiples celdas con una función asombrosa

Resaltar texto específico dentro de una celda basado en otro texto con código VBA

Resaltar uno o más textos específicos dentro de múltiples celdas con código VBA

Por ejemplo, tengo un rango de cadenas de texto, y ahora quiero resaltar el texto específico “Sky” en estas celdas para obtener el resultado como se muestra en las siguientes capturas de pantalla:

Para resaltar solo parte del texto dentro de una celda, el siguiente código VBA puede ayudarte.

1. Selecciona las celdas donde deseas resaltar el texto específico, y luego mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Resalta una parte del texto dentro de una celda:

Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
  With Rng
    m = UBound(Split(Rng.Value, cFnd))
    If m > 0 Then
      xTmp = ""
      For x = 0 To m - 1
        xTmp = xTmp & Split(Rng.Value, cFnd)(x)
        .Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
        xTmp = xTmp & cFnd
      Next
    End If
  End With
Next Rng
Application.ScreenUpdating = True
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que ingreses el texto que deseas resaltar únicamente, ver captura de pantalla:

4. Y luego haz clic en el botón Aceptar, todo el texto que especificaste ha sido resaltado solo dentro de las celdas, ver captura de pantalla:

Consejos: Si necesitas resaltar múltiples palabras clave de las cadenas de texto, por favor aplica el siguiente código:
Código VBA: Resalta múltiples palabras clave de las cadenas de texto:

Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub

Luego, en el cuadro emergente, por favor ingresa las palabras clave que deseas resaltar (separando las palabras con una coma), ver captura de pantalla:

Y luego, haz clic en el botón Aceptar, las palabras especificadas han sido resaltadas al instante, ver capturas de pantalla:

Nota: Los códigos anteriores distinguen mayúsculas y minúsculas.

Resaltar uno o más textos específicos dentro de múltiples celdas con una función asombrosa

Si no estás familiarizado con el código en Excel, aquí te presento una herramienta fácil - Kutools para Excel, con su función Marcar Palabras Clave, puedes resaltar una o más palabras clave a la vez dentro de las celdas.

Después de instalar Kutools para Excel, por favor sigue los siguientes pasos:

1. Haz clic en Kutools > Texto > Marcar Palabras Clave, ver captura de pantalla:

2. En el cuadro de diálogo Marcar Palabras Clave, realiza las siguientes operaciones:

• Selecciona el rango de datos que deseas usar desde el cuadro de texto Rango;
• Selecciona las celdas que contienen las palabras clave que deseas resaltar, también puedes ingresar las palabras clave manualmente (separadas por comas) en el cuadro de texto Palabra Clave.
• Finalmente, debes especificar un color de fuente para resaltar los textos marcando la opción Colores de palabra clave. (Para colorear las celdas completas que contienen las palabras clave, selecciona la opción Colores de contenido de celda).

3. Luego, haz clic en el botón Aceptar, todos los textos especificados han sido resaltados como se muestra en la siguiente captura de pantalla:

Nota: Esta función no distingue mayúsculas y minúsculas, si deseas resaltar el texto distinguiendo mayúsculas y minúsculas, marca la opción Coincidir Mayúsculas y Minúsculas en el cuadro de diálogo Marcar Palabras Clave.

Resaltar texto específico dentro de una celda basado en otro texto con código VBA

Aquí hay otra situación, tengo dos columnas donde la primera columna contiene las cadenas de texto y la segunda columna es el texto específico, ahora, necesito resaltar el texto relativo en la primera columna basado en el texto específico de la segunda columna para cada fila.

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Resalta una parte del texto dentro de una celda basado en otro texto:

Sub highlight()
'Updateby Extendoffice
    Dim xStr As String
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim I As Long
    Dim J As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "not support multiple columns"
        GoTo LInput
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "the selected range can only contain two columns "
        GoTo LInput
    End If
    For I = 0 To xRg.Rows.Count - 1
        xStr = xRg.Range("B1").Offset(I, 0).Value
        With xRg.Range("A1").Offset(I, 0)
            .Font.ColorIndex = 1
            For J = 1 To Len(.Text)
                If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
            Next
        End With
    Next I
End Sub

3. Después de pegar el código, presiona la tecla F5 para ejecutarlo, aparecerá un cuadro de diálogo para recordarte que selecciones el rango de datos que contiene tanto la cadena de texto como el texto específico que deseas resaltar y en base a ello, ver captura de pantalla:

4. Y luego haz clic en el botón Aceptar, todo el texto correspondiente en la primera columna basado en el texto específico de la segunda columna ha sido coloreado de rojo como se muestra en la siguiente captura de pantalla:

Más artículos relacionados: