¿Cómo reemplazar varios valores simultáneamente en Excel?
Como bien sabemos, la función Buscar y reemplazar permite localizar varias celdas idénticas y sustituirlas por un valor especificado. Sin embargo, en ocasiones es necesario realizar reemplazos muchos-a-muchos de forma simultánea. Por ejemplo, dispongo de un rango de datos y deseo reemplazar todas las «manzanas» por «manzanas rojas», las «naranjas» por «naranjas verdes», los «plátanos» por «plátanos amarillos», y así sucesivamente, tal como se muestra en la captura de pantalla de la izquierda. ¿Conoce algún método eficaz para llevar a cabo esta tarea en Excel?
Reemplazar varios valores a la vez con código VBA
Si ya está cansado de reemplazar valores una y otra vez, el siguiente código VBA le permite sustituir múltiples valores por los textos que necesite, ¡todo al mismo tiempo!
1. Cree las condiciones que desee utilizar, incluyendo los valores originales y los nuevos valores. Consulte la captura de pantalla:
2. A continuación, mantenga pulsadas las teclas «ALT» + «F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
3. Haga clic en «Insertar» > «Módulo» y pegue el siguiente código en la ventana del módulo.
Código VBA: Reemplazar varios valores a la vez
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. A continuación, pulse la tecla "F5" para ejecutar este código. En el cuadro de diálogo emergente, especifique el rango de datos en el que desea reemplazar los valores por otros nuevos.
5. Haga clic en «Aceptar» y aparecerá otro cuadro de diálogo que le recordará que seleccione los criterios creados en el paso 1. Vea la captura de pantalla:
6. A continuación, haga clic en «Aceptar». Todos los valores especificados se reemplazarán por los nuevos según lo requerido.
Artículos relacionados:
¿Cómo reemplazar texto específico en un cuadro de texto?
¿Cómo reemplazar texto en los títulos de gráficos en Excel?
¿Cómo reemplazar texto dentro de los comentarios en Excel?
¿Cómo cambiar varias rutas de hipervínculos simultáneamente en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos