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 Sub

3. 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?