Note: The other languages of the website are Google-translated. Back to English
English English

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (2)
Hodnocení 5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
Ahoj! Jak mohu změnit váš kód (Odstranit řádky, pokud je buňka větší/menší než určitá hodnota s kódem VBA), pokud chci, aby fungoval na každém listu v sešitu? Potřebuji to k odstranění řádků, pokud je datum ve sloupci A
Tento komentář byl moderátorem webu minimalizován
Super. Díky moc.
Pozdravy z Istanbulu
Hodnocení 5 z 5
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění