¿Cómo buscar y reemplazar texto específico en cuadros de texto en Excel?
La herramienta Buscar y Reemplazar es una característica esencial para actualizar rápidamente el contenido o las fórmulas de las celdas dentro de una hoja de cálculo. Sin embargo, manejar el texto dentro de múltiples cuadros de texto puede ser un desafío si estás limitado a actualizaciones manuales. Si necesitas encontrar texto específico en los cuadros de texto y reemplazarlo de manera eficiente, este tutorial te guiará a través del uso de código VBA para realizar esta tarea en solo unos pocos pasos.
Buscar y reemplazar texto específico en múltiples cuadros de texto
Buscar y reemplazar texto específico en múltiples cuadros de texto
Puedes buscar y reemplazar texto manualmente uno por uno, pero este proceso se vuelve tedioso y consume mucho tiempo cuando se trata de múltiples cuadros de texto. El siguiente código VBA proporciona una manera eficiente de completar esta tarea de una sola vez.
1. Activa tu hoja de cálculo y mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.
Código VBA: Buscar y reemplazar texto específico en cuadros de texto de la hoja de trabajo actual
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que ingreses el texto antiguo que deseas reemplazar. Ver captura de pantalla:
4. Continúa haciendo clic en Aceptar, y en este cuadro de diálogo, escribe el nuevo valor de texto que deseas. Ver captura de pantalla:
5. Luego haz clic en el botón Aceptar, los valores antiguos han sido reemplazados con los nuevos valores que ingresaste en la hoja de trabajo actual. Ver capturas de pantalla:
 |
 |
 |
Artículos relacionados:
¿Cómo buscar y reemplazar texto en títulos de gráficos en Excel?
¿Cómo buscar y reemplazar texto dentro de comentarios en Excel?
¿Cómo cambiar varias rutas de hipervínculos a la vez en Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos