Como destacar um texto específico dentro de uma célula com base em outro texto?

No Excel, pode ser fácil para nós destacar as células com base em um texto específico, mas aqui, quero destacar um texto específico dentro de uma célula para torná-lo mais visível, mas não a célula inteira. Isso pode ser complicado para a maioria de nós. Neste artigo, vou falar sobre alguns truques para resolver essa tarefa no Excel.

Destacar um ou mais textos específicos dentro de várias células com código VBA

Destacar um ou mais textos específicos dentro de várias células com um recurso incrível

Destacar texto específico dentro de uma célula com base em outro texto com código VBA

Destacar um ou mais textos específicos dentro de várias células com código VBA

Por exemplo, tenho uma série de cadeias de texto e agora quero destacar o texto específico “Sky” nessas células para obter o resultado conforme mostrado nas capturas de tela abaixo:

Para destacar apenas parte do texto dentro de uma célula, o seguinte código VBA pode ajudá-lo.

1. Selecione as células onde deseja destacar o texto específico e, em seguida, pressione ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Destacar parte do texto dentro de uma célula:

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. Em seguida, pressione a tecla F5 para executar este código e uma caixa de aviso aparecerá lembrando que você deve inserir o texto que deseja destacar, veja a captura de tela:

4. Depois disso, clique no botão OK e todo o texto especificado será destacado somente dentro das células, veja a captura de tela:

Dicas: Se você precisar destacar várias palavras-chave das cadeias de texto, aplique o código abaixo:
Código VBA: Destacar várias palavras-chave de cadeias 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

Depois, na caixa que aparece, insira as palavras-chave que deseja destacar (separe as palavras com vírgula), veja a captura de tela:

E depois, clique no botão OK e as palavras especificadas serão destacadas imediatamente, veja as capturas de tela:

Nota: Os códigos acima diferenciam maiúsculas de minúsculas.

Destacar um ou mais textos específicos dentro de várias células com um recurso incrível

Se você não está familiarizado com o código no Excel, aqui vou apresentar uma ferramenta fácil - Kutools para Excel, com seu recurso Marcar Palavra-chave, você pode destacar uma ou mais palavras-chave específicas de uma vez dentro das células.

Após instalar o Kutools para Excel, faça o seguinte:

1. Clique em Kutools > Texto > Marcar Palavra-chave, veja a captura de tela:

2. Na caixa de diálogo Marcar Palavra-chave, faça as seguintes operações:

• Selecione o intervalo de dados que deseja usar na caixa de texto Intervalo;
• Selecione as células que contêm as palavras-chave que deseja destacar, você também pode inserir as palavras-chave manualmente (separadas por vírgula) na caixa de texto Palavra-chave.
• Por fim, especifique uma cor de fonte para destacar os textos marcando a opção Cor da Fonte da Palavra-chave. (Para colorir as células inteiras que contêm as palavras-chave, selecione a opção Cor do Conteúdo da Célula).

3. Em seguida, clique no botão Ok e todos os textos especificados serão destacados conforme mostrado na captura de tela abaixo:

Nota: Este recurso não diferencia maiúsculas de minúsculas. Se você deseja destacar o texto diferenciando maiúsculas de minúsculas, marque Diferenciar Maiúsculas de Minúsculas na caixa de diálogo Marcar Palavra-chave.

Destacar texto específico dentro de uma célula com base em outro texto com código VBA

Aqui está outra situação: tenho duas colunas, onde a primeira contém as cadeias de texto e a segunda contém o texto específico. Agora, preciso destacar o texto relativo na primeira coluna com base no texto específico da segunda coluna para cada linha.

1. Pressione ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Destacar parte do texto dentro de uma célula com base em outro 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. Após colar o código, pressione a tecla F5 para executá-lo, uma caixa de aviso aparecerá lembrando que você deve selecionar o intervalo de dados que contém tanto a cadeia de texto quanto o texto específico que deseja destacar e utilizar como base, veja a captura de tela:

4. E então clique no botão OK, todo o texto correspondente na primeira coluna com base no texto específico da segunda coluna terá sido colorido de vermelho conforme mostrado na captura de tela abaixo:

Mais artigos relacionados: