Saltar al contenido principal

¿Cómo eliminar filas si la celda es mayor / menor que un cierto valor en Excel?

A veces, es posible que deba eliminar filas si las celdas de una columna específica son mayores o menores que un cierto valor en Excel. Este artículo recomendará varios métodos para solucionar este problema.

Elimine filas si la celda es mayor / menor que un cierto valor con código VBA
Elimine filas si la celda es mayor / menor que un cierto valor con Kutools para Excel
Elimine filas si la celda es mayor / menor que un cierto valor con Kutoos para Excel


Elimine filas si la celda es mayor / menor que un cierto valor con código VBA

Supongamos que desea eliminar filas enteras si la celda de la columna D es mayor o menor que cierto valor en Excel. Puede ejecutar el siguiente código VBA para lograrlo.

1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > módulo. Luego copie y pegue el código VBA a continuación en la ventana Código.

Código de VBA: elimine filas si la celda es mayor / menor que un cierto valor en Excel

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Note: En el código anterior,> 30000 significa que eliminará filas si las celdas son mayores que 30000 en una columna especificada. Si desea eliminar filas si las celdas tienen menos de cierto valor, cambie el signo> a <y luego especifique su valor.

3. Prensa F5 clave para ejecutar el código, en la ventana emergente Kutools for Excel cuadro de diálogo, seleccione el rango (columna única) que encontrará si las celdas de esta columna son mayores o menores que un cierto valor. Y luego haga clic en el OK botón. Ver captura de pantalla:

Luego, todas las filas con un valor de celda superior a 30000 en la columna D se eliminan inmediatamente.


Elimine filas si la celda es mayor / menor que un cierto valor con Kutools para Excel

La Seleccionar celdas específicas utilidad de Kutools for Excel puede ayudarlo a seleccionar todas las filas con celdas mayores o menores que un cierto valor en una columna especificada, y luego puede eliminar manualmente todas las filas seleccionadas a la vez.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Seleccione la columna en la que desea eliminar filas y haga clic en Kutools > Seleccione > Seleccionar celdas específicas. Ver captura de pantalla:

2. En el Seleccionar celdas específicas cuadro de diálogo, seleccione Fila completa existentes Tipo de selección sección. En el Tipo específico sección, seleccionar Más que or Menos que de la primera lista desplegable, ingrese el valor determinado en el siguiente cuadro de texto, y luego haga clic en el OK del botón.

3. Luego aparece un cuadro de diálogo para indicarle cuántas filas están seleccionadas, haga clic en el OK botón. Y puede ver que todas las filas con un valor superior a 30000 en la columna D se seleccionan inmediatamente.

4. Haga clic derecho en una de las filas seleccionadas, luego haga clic en Borrar desde el menú contextual. Y todas las filas seleccionadas se eliminan.

  Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Elimine filas si la celda es mayor / menor que un cierto valor con Kutoos para Excel

Además de los dos métodos anteriores, puede filtrar todas las filas con celdas mayores o menores que un cierto valor en una columna especificada, y luego eliminar todas las filas filtradas con el Eliminar filas y columnas ocultas (visibles) utilidad de Kutools for Excel.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Seleccione el encabezado de la columna y haga clic en Datos > Filtrar. Ver captura de pantalla:

2. Haga clic en la flecha desplegable de la columna en la que eliminará las filas y, a continuación, haga clic en Filtros de números > Mas grande que or Menos que como la siguiente captura de pantalla:

3. En el Autofiltro personalizado cuadro de diálogo, ingrese el número determinado después del cuadro es mayor que o es menor que, y luego haga clic en el OK del botón.

4. Luego, todas las filas con ciertas celdas que son mayores o menores que un cierto valor en la columna D se filtran. Puede eliminar todas las filas filtradas seleccionando los datos filtrados y luego haga clic en Kutools > Borrar > Eliminar filas y columnas ocultas (visibles). Ver captura de pantalla:

5. En el Eliminar filas y columnas ocultas (visibles) cuadro de diálogo, asegúrese de En rango seleccionado La opción está seleccionada en el Pase a ver lista desplegable, seleccione filas existentes Eliminar tipo sección, especifique la opción Filas visibles en el Tipo detallado sección, y finalmente haga clic en el OK del botón.

6. Luego, todas las filas visibles en el rango seleccionado se eliminan inmediatamente. Puede cancelar el filtro haciendo clic en Datos > Filtrar.

  Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Elimine filas si la celda es mayor / menor que un cierto valor con Kutools para Excel


Artículos relacionados:

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)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from İstanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations