¿Cómo eliminar filas con valores negativos en Excel?
Supongamos que tienes el siguiente rango de datos y deseas eliminar las filas completas si el número es negativo en la columna B, ¿hay algún buen método para resolver este problema en Excel?
 |  |  | Eliminar filas con números negativos usando código VBA Eliminar filas con números negativos usando Kutools para Excel |
Eliminar filas con números negativos usando código VBA
El siguiente código VBA puede ayudarte a eliminar las filas completas si hay números negativos en una columna específica. Por favor, sigue los siguientes pasos:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega 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. Luego, presiona la tecla F5 para ejecutar este código. En el cuadro de diálogo emergente, selecciona la columna de números donde deseas encontrar los números negativos, como se muestra en la captura de pantalla:
4. Luego haz clic en el botón Aceptar, las filas con números negativos se han eliminado de inmediato.
Eliminar filas con números negativos usando Kutools para Excel
Para manejar esta tarea, la función Seleccionar celdas específicas de Kutools para Excel también puede ayudarte. Con esta utilidad, puedes seleccionar primero las filas completas que contienen valores negativos y luego eliminar las filas enteras según sea necesario.
| Kutools para Excel : con más de 300 complementos útiles para Excel, prueba gratuita sin limitaciones durante 30 días. |
Después de instalar Kutools para Excel, por favor, sigue los siguientes pasos:
1. Selecciona la columna que contiene los números negativos que deseas eliminar.
2. Luego haz clic en Kutools > Seleccionar > Seleccionar celdas específicas, ver captura de pantalla:
3. En el cuadro de diálogo Seleccionar celdas específicas, selecciona la opción Fila completa en el tipo de selección, y luego elige Menor que en el tipo específico e introduce 0 en el cuadro de texto junto al criterio, ver captura de pantalla:
4. Luego haz clic en Aceptar, las filas que contienen números negativos se han seleccionado de inmediato, y luego haz clic en Inicio > Eliminar > Eliminar filas de la hoja para eliminar las filas seleccionadas según sea necesario, ver capturas de pantalla:
 | |  |
Consejos： También puedes hacer clic derecho para seleccionar Eliminar desde el menú contextual para eliminar las filas seleccionadas.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos