Há muito que estava prometido esta Macro em Excel, para executar múltiplas substituições. Irei utilizar a versão Excel 2013 mas funciona exatamente da mesma maneira em qualquer outra versão do programa.
Localizar e Substituir é uma operação comum e simples no Excel. A questão está no numero de substituições a fazer!
Quando a lista de substituições é extensa a função Localizar e Substituir não é suficiente.
Nesse sentido desenvolvi uma Macro que facilita imenso esse trabalho.
É muito simples de usar e os resultados são espantosos!
Vamos então instalar o código no Excel para podermos utilizar sempre que necessário.
Abra o Excel e pressione simultaneamente as teclas
Alt+F11 de modo a abrir a janela do Editor de Visual Basic. Do lado esquerdo na janela dos projetos localize o livro PERSONAL.XLSB
*, abra um dos módulos ou insira um novo e cole o código abaixo.
Sub multisubstituir()
On Error Resume Next
Dim myList, myRange
Set myList = Application.InputBox(prompt:="Selecione a lista das substituições (2colunas)", _
Title:="Tabela das Substituições", Type:=8)
Set myRange = Application.InputBox(prompt:="Selecione as celulas a substituir", _
Title:="Área a Substituir", Type:=8)
For Each cel In myList.Columns(1).Cells
myRange.Replace What:=cel.Value, _
replacement:=cel.Offset(0, 1).Value, LookAt:=xlWhole
Next cel
End Sub
Conforme a imagem seguinte.