Hoppa till huvudinnehåll

Hur tar jag bort rader om cellen är större / mindre än ett visst värde i Excel?

Ibland kan du behöva ta bort rader om celler i en viss kolumn är större eller mindre än ett visst värde i Excel. Denna artikel kommer att rekommendera flera metoder för att hantera detta problem.

Ta bort rader om cellen är större / mindre än ett visst värde med VBA-kod
Ta bort rader om cellen är större / mindre än ett visst värde med Kutools för Excel
Ta bort rader om cellen är större / mindre än ett visst värde med Kutoos för Excel


Ta bort rader om cellen är större / mindre än ett visst värde med VBA-kod

Antag att du vill ta bort hela rader om cell i kolumn D är större eller mindre än ett visst värde i Excel. Du kan köra följande VBA-kod för att uppnå den.

1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > modul. Kopiera och klistra sedan in nedanstående VBA-kod i kodfönstret.

VBA-kod: Radera rader om cellen är större / mindre än ett visst värde 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

Anmärkningar: I ovanstående kod betyder> 30000 att du kommer att radera rader om celler är större än 30000 i en angiven kolumn. Om du vill radera rader om celler är mindre än ett visst värde, ändra tecknet> till <och ange sedan ditt värde.

3. Tryck F5 nyckel för att köra koden, när den dyker upp Kutools för Excel I dialogrutan väljer du det intervall (enstaka kolumn) som du hittar om cellerna i den här kolumnen är större eller mindre än ett visst värde. Och klicka sedan på OK knapp. Se skärmdump:

Sedan raderas alla rader med cellvärde större än 30000 i kolumn D omedelbart.


Ta bort rader om cellen är större / mindre än ett visst värde med Kutools för Excel

Smakämnen Välj specifika celler nytta av Kutools för Excel kan hjälpa dig att välja alla rader med celler som är större eller mindre än ett visst värde i en viss kolumn och sedan kan du radera alla markerade rader manuellt samtidigt.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. Markera den kolumn du vill ta bort rader baserat på och klicka sedan på Kutools > Välja > Välj specifika celler. Se skärmdump:

2. I Välj specifika celler dialogruta, välj Hela raden i Urvalstyp sektion. I Specifik typ avsnitt, välj Större än or Mindre än från den första rullgardinsmenyn anger du det specifika värdet i nästa textruta och klickar sedan på OK knapp.

3. Sedan dyker en dialogruta upp för att berätta hur många rader som är markerade, klicka på OK knapp. Och du kan se alla rader med ett värde större än 30000 i kolumn D väljs omedelbart.

4. Högerklicka på en av de valda raderna och klicka sedan på Radera från högerklickmenyn. Och alla valda rader raderas.

  Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Ta bort rader om cellen är större / mindre än ett visst värde med Kutoos för Excel

Förutom de två ovanstående metoderna kan du filtrera bort alla rader med celler som är större eller mindre än ett visst värde i en viss kolumn och sedan ta bort alla filtrerade rader med Ta bort dolda (synliga) rader och kolumner nytta av Kutools för Excel.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. Markera kolumnrubriken och klicka sedan på Data > Filter. Se skärmdump:

2. Klicka på rullgardinspilen i kolumnen som du kommer att ta bort rader baserat på och klicka sedan på Antal filter > Större än or Mindre än som nedan skärmdump:

3. I Anpassat autofilter dialogrutan, ange ett visst antal efter att rutan är större än eller är mindre än och klicka sedan på OK knapp.

4. Sedan filtreras alla rader med vissa celler som är större eller mindre än ett visst värde i kolumn D. Du kan ta bort alla filtrerade rader genom att välja de filtrerade uppgifterna och klicka sedan på Kutools > Radera > Ta bort dolda (synliga) rader och kolumner. Se skärmdump:

5. I Ta bort dolda (synliga) rader och kolumner dialogrutan, se till att I valt intervall alternativet väljs i Titta in rullgardinsmenyn, välj rader i Radera typ avsnittet, ange alternativet Synliga rader i Detaljerad typ och slutligen klicka på OK knapp.

6. Sedan raderas alla synliga rader i det valda intervallet omedelbart, du kan avbryta filtret genom att klicka Data > Filter.

  Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Ta bort rader om cellen är större / mindre än ett visst värde med Kutools för Excel


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje 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