Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

Supongamos que tiene el siguiente rango de datos y desea 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?

doc delete con 1 negativo  2 doc delete con 2 negativo

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

Eliminar filas con números negativos mediante el uso de Kutools para Excel


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


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

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

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

Código de VBA: eliminar filas con números negativos

Sub Deleter()
'updatebyExtendoffice 20160303
    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 diálogo, seleccione la columna de número de la que desea encontrar los números negativos, vea la captura de pantalla:

doc delete con 3 negativo

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


flecha azul burbuja derecha Eliminar filas con números negativos mediante el uso de Kutools para Excel

Para manejar este trabajo, Kutools for Excel, Seleccionar celdas específicas la característica también puede hacer un favor, con esta utilidad, puede seleccionar las filas enteras que contienen los valores negativos en primer lugar, y luego eliminar las filas completas según lo necesite.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

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

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

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

doc delete con 4 negativo

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 Tipo específico e introduzca 0 en el cuadro de texto al lado de los criterios, ver captura de pantalla:

doc delete con 5 negativo

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

doc delete con 6 negativo  2 doc delete con 7 negativo

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


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    prakash · 2 months ago
    thanks for the delete function .. works great .. must be numeric field not just - regards
  • To post as a guest, your comment is unpublished.
    Jon White · 9 months ago
    Thanks for this!

    Is there a way of doing this with positive values too?
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      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