¿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
Encuentre y reemplace valores mayores / menores que un valor específico con código VBA
Por ejemplo, encontraré todos los valores que sean mayores a 500 y los reemplazaré con 0.
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:
4. Y luego haz clic OK, y puede ver que todos los valores superiores a 500 han sido reemplazados por 0.
Note: En el código anterior, puede cambiar las siguientes variables a su deseado.
- Si Rng.Value > 500 Entonces
- Valor nominal = 0
Encuentre y reemplace valores mayores que / menores que un valor específico con Kutools para Excel
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:
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:
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!
Demostración: encuentre y reemplace valores mayores / menores que un valor específico con Kutools para Excel
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
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...
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!