Como criar um código de macro para executar a função Localizar e Substituir de texto no Excel?
Normalmente, utilizamos a função incorporada Localizar e Substituir para procurar e substituir valores no Excel. Na verdade, é possível realizar diretamente essa operação com código de macro. Neste artigo, vai aprender a criar uma macro para localizar e substituir texto no Excel.
Criar um código de macro para realizar a Localizar e Substituir de texto no Excel
Criar um código de macro para realizar a Localizar e Substituir de texto no Excel
Siga os passos abaixo para criar um código de macro que execute a função Localizar e Substituir no Excel.
1. Prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela de código.
Código VBA: Criar um código de macro para realizar a Localizar e Substituir de texto no Excel
Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
Dim xFind As String
Dim xRep As String
Dim xRg As Range
On Error Resume Next
Set xRg =Cells
xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
If xFind = "False" Or xRep = "False" Then Exit Sub
xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub3. Prima a tecla F5 para executar o código.
4. Na primeira caixa de diálogo Kutools para Excel, introduza o texto ou valor que pretende procurar e, em seguida, clique no botão OK. Veja a imagem:
5. Na segunda caixa de diálogo Kutools para Excel, introduza o texto ou valor pelo qual pretende substituir e clique no botão OK.
De seguida, todos os textos especificados são substituídos imediatamente pelo texto pretendido.
Nota: Este código aplica-se à folha de cálculo ativa.
Artigos relacionados:
- Como localizar e substituir todas as células em branco por um número ou texto específico no Excel?
- Como substituir vírgulas por quebras de linha (Alt + Enter) nas células do Excel?
- Como localizar e substituir os nomes dos separadores das folhas no Excel?
- Como localizar um valor numa célula que contém uma lista separada por vírgulas no Excel?
- Como encontrar a interseção de duas colunas 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