Como criar um código de macro para conseguir localizar e substituir texto no Excel?
Normalmente, estamos usando a função embutida Localizar e Substituir para pesquisar e substituir valores no Excel. Na verdade, você pode localizar e substituir texto no Excel diretamente com o código de macro. Neste artigo, você aprenderá a criar um código de macro para localizar e substituir texto no Excel.
Crie um código de macro para encontrar e substituir texto no Excel
Crie um código de macro para encontrar e substituir texto no Excel
Faça o seguinte para criar um código de macro para encontrar e substituir texto no Excel.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a janela de código.
Código VBA: crie um código de macro para localizar e substituir 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 Sub
3. aperte o F5 chave para executar o código.
4. No primeiro Kutools for Excel caixa de diálogo, digite o texto ou valor que você irá pesquisar e clique no botão OK botão. Veja a imagem:
5. Na segunda Kutools for Excel caixa de diálogo, insira o texto ou valor que você irá substituir e clique no OK botão.
Em seguida, todos os textos especificados são substituídos pelo texto desejado imediatamente.
Note: Este código é aplicado à planilha ativa.
Artigos relacionados:
- Como localizar 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) em células no Excel?
- Como localizar e substituir nomes de guias de planilhas no Excel?
- Como encontrar valor em uma célula com lista separada por vírgulas no Excel?
- Como encontrar a interseção de duas listas de colunas no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!