¿Cómo encontrar y reemplazar varios valores a la vez en Excel?
Como todos sabemos, podemos usar la función Buscar y reemplazar para encontrar varias celdas iguales y reemplazarlas con un valor que necesite. Pero a veces, es necesario aplicar un reemplazo de varios a varios simultáneamente. Por ejemplo, tengo un rango de datos, y ahora quiero reemplazar todas las manzanas por manzanas rojas, naranjas por naranjas verdes, plátanos por plátanos amarillos, etc., como se muestra en las siguientes capturas de pantalla, ¿tiene alguna buena idea para resolver esta tarea en ¿Sobresalir?
Encuentre y reemplace múltiples valores a la vez con código VBA
Encuentre y reemplace múltiples valores a la vez con código VBA
Si está cansado de buscar y reemplazar los valores una y otra vez, el siguiente código VBA puede ayudarlo a reemplazar varios valores con los textos necesarios a la vez.
1. Cree las condiciones que desee utilizar y que contengan los valores originales y los nuevos. Ver captura de pantalla:
2. Luego mantenga presionado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para Aplicaciones.
3. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana Módulo.
Código de VBA: busque y reemplace 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. Entonces presione F5 clave para ejecutar este código, en el cuadro emergente, especifique el rango de datos en el que desea que se reemplacen los valores con nuevos valores.
5. Hacer clic OK, y se muestra otro cuadro de aviso para recordarle que seleccione los criterios que creó en el paso 1. Vea la captura de pantalla:
6. Luego haga clic OK, todos los valores específicos se han reemplazado con los nuevos valores que necesita inmediatamente.
Artículos relacionados:
¿Cómo buscar y reemplazar texto específico en cuadros de texto?
¿Cómo encontrar y reemplazar texto en títulos de gráficos en Excel?
¿Cómo encontrar y reemplazar texto dentro de los comentarios en Excel?
¿Cómo cambiar varias rutas de hipervínculo a la vez en Excel?
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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!
