¿Cómo crear un código de macro para lograr buscar y reemplazar texto en Excel?
Normalmente, usamos la función integrada Buscar y reemplazar para buscar y reemplazar valores en Excel. En realidad, puede buscar y reemplazar texto en Excel directamente con código de macro. En este artículo, aprenderá a crear un código de macro para lograr buscar y reemplazar texto en Excel.
Cree un código de macro para lograr buscar y reemplazar texto en Excel
Cree un código de macro para lograr buscar y reemplazar texto en Excel
Haga lo siguiente para crear un código de macro para lograr buscar y reemplazar texto en Excel.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el código de VBA a continuación en la ventana de código.
Código de VBA: cree un código de macro para lograr 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. presione el F5 clave para ejecutar el código.
4. En el primero Kutools for Excel cuadro de diálogo, ingrese el texto o valor que buscará y luego haga clic en el OK botón. Ver captura de pantalla:
5. En el segundo Kutools for Excel cuadro de diálogo, ingrese el texto o valor que reemplazará y haga clic en el OK del botón.
Luego, todos los textos especificados se reemplazan con el texto deseado inmediatamente.
Note: Este código se aplica a la hoja de trabajo 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 las comas con nuevas líneas (Alt + Enter) en celdas en Excel?
- ¿Cómo encontrar y reemplazar los nombres de las pestañas de las hojas en Excel?
- ¿Cómo encontrar 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?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!