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.
