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:
- Jak odstranit všechny řádky pod určitým řádkem nebo aktivní buňkou v aplikaci Excel?
- Jak odstranit všechny řádky kromě prvního řádku záhlaví v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!