Como substituir vários valores de uma só vez no Excel?
Como todos sabemos, a função Localizar e Substituir permite encontrar várias células idênticas e substituí-las por um valor especificado. Contudo, por vezes é necessário realizar substituições muitos-para-muitos de forma simultânea. Por exemplo, tenho um intervalo de dados e pretendo substituir todas as maçãs por maçãs vermelhas, laranjas por laranjas verdes, bananas por bananas amarelas e assim sucessivamente, tal como ilustrado na imagem à esquerda. Existe algum método eficaz para realizar esta tarefa no Excel?
Substituir vários valores de uma só vez com código VBA
Se já se cansou de substituir valores repetidamente, o código VBA seguinte permite-lhe substituir múltiplos valores pelos textos pretendidos de uma só vez.
1. Defina as condições que pretende utilizar, indicando os valores originais e os respetivos novos valores. Consulte a imagem:
2. Em seguida, prima as teclas «ALT» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.
3. Clique em «Inserir» > «Módulo» e cole o código seguinte na janela do módulo.
Código VBA: Substituir vários valores de uma só vez
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Em seguida, prima a tecla "F5" para executar este código. Na caixa de diálogo que aparece, indique o intervalo de dados onde pretende substituir os valores pelos novos.
5. Clique em «OK» e surge outra caixa de diálogo a pedir-lhe que selecione os critérios criados no passo 1. Veja a imagem:
6. Depois, clique em «OK». Todos os valores especificados foram substituídos pelos novos, tal como pretendido.
Artigos relacionados:
Como substituir texto específico numa Caixa de Texto?
Como substituir texto em títulos de gráficos no Excel?
Como substituir texto dentro de comentários no Excel?
Como alterar vários caminhos de hiperligação de uma só vez no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos