Esta UDF ajudará você a comparar as duas tabelas / colunas para encontrar texto comum e produzir texto revisado.
FunctionRemoveText(strInputAsString,rngFindAsRange)AsStringDimstrTempAsStringDimstrFindAsStringstrTemp=strInputForEachcellInrngFindstrFind=cell.ValuestrTemp=Replace(strTemp,strFind,"")
Next cell
RemoveText = strTemp
End Function
Como funciona:
- Preencha o texto comum em
Column C
. -
Escreva esta fórmula na célula
D2
& Preencher para baixo.=RemoveText(A2,$C$2:$C$3)
Ajuste referências de célula na fórmula conforme necessário.