Postado por: @matheuscam
Será que seria possível fazer isso utilizando alguma macro?
Veja se o código abaixo pode lhe ajudar.
Sub DestacaPalavras()
Dim n As Range, k As Long, i As Long, c As Range
Columns("B:C").Font.ColorIndex = xlAutomatic
Range("D3:D" & Cells(Rows.Count, 4).End(3).Row).Value = ""
For i = 2 To 3
For Each c In Range(Cells(3, i), Cells(Rows.Count, i).End(3))
For Each n In Sheets("Negatives").Range("A1:A" & Sheets("Negatives").Cells(Rows.Count, 1).End(3).Row)
If InStr(c.Value, n.Value) > 0 Then
k = Len(n.Value)
c.Characters(InStr(c.Value, n.Value), k).Font.Color = vbRed
Cells(c.Row, 4) = "Destac"
End If
Next n
Next c
Next i
End Sub
obs.
1. antes de testar remova nada e Nada da planilha Negatives pois estão duplicadas
2. se houver palavras repetidas a serem destacadas o código irá destacar somente a primeira ocorrência delas
Postado : 18/10/2022 3:58 pm