Note: The other languages of the website are Google-translated. Back to English

¿Cómo encontrar y reemplazar varios valores a la vez en Excel?

doc multiple find reemplazar 1

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


flecha azul burbuja derecha 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:

doc multiple find reemplazar 2

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.

doc multiple find reemplazar 3

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:

doc multiple find reemplazar 4

6. Luego haga clic OK, todos los valores específicos se han reemplazado con los nuevos valores que necesita inmediatamente.

doc multiple find reemplazar 5


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.
pestaña kte 201905

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!
officetab parte inferior

 

Comentarios (136)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Esto no funcionó para mí. Estoy usando Excel 2010. Me solicitó el rango original y el nuevo rango luego falló sin mensajes. Nada fue reemplazado. Continuaré buscando una manera de hacer esto.
Este comentario fue minimizado por el moderador en el sitio
Por favor, ignore mi último comentario. lo estaba haciendo mal ¡Funcionó bien!
Este comentario fue minimizado por el moderador en el sitio
[quote] Por favor ignore mi último comentario. lo estaba haciendo mal ¡Funcionó bien!por Ken Long[/quote] No me funciona. ¿Cómo lo estabas haciendo mal? Tengo cero conocimiento de VBA.
Este comentario fue minimizado por el moderador en el sitio
Hola, intenté usar esta macro para traducir medidas. Línea a traducir: Cuentas Medida aproximada: 11/16 pulgadas de ancho Valores de reemplazo: 1/32 0,794 mm 1/16 1,588 mm . . . 11/16 17,463 mm. . . 1/1 25,400 mm Línea de resultado: Cuentas Medida aproximada: 11,588 mm El ancho en pulgadas es incorrecto Problema: El código usa un valor de 1/16 y lo reemplaza ¿Cómo puedo solucionar esto? (Si uso LookAt:=xlWhole en otra macro, no obtengo ningún resultado)
Este comentario fue minimizado por el moderador en el sitio
Hola, gracias. ¿Puedo distinguir entre mayúsculas y minúsculas?
Este comentario fue minimizado por el moderador en el sitio
¡Dios mío, soy testigo de Jesús aquí!
Este comentario fue minimizado por el moderador en el sitio
Hola, he intentado utilizar este código reemplazando varios números con el texto correspondiente. Tengo un gran conjunto de datos que van desde 1 -> 112000, pero cuando trato de convertir 1 a su valor de cadena correspondiente (por ejemplo, Apple), lo traducirá a cada 1 numérico en la columna. Por lo tanto, 112000 se generará como AppleAppleOrange000. ¿Hay alguna manera en este proceso de Kutools, como la herramienta buscar/reemplazar en Excel, para buscar/reemplazar casos de coincidencia específicos?
Este comentario fue minimizado por el moderador en el sitio
Debe agregar el siguiente parámetro: MatchCase:=True Entonces, por ejemplo, agréguelo a la siguiente línea: InputRng.Replace what:=Rng.Value, replace:=Rng.Offset(0, 1).Value, MatchCase:= Verdadero Esto buscará y reemplazará solo los elementos que MatchCase en el rango que ha seleccionado.
Este comentario fue minimizado por el moderador en el sitio
¿Puedes reescribir el código para asegurarte de que lo hicimos bien?
Este comentario fue minimizado por el moderador en el sitio
No funcionó para mí, ayuda a reescribir el código, por favor
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna manera de establecer por defecto el rango original en 'Tab1'? $ 4: $ 42
Este comentario fue minimizado por el moderador en el sitio
¡Trabajado como un encanto! Gracias por el código y las instrucciones detalladas... Me has salvado dos días... ¡Dios te bendiga!
Este comentario fue minimizado por el moderador en el sitio
FORMATO ORIGINAL: 1 in ID X 2-1/2 in OD X 40 in Long 1 in ID X 2-1/2 in OD X 10 in Long 1 in ID X 2-1/2 in OD X 20 in Long 1 in ID X 2-1/2 in OD X 10 in Long 9-1/2 in ID X 14 in OD X 12 in Long FORMATO REQUERIDO: ID 1 x OD 2-1/2 x LG 40 IN ID 1 x OD 2- 1/2 x LG 10 IN ID 1 x OD 2-1/2 x LG 20 IN ID 1 x OD 2-1/2 x LG 10 IN ID 9-1/2 x OD 14 x LG 12 IN POR FAVOR DÍGAME FORMULARIO EL EJEMPLO DADO, CÓMO REEMPLAZAR EL FORMATO ORIGINAL AL ​​FORMATO REQUERIDO EN EXCEL
Este comentario fue minimizado por el moderador en el sitio
gracias me ayudo
Este comentario fue minimizado por el moderador en el sitio
La macro no funciona para la coincidencia exacta. Como si hubiera dos categorías ABC y ABC 2. Busque y reemplace ABC con RRR y ABC 2 con TTT para que Macro cambie ABC 2 a RRR 2 en lugar de TTT.
Este comentario fue minimizado por el moderador en el sitio
Primero reemplace ABC 2 con TTT y luego ABC con RRR
Este comentario fue minimizado por el moderador en el sitio
En "Rango original", muestra $ A $ 2: $ A $ 10, lo que sugiere que está dentro de una sola hoja. ¿Cómo puedo seleccionar todo el libro de trabajo aquí?
Este comentario fue minimizado por el moderador en el sitio
¡¡¡Guau!!! ¡Muchas gracias! Funcionó como una joya.
Este comentario fue minimizado por el moderador en el sitio
¡Funciona como el encanto! Muchas gracias :D (Y)
Este comentario fue minimizado por el moderador en el sitio
Usé el código anterior para reemplazar números, pero tanto el 11 como el 1 están siendo reemplazados.
Este comentario fue minimizado por el moderador en el sitio
Sub MultiFindNReplace() 'Actualizar 20140722 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) Establezca ReplaceRng = Application.InputBox("Replace Range:", xTitleId, Type:=8) Application.ScreenUpdating = False para cada Rng en ReplaceRng.Columns(1).Cells InputRng.Replace what:=Rng.Value, reemplazo:=Rng.Offset(0, 1).Valor, mirar:=xlwhole Next Application.ScreenUpdating = True End Sub
Este comentario fue minimizado por el moderador en el sitio
¡¡Sí!! Gracias por este código, funcionó de maravilla.
Este comentario fue minimizado por el moderador en el sitio
Esto tampoco funciona cuando se intenta reemplazar una columna de valores numéricos con otros valores numéricos de la tabla dinámica. Esto es lo que obtengo por tratar de hacer algo simple para automatizar cosas en Excel spreadshit.
Este comentario fue minimizado por el moderador en el sitio
Gracias. Está funcionando muy bien.
Este comentario fue minimizado por el moderador en el sitio
Tengo el mismo problema en el que si 2 nombres son similares, por ejemplo, si quisiera reemplazar PROFESOR con 1 y ASISTENCIA DEL PROFESOR con 2, reemplazaría PROFESOR con 1 y ASISTENCIA DEL PROFESOR con 1 ASISTENCIA. ¿Cómo haría para reemplazar la frase EXACTA?
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias. Fue bastante útil y me ahorró 1 hora de trabajo.
Este comentario fue minimizado por el moderador en el sitio
Tengo dos columnas, la primera columna es la lista en el número 1.... 1,2,3,... Segunda columna con la lista de cadenas. En lugar de reemplazar el valor de 22,23 con valor de cadena. Lo reemplaza con cadenas de 12 y 1. ¿Alguien sabe cómo ordenar esto?
Este comentario fue minimizado por el moderador en el sitio
Tengo 3 columnas como se muestra a continuación, 1 multímetro 2 lámpara de prueba 3 ohmímetro 4 probador de resistencia 5 lazo de falla 12 probador RCD 24 RCD portátil 13 cable de extensión La tercera columna tiene el número 1,2...50. Hay alrededor de 36000 filas. Está reemplazando 12 con valores de la fila 1 y 2 en lugar de 12. ¿Alguien sabe cómo solucionarlo?
No hay comentarios publicados aquí todavía
Ver más
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL