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

A veces, puede ser necesario eliminar filas si las celdas de una columna específica son mayores o menores que un valor determinado en Excel. Este artículo recomendará varios métodos para abordar este problema.

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

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

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

1. Presione simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. Luego copie y pegue el siguiente código VBA en la ventana de Código.

Código VBA: Eliminar filas si la celda es mayor/menor que un valor determinado 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

Nota: En el código anterior, >30000 significa que eliminará filas si las celdas son mayores que 30000 en una columna específica. Si desea eliminar filas si las celdas son menores que un valor determinado, cambie el signo > por < y luego especifique su valor.

3. Presione la tecla F5 para ejecutar el código; en el cuadro de diálogo emergente de Kutools para Excel, seleccione el rango (una sola columna) donde encontrará si las celdas en esta columna son mayores o menores que un valor determinado. Luego haga clic en el botón Aceptar. Ver captura de pantalla:

Luego, todas las filas con valores de celda mayores que 30000 en la columna D se eliminan inmediatamente.

Eliminar filas si la celda es mayor/menor que un valor determinado con Kutools para Excel

La utilidad Seleccionar Celdas Específicas de Kutools para Excel puede ayudarlo a seleccionar todas las filas con celdas mayores o menores que un valor determinado en una columna específica, y luego puede eliminar manualmente todas las filas seleccionadas de una vez.

1. Seleccione la columna en la que desea eliminar filas, luego haga clic en Kutools > Seleccionar > Seleccionar Celdas Específicas. Ver captura de pantalla:

2. En el cuadro de diálogo Seleccionar Celdas Específicas, seleccione Fila completa en la sección Tipo de selección. En la sección Tipo específico, seleccione Mayor que o Menor que en la primera lista desplegable, ingrese el valor determinado en el siguiente cuadro de texto y luego haga clic en el botón Aceptar.

3. Luego aparece un cuadro de diálogo indicando cuántas filas se han seleccionado; haga clic en el botón Aceptar. Y verá que todas las filas con valor mayor que 30000 en la columna D se seleccionan inmediatamente.

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

Eliminar filas si la celda es mayor/menor que un valor determinado con Kutoos para Excel

Además de los dos métodos anteriores, puede filtrar todas las filas con celdas mayores o menores que un valor determinado en una columna específica, y luego eliminar todas las filas filtradas con la utilidad Eliminar Filas (Visibles) y Columnas Ocultas de Kutools para Excel.

1. Seleccione el encabezado de la columna, luego haga clic en Datos > Filtro. Ver captura de pantalla:

2. Haga clic en la flecha desplegable en la columna en la que desea eliminar filas, luego haga clic en Filtros de Número > Mayor Que o Menor Que como se muestra en la siguiente captura de pantalla:

3. En el cuadro de diálogo Filtro Automático Personalizado, ingrese el número determinado después del cuadro es mayor que o es menor que, y luego haga clic en el botón Aceptar.

4. Luego, todas las filas con ciertas celdas que son mayores o menores que un valor determinado en la columna D se filtran. Puede eliminar todas las filas filtradas seleccionando los datos filtrados y luego haciendo clic en Kutools > Eliminar > Eliminar Filas (Visibles) y Columnas Ocultas. Ver captura de pantalla:

5. En el cuadro de diálogo Eliminar Filas (Visibles) y Columnas Ocultas, asegúrese de que la opción En Rango Seleccionado esté seleccionada en la lista desplegable Buscar en, seleccione Filas en la sección Tipo de eliminación, especifique la opción Filas visibles en la sección Tipo detallado, y finalmente haga clic en el botón Aceptar.

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

Artículos relacionados:

• ¿Cómo eliminar todas las filas debajo de una fila determinada o de la celda activa en Excel?
• ¿Cómo eliminar todas las filas excepto la primera fila de encabezado en Excel?