Macro para múltiplas substituições no Excel 2013

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.

Flash Fill no Excel 2013

Flash Fill, é a nova opção inteligente de preenchimento de dados em colunas. É uma das novidades do Microsoft Excel 2013. Com certeza, nos vai poupar muitas horas de trabalho.
Aproveito também para mostrar o novo ambiente de trabalho do Excel 2013.
Vou utilizar este ficheiro (Welcome to Excel 2013), se desejar acompanhar este artigo, pode transferir o ficheiro sem qualquer restrição.

Esta funcionalidade é muito interessante. Parece mesmo que adivinha o que se pretende. Senão vejamos, na folha (1. Flash Fill-texto), temos na coluna B um conjunto de email's aos quais pretendemos utilizar o primeiro nome. Experimente digitar na célula C5 o nome Nancy, na célula C6, ao começar a escrever surgirá uma lista "fantasma" com a lógica aplicada à célula de cima. Simplesmente clique em Enter para aceitar a lista proposta.

Experimente outros dados como o sobrenome ou o domínio de cada email.