Aqui está uma função do VBA que você pode usar:
Public Function ListMissingWords(WordsToSearch As String, TextToSearch As String) As String
Dim AllWords As Variant
Dim i As Integer
Dim TempResult As String
On Error GoTo ErrLabel
AllWords = Split(WordsToSearch, ",")
For i = LBound(AllWords) To UBound(AllWords)
If Not InStr(LCase(TextToSearch), LCase(AllWords(i))) > 0 Then
TempResult = TempResult & AllWords(i) & ","
End If
Next i
If TempResult <> "" Then
TempResult = Left(TempResult, Len(TempResult) - 1)
End If
ListMissingWords = TempResult
Exit Function
ErrLabel:
Err.Clear
End Function
Para inserir:
- pressione Alt + F11 no Excel
- clique com o botão direito do mouse no nome da sua pasta de trabalho e selecione "inserir" - "módulo"
- insira o código
Agora você pode usar esta função em sua pasta de trabalho:
Você precisará salvar seu arquivo como uma pasta de trabalho do Excel habilitada para macro (.xlsm)