¿Cómo eliminar filas con valores negativos en Excel?
Supongamos que tiene el siguiente rango de datos y desea eliminar la fila completa si el número en la columna B es negativo. ¿Existen métodos eficaces para resolver este problema en Excel?
 |  |  | Eliminar filas con números negativos mediante código VBA Eliminar filas con números negativos mediante Kutools para Excel |
Eliminar filas con números negativos mediante código VBA
El siguiente código VBA le permite eliminar filas completas si contienen números negativos en una columna específica. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la Ventana del módulo.
Código VBA: Eliminar filas con números negativos
Sub Deleter()
'updatebyExtendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
3. A continuación, pulse la tecla F5 para ejecutar este código. En el cuadro emergente, seleccione la columna numérica desde la que desea buscar los números negativos; consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y las filas con números negativos se eliminarán de inmediato.
Eliminar filas con números negativos mediante Kutools para Excel
Para realizar esta tarea, la función Kutools para Excel «Seleccionar celdas específicas» también puede ayudarte. Con esta utilidad, primero puedes seleccionar las filas completas que contienen valores negativos y, a continuación, eliminarlas según tus necesidades.
| Kutools para Excel:con más de 300 complementos útiles para Excel, pruébelos gratis sin limitaciones durante 30 días. |
Después de instalar Kutools para Excel, siga estos pasos:
1. Seleccione la columna que contiene los números negativos que desea eliminar.
2. A continuación, haga clic en Kutools > Seleccionar > Seleccionar celdas específicas; consulte la captura de pantalla:
3. En el cuadro de diálogo Seleccionar celdas específicas, seleccione la opción Fila completa en el campo Seleccionar tipo, elija Menor que en el menú desplegable Especificar tipo e introduzca 0 en el cuadro de texto situado junto al criterio; consulte la captura de pantalla:
4. A continuación, haga clic en Aceptar. Las filas que contienen números negativos se seleccionarán de inmediato. Luego, haga clic en Inicio > Eliminar > Eliminar filas de hoja para eliminar las filas seleccionadas según sus necesidades; consulte las capturas de pantalla:
 | |  |
Consejos： También puede hacer clic con el botón derecho y seleccionar Eliminar en el menú contextual para borrar las filas seleccionadas.
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