Přejít k hlavnímu obsahu

Jak odstranit řádky, pokud je buňka větší / menší než určitá hodnota v aplikaci Excel?

Někdy může být nutné odstranit řádky, pokud jsou buňky v zadaném sloupci větší nebo menší než určitá hodnota v aplikaci Excel. Tento článek doporučí několik metod řešení tohoto problému.

Odstraňte řádky, pokud je buňka větší / menší než určitá hodnota pomocí kódu VBA
Odstraňte řádky, pokud je buňka větší / menší než určitá hodnota pomocí Kutools pro Excel
Odstraňte řádky, pokud je buňka větší / menší než určitá hodnota pomocí Kutoos pro Excel


Odstraňte řádky, pokud je buňka větší / menší než určitá hodnota pomocí kódu VBA

Předpokládejme, že chcete odstranit celé řádky, pokud je buňka ve sloupci D větší nebo menší než určitá hodnota v aplikaci Excel. Chcete-li toho dosáhnout, můžete spustit následující kód VBA.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Odstraňte řádky, pokud je buňka větší / menší než určitá hodnota v aplikaci 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

Poznámka: Ve výše uvedeném kódu> 30000 znamená, že odstraníte řádky, pokud jsou buňky v zadaném sloupci větší než 30000. Pokud chcete odstranit řádky, pokud jsou buňky menší než určitá hodnota, změňte znaménko> na <a poté zadejte svoji hodnotu.

3. lis F5 klíč ke spuštění kódu, ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah (jeden sloupec), který najdete, pokud jsou buňky v tomto sloupci větší nebo menší než určitá hodnota. A poté klikněte na OK knoflík. Viz screenshot:

Poté jsou všechny řádky s hodnotou buňky větší než 30000 ve sloupci D okamžitě odstraněny.


Odstraňte řádky, pokud je buňka větší / menší než určitá hodnota pomocí Kutools pro Excel

Projekt Vyberte konkrétní buňky užitečnost Kutools pro Excel vám pomůže vybrat všechny řádky s buňkami většími nebo menšími, než je určitá hodnota v zadaném sloupci, a pak můžete ručně odstranit všechny vybrané řádky najednou.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Vyberte sloupec, podle kterého chcete odstranit řádky, a klikněte na Kutools > vybrat > Vyberte konkrétní buňky. Viz snímek obrazovky:

2. V Vyberte konkrétní buňky v dialogovém okně vyberte Celá řada v Typ výběru sekce. V Specifický typ vyberte část Větší než or Méně než z prvního rozevíracího seznamu zadejte určitou hodnotu do dalšího textového pole a poté klikněte na OK .

3. Poté se zobrazí dialogové okno s informacemi o tom, kolik řádků je vybráno. Klikněte prosím na OK knoflík. A můžete vidět, že všechny řádky s hodnotou větší než 30000 ve sloupci D jsou vybrány okamžitě.

4. Klikněte pravým tlačítkem na jeden z vybraných řádků a poté klikněte na Vymazat z nabídky pravého tlačítka myši. A všechny vybrané řádky jsou odstraněny.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Odstraňte řádky, pokud je buňka větší / menší než určitá hodnota pomocí Kutoos pro Excel

Kromě výše uvedených dvou metod můžete odfiltrovat všechny řádky s buňkami většími nebo menšími než je určitá hodnota v zadaném sloupci a poté všechny filtrované řádky odebrat pomocí Odstranit skryté (viditelné) řádky a sloupce užitečnost Kutools pro Excel.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Vyberte záhlaví sloupce a klikněte na Data > Filtr. Viz snímek obrazovky:

2. Klikněte na šipku rozevíracího seznamu ve sloupci, podle kterého odstraníte řádky, a poté klikněte na Číselné filtry > Větší než or Méně než jak je uvedeno níže:

3. V Vlastní automatický filtr v dialogovém okně zadejte určité číslo poté, co je pole větší než nebo menší než, a poté klikněte na OK .

4. Potom jsou všechny řádky s určitými buňkami, které jsou větší nebo menší než určitá hodnota ve sloupci D, odfiltrovány. Všechny filtrované řádky můžete odstranit výběrem filtrovaných dat a následným kliknutím Kutools > Vymazat > Odstranit skryté (viditelné) řádky a sloupce. Viz snímek obrazovky:

5. V Odstranit skryté (viditelné) řádky a sloupce dialogové okno, ujistěte se, že Ve zvoleném rozsahu možnost je vybrána v Podívejte se do rozbalovacího seznamu vyberte Řádky v Smazat typ sekci, zadejte možnost Viditelné řádky v Podrobný typ sekci a nakonec klikněte na OK .

6. Poté jsou všechny viditelné řádky ve vybraném rozsahu okamžitě smazány, můžete filtr zrušit kliknutím Data > Filtr.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Odstraňte řádky, pokud je buňka větší / menší než určitá hodnota pomocí Kutools pro Excel


Související články:

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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