Saltar al contenido principal

¿Cómo encontrar y reemplazar valores mayores / menores que un valor específico en Excel?

Tal vez, hay varios datos en su hoja de trabajo, ahora, desea encontrar todas las celdas que contienen el valor mayor o menor que un número específico, y luego reemplazarlas con otro valor que necesita a la vez. La función normal de Buscar y Reemplazar no se aplica para resolver este problema, ¿tiene alguna otra buena sugerencia para hacer frente a esta tarea?

Encuentre y reemplace valores mayores / menores que un valor específico con código VBA

Encuentre y reemplace valores mayores que / menores que un valor específico con Kutools para Excel


Por ejemplo, encontraré todos los valores que sean mayores a 500 y los reemplazaré con 0.

doc reemplazar más de 1

El siguiente código de VBA puede ayudarlo a reemplazar los valores que sean mayores o menores que un valor específico en uno, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: busque y reemplace valores mayores o menores que un valor específico

Sub FindReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Value > 500 Then
        Rng.Value = 0
    End If
Next
End Sub

3. Entonces presione F5 para ejecutar este código y seleccione los datos de rango que desea reemplazar en el cuadro de aviso, vea la captura de pantalla:

doc reemplazar más de 2

4. Y luego haz clic OK, y puede ver que todos los valores superiores a 500 han sido reemplazados por 0.

doc reemplazar más de 3

Note: En el código anterior, puede cambiar las siguientes variables a su deseado.

  • Si Rng.Value > 500 Entonces
  • Valor nominal = 0

Si no está familiarizado con el código, puedo hablar sobre una herramienta útil: Kutools for Excel, Con su Seleccionar celdas específicas función, puede seleccionar rápidamente las celdas que necesita y luego reemplazarlas a la vez.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días.

Después de instalar Kutools for Excel, siga los siguientes pasos:

1. Seleccione el rango de datos que desea buscar y reemplazar.

2. Hacer clic Kutools > Seleccione > Seleccionar celdas específicas, ver captura de pantalla:

3. En la Seleccionar celdas específicas cuadro de diálogo, haga clic en Celular opción bajo Tipo de selección, y elige Más que del desplegable Tipo específico desplegable e ingrese el valor que desea usar en el cuadro de texto además Más que, ver captura de pantalla:

doc reemplazar más de 5

4. Luego haga clic OK , todas las celdas superiores a 500 se han seleccionado inmediatamente, luego ingrese el valor con el que necesita reemplazar y presione Ctrl + Enter claves juntas, todos los valores seleccionados se han reemplazado al mismo tiempo. Ver capturas de pantalla:

doc reemplazar más de 6 2 doc reemplazar más de 7

Note: En el Seleccionar celdas específicas cuadro de diálogo, puede utilizar otros criterios, como Menos que, Equivale, contiene, Y así sucesivamente.

¡Descargue y pruebe Kutools para Excel ahora!


Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

Artículos relacionados:

¿Cómo encontrar y reemplazar la coincidencia exacta en Excel?

¿Cómo reemplazar el texto con las imágenes correspondientes en Excel?

¿Cómo encontrar y reemplazar el color de relleno en Excel?

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If only there was a way to do the same without losing formulas(
This comment was minimized by the moderator on the site
It's really awesome!!! I love it!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations