¿Cómo eliminar filas si la celda es mayor o menor que un valor determinado en Excel?
A veces puede que necesite eliminar filas en Excel cuando las celdas de una columna especificada sean mayores o menores que un valor determinado. Este artículo le recomienda varios métodos para resolver 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 Kutools 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 correspondiente en la columna D es mayor o menor que un valor determinado en Excel. Para ello, puede ejecutar el siguiente código VBA.
1. Pulse 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. A continuación, 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 SubNota: En el código anterior, >30000 significa que se eliminarán las filas si las celdas son mayores que 30000 en una columna especificada. Si desea eliminar filas cuando las celdas sean menores que un valor determinado, cambie el signo > por < e indique su valor.
3. Pulse la tecla F5 para ejecutar el código. En el cuadro de diálogo emergente Kutools para Excel, seleccione el rango (una sola columna en la que comprobará si las celdas son mayores o menores que un valor determinado). A continuación, haga clic en el botón Aceptar. Vea la captura de pantalla:
Así, se eliminan de inmediato todas las filas cuyo valor en la columna D sea superior a 30 000.
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 le permite seleccionar todas las filas cuyas celdas sean mayores o menores que un valor determinado en una columna especificada; a continuación, podrá eliminar manualmente todas las filas seleccionadas de una sola vez.
1. Seleccione la columna en la que basará la eliminación de filas y, a continuación, haga clic en Kutools > Seleccionar > Seleccionar celdas específicas. Vea la captura de pantalla:
2. En el cuadro de diálogo Seleccionar celdas específicas, selecciona Fila completa en la sección Seleccionar tipo. En la sección Especificar tipo, elige Mayor que o Menor que en la primera lista desplegable, introduce el valor deseado en el cuadro de texto siguiente y, a continuación, haz clic en el botón Aceptar.
3. A continuación, aparecerá un cuadro de diálogo indicando cuántas filas se han seleccionado; haga clic en el botón Aceptar. Verá que, de inmediato, se seleccionan todas las filas con un valor mayor que 30000 en la columna D.
4. Haga clic con el botón derecho en una de las filas seleccionadas y, a continuación, haga clic en Eliminar en el menú contextual. Así se eliminarán todas las filas seleccionadas.
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Eliminar filas si la celda es mayor/menor que un valor determinado con Kutools para Excel
Además de los dos métodos anteriores, puede filtrar todas las filas cuyas celdas sean mayores o menores que un valor determinado en una columna especificada y, a continuación, eliminar todas las filas filtradas con la utilidad Eliminar filas y columnas ocultas (visibles) de Kutools para Excel.
1. Seleccione el encabezado de la columna y, a continuación, haga clic en Datos > Filtro. Vea la captura de pantalla:
2. Haga clic en la flecha desplegable de la columna en la que basará la eliminación de 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 personalizado, introduzca el número deseado en el campo situado junto a «es mayor que» o «es menor que» y, a continuación, haga clic en el botón Aceptar.
4. Entonces, se filtran todas las filas cuyas celdas en la columna D sean mayores o menores que un valor determinado. Para eliminar todas las filas filtradas, seleccione los datos visibles y haga clic en Kutools > Eliminar > Eliminar filas/columnas ocultas (visibles). Vea la captura de pantalla:
5. En el cuadro de diálogo Eliminar filas/columnas ocultas (visibles), asegúrese de que la opción 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. Entonces, se eliminan inmediatamente todas las filas visibles del rango seleccionado. Puede quitar el filtro haciendo clic en Datos > Filtro.
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Artículos relacionados:
- ¿Cómo eliminar todas las filas por 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?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos