¿Cómo crear un código de macro para lograr buscar y reemplazar texto en Excel?

Normalmente, utilizamos la función Buscar y Reemplazar incorporada para buscar y reemplazar valores en Excel. De hecho, puedes buscar y reemplazar texto directamente en Excel con un código de macro. En este artículo, aprenderás cómo crear un código de macro para buscar y reemplazar texto en Excel.

Crear un código de macro para buscar y reemplazar texto en Excel

Crear un código de macro para buscar y reemplazar texto en Excel

Por favor, sigue los siguientes pasos para crear un código de macro que permita buscar y reemplazar texto en Excel.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia el siguiente código VBA en la ventana de código.

Código VBA: Crear un código de macro para buscar y reemplazar texto en 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. Presiona la tecla F5 para ejecutar el código.

4. En el primer cuadro de diálogo de Kutools para Excel, introduce el texto o valor que deseas buscar y luego haz clic en el botón Aceptar. Ver captura de pantalla:

5. En el segundo cuadro de diálogo de Kutools para Excel, introduce el texto o valor que deseas reemplazar y haz clic en el botón Aceptar.

Luego, todos los textos especificados se reemplazan inmediatamente por el texto deseado.

Nota: Este código se aplica a la hoja de cálculo activa.

Artículos relacionados:

• ¿Cómo encontrar y reemplazar todas las celdas en blanco con cierto número o texto en Excel?
• ¿Cómo reemplazar comas con saltos de línea (Alt + Enter) en las celdas en Excel?
• ¿Cómo encontrar y reemplazar nombres de pestañas de hojas en Excel?
• ¿Cómo encontrar un valor en una celda con una lista separada por comas en Excel?
• ¿Cómo encontrar la intersección de dos listas de columnas en Excel?