Gå til hovedindhold

Hvordan slettes rækker, hvis cellen er større / mindre end en bestemt værdi i Excel?

Nogle gange skal du muligvis slette rækker, hvis celler i en bestemt kolonne er større eller mindre end en bestemt værdi i Excel. Denne artikel vil anbefale flere metoder til at håndtere dette problem.

Slet rækker, hvis cellen er større / mindre end en bestemt værdi med VBA-kode
Slet rækker, hvis cellen er større / mindre end en bestemt værdi med Kutools til Excel
Slet rækker, hvis cellen er større / mindre end en bestemt værdi med Kutoos til Excel


Slet rækker, hvis cellen er større / mindre end en bestemt værdi med VBA-kode

Antag, at du vil slette hele rækker, hvis celle i kolonne D er større eller mindre end en bestemt værdi i Excel. Du kan køre følgende VBA-kode for at opnå det.

1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > modul. Kopier og indsæt derefter nedenstående VBA-kode i kodevinduet.

VBA-kode: Slet rækker, hvis cellen er større / mindre end en bestemt værdi i Excel

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Bemærk: I ovenstående kode betyder> 30000, at du vil slette rækker, hvis celler er større end 30000 i en bestemt kolonne. Hvis du vil slette rækker, hvis celler er mindre end en bestemt værdi, skal du ændre tegnet> til <og derefter angive din værdi.

3. Trykke F5 nøgle til at køre koden, når den dukker op Kutools til Excel dialogboks, skal du vælge det interval (enkelt kolonne), som du finder, hvis celler i denne kolonne er større eller mindre end en bestemt værdi. Og klik derefter på OK knap. Se skærmbillede:

Derefter slettes alle rækker med celleværdi større end 30000 i kolonne D med det samme.


Slet rækker, hvis cellen er større / mindre end en bestemt værdi med Kutools til Excel

Vælg specifikke celler nytte af Kutools til Excel kan hjælpe dig med at vælge alle rækker med celler, der er større eller mindre end en bestemt værdi i en bestemt kolonne, og derefter kan du manuelt slette alle valgte rækker på én gang.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. Vælg den kolonne, du vil slette rækker ud fra, og klik derefter på Kutools > Type > Vælg specifikke celler. Se skærmbillede:

2. i Vælg specifikke celler dialogboks, vælg venligst Hele rækken i Valgtype afsnit. I Specifik type sektion, vælg Større end or Mindre end Fra den første rulleliste skal du indtaste den bestemte værdi i den næste tekstboks og derefter klikke på OK .

3. Derefter dukker en dialogboks op for at fortælle dig, hvor mange rækker der er valgt. Klik på OK knap. Og du kan se alle rækker med en værdi større end 30000 i kolonne D vælges med det samme.

4. Højreklik på en af ​​de valgte rækker, og klik derefter på Slette fra højreklikmenuen. Og alle valgte rækker slettes.

  Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Slet rækker, hvis cellen er større / mindre end en bestemt værdi med Kutoos til Excel

Ud over de to ovenstående metoder kan du filtrere alle rækker ud med celler, der er større eller mindre end en bestemt værdi i en bestemt kolonne, og derefter fjerne alle filtrerede rækker med Slet skjulte (synlige) rækker og søjler nytte af Kutools til Excel.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. Vælg kolonneoverskriften, og klik derefter på data > filtre. Se skærmbillede:

2. Klik på rullemenuen i den kolonne, du vil slette rækker baseret på, og klik derefter på Antal filtre > Bedre end or Mindre end som nedenstående skærmbillede:

3. i Brugerdefineret autofilter dialogboksen, skal du indtaste det bestemte antal efter at boksen er større end eller er mindre end, og derefter klikke på OK .

4. Derefter filtreres alle rækker med bestemte celler, der er større eller mindre end en bestemt værdi i kolonne D. Du kan slette alle filtrerede rækker ved at vælge de filtrerede data og derefter klikke på Kutools > Slette > Slet skjulte (synlige) rækker og kolonner. Se skærmbillede:

5. i Slet skjulte (synlige) rækker og kolonner dialogboks, skal du sørge for, at I valgt interval er valgt i Kig ind rulleliste, vælg Rækker i Slet type sektion skal du angive indstillingen Synlige rækker i Detaljeret type sektion, og klik til sidst på OK .

6. Derefter slettes alle synlige rækker i det valgte område med det samme, du kan annullere filteret ved at klikke på data > filtre.

  Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Slet rækker, hvis cellen er større / mindre end en bestemt værdi med Kutools til Excel


Relaterede artikler:

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 (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from İstanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations