Como criar um código de macro para realizar a busca e substituição de texto no Excel?
Normalmente, usamos a função Localizar e Substituir embutida para pesquisar e substituir valores no Excel. Na verdade, você pode diretamente localizar e substituir texto no Excel com código de macro. Neste artigo, você aprenderá como criar um código de macro para realizar a busca e substituição de texto no Excel.
Crie um código de macro para realizar a busca e substituição de texto no Excel
Crie um código de macro para realizar a busca e substituição de texto no Excel
Por favor, siga os passos abaixo para criar um código de macro que realize a busca e substituição de texto no Excel.
1. Pressione 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 seguinte código VBA na janela de código.
Código VBA: Crie um código de macro para realizar a busca e substituição 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. Pressione a tecla F5 para executar o código.
4. No primeiro diálogo do Kutools for Excel, insira o texto ou valor que deseja pesquisar e clique no botão OK. Veja a captura de tela:
5. No segundo diálogo do Kutools for Excel, insira o texto ou valor pelo qual deseja substituir e clique no botão OK.
Em seguida, todos os textos especificados serão substituídos imediatamente pelo texto desejado.
Observação: Este código é aplicado à planilha ativa.
Artigos relacionados:
- Como encontrar e substituir todas as células em branco por determinado número ou texto no Excel?
- Como substituir vírgulas por novas linhas (Alt + Enter) nas células no Excel?
- Como encontrar e substituir nomes de abas de planilhas no Excel?
- Como encontrar um valor em uma célula com uma lista separada por vírgulas no Excel?
- Como encontrar a interseção de duas listas de colunas no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins