Gå til hovedindhold

Hvordan slettes rækker med negative værdier i Excel?

Antag, du har følgende datainterval, og du vil slette hele rækkerne, hvis tallet er negativt i kolonne B, er der nogen gode metoder til at løse dette problem i Excel?

doc slet med negativ 1 2 doc slet med negativ 2

Slet rækker med negative tal ved hjælp af VBA-kode

Slet rækker med negative tal ved hjælp af Kutools til Excel


pil blå højre boble Slet rækker med negative tal ved hjælp af VBA-kode

Følgende VBA-kode kan hjælpe dig med at slette hele rækkerne, hvis der er negative tal i en bestemt kolonne, skal du gøre som følger:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Slet rækker med negative tal

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. Og tryk derefter på F5 nøgle til at udføre denne kode, i promptboksen skal du vælge den talekolonne, som du vil finde de negative tal fra, se skærmbillede:

doc slet med negativ 3

4. Klik derefter på OK knappen, er rækkerne med negative tal slettet på én gang.


pil blå højre boble Slet rækker med negative tal ved hjælp af Kutools til Excel

For at håndtere dette job, Kutools til Excel's Vælg specifikke celler funktion kan også gøre dig en tjeneste, med dette værktøj kan du først vælge hele rækkerne, der indeholder de negative værdier, og derefter slette hele rækkerne efter behov.

Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. 

Efter installation Kutools til Excelskal du gøre som følger:

1. Vælg kolonnen, der indeholder negative tal, som du vil slette.

2. Klik derefter på Kutools > Type > Vælg specifikke celler, se skærmbillede:

3. I Vælg specifikke celler dialogboksen, vælg Hele rækken valgmulighed i Valgtype, og vælg derefter Mindre end fra Specifik type og indtast 0 i tekstboksen ved siden af ​​kriterierne, se skærmbillede:

doc slet med negativ 5

4. Klik derefter på Ok, de rækker, der indeholder negative tal, er valgt på én gang, og klik derefter på Home > Slette > Slet arkrækker for at slette de valgte rækker efter behov, se skærmbilleder:

doc slet med negativ 6 2 doc slet med negativ 7

Tips: Du kan også højreklikke for at vælge Slette fra kontekstmenuen for at slette de valgte rækker.

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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