Saltar al contenido principal

¿Cómo eliminar filas con valores negativos en Excel?

Supongamos que tiene el siguiente rango de datos y desea eliminar todas las filas si el número es negativo en la columna B, ¿existen buenos métodos para resolver este problema en Excel?

doc eliminar con negativo 1 2 doc eliminar con negativo 2

Eliminar filas con números negativos usando el código VBA

Elimine filas con números negativos usando Kutools para Excel


flecha azul burbuja derecha Eliminar filas con números negativos usando el código VBA

El siguiente código VBA puede ayudarlo a eliminar las filas completas si hay números negativos en una columna específica, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Haga Clic en recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código VBA: elimine 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. Y luego presione F5 para ejecutar este código, en el cuadro de solicitud, seleccione la columna numérica de la que desea encontrar los números negativos, vea la captura de pantalla:

doc eliminar con negativo 3

4. Luego haga clic OK , las filas con números negativos se han eliminado a la vez.


flecha azul burbuja derecha Elimine filas con números negativos usando Kutools para Excel

Para manejar este trabajo, Kutools for Excel, Seleccionar celdas específicas La función también puede hacerte un favor, con esta utilidad, puedes seleccionar las filas completas que contienen los valores negativos en primer lugar y luego eliminar todas las filas que necesites.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. 

Después de instalar Kutools for Excel, haga lo siguiente:

1. Seleccione la columna que contiene números negativos que desea eliminar.

2. Luego haga clic Kutools > Seleccione > Seleccionar celdas específicas, ver captura de pantalla:

3. En la Seleccionar celdas específicas cuadro de diálogo, seleccione Fila completa opción en el Tipo de seleccióny luego elige Menos que del desplegable Tipo específico e introduzca 0 en el cuadro de texto junto a los criterios, vea la captura de pantalla:

doc eliminar con negativo 5

4. Luego haga clic Ok, las filas que contienen números negativos se han seleccionado a la vez, y luego haga clic en Inicio > Borrar > Eliminar filas de hojas para eliminar las filas seleccionadas según lo necesite, vea las capturas de pantalla:

doc eliminar con negativo 6 2 doc eliminar con negativo 7

Tips: También puede hacer clic derecho para seleccionar Borrar en el menú contextual para eliminar las filas seleccionadas.

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks for the delete function .. works great .. must be numeric field not just - regards
This comment was minimized by the moderator on the site
Thanks for this!

Is there a way of doing this with positive values too?
This comment was minimized by the moderator on the site
Hi, Jon,
To remove rows with positive values, you just need to apply the following code, please try.
Sub Deleter()
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations