Caro Justino,
Desculpe por isso. Depois de colar o código VBA na janela Código, pressione a tecla F5 para executar o código e, em seguida, a caixa de diálogo "Kutools for Excel" será aberta. Obrigada.

Oi,
Desculpe não pode ajudar com isso. Obrigado por seu comentário.

Olá PAUC,
O código a seguir pode fazer um favor. Por favor, tente.

Sub HighlightStrings()
'Updated by Extendoffice 20220721
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = "apple"
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

Olá Andreia,
Se você deseja apenas destacar a palavra se estiver no início das células selecionadas. O seguinte código VBA pode lhe fazer um favor. Por favor, tente.

Sub HighlightStrings()
'Updated by Extendoffice 20220805
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub

Olá Ciao,
Seus números estão localizados em células diferentes em um intervalo? Nesse caso, você pode criar duas regras de formatação condicional (entre -10 e 0, entre 0 e 10) para destacar esses números. Se não, você pode fazer upload de uma captura de tela de seus dados?

Olá t.taln,

Se você quiser aumentar o tamanho da fonte em 1 e destacar várias palavras ao mesmo tempo, adicione a seguinte linha após a linha "xCell.Characters(Len(xStrTmp) + 1, xHSrLen).Font.ColorIndex = 3" no código VBA.
Nota: você precisa saber o tamanho da fonte atual da célula selecionada de antemão e, em seguida, inserir um número um tamanho maior do que a palavra original. O número 12 na linha abaixo é o tamanho da fonte que atribuirei às palavras correspondentes. E o tamanho da fonte original da palavra é 11.

xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.Size = 12

Olá Shaik Faiaz hamad,

O Excel não permite colorir uma parte de uma célula. Lamento não poder ajudá-lo com este problema.

Olá Cous,

O seguinte código VBA pode ajudar. Depois de executar o código, você obterá uma caixa de diálogo. Por favor, digite as palavras que deseja destacar e separe-as por vírgula.

Sub HighlightStrings()
'Updated by Extendoffice 20230130
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    Dim xArr2
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight：", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
    
    xArr2 = Split(xHStr, ",")
    For j = 0 To UBound(xArr2)
        xHStr = xArr2(j)
    
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Next
    
    Application.ScreenUpdating = True
End Sub