V aplikaci Excel můžete použít výkonnou funkci Najít a nahradit a snadno odstranit řádky založené na určité hodnotě buňky. Postupujte prosím následovně:

1. Vyberte rozsah, ve kterém odeberete řádky na základě určité hodnoty buňky, a otevřete dialogové okno Najít a nahradit stisknutím klávesy Ctrl + F současně.

2. V dialogovém okně Najít a nahradit zadejte určitou hodnotu buňky (v našem případě zadáme Soe) do Find what a klepněte na tlačítko Find All knoflík. Viz první snímek obrazovky níže:

3. Vyberte všechny výsledky hledání v dolní části dialogového okna Najít a nahradit a zavřete toto dialogové okno. (Poznámka: Můžete vybrat jeden z výsledků vyhledávání a poté Ctrl + A klávesy pro výběr všech nalezených výsledků. Viz druhý snímek obrazovky výše.)
A pak můžete vidět, že jsou vybrány všechny buňky obsahující určitou hodnotu.

4. Pokračujte klepnutím pravým tlačítkem na vybrané buňky a vyberte Delete z nabídky pravého tlačítka myši. A pak zkontrolujte Entire row v rozbalovacím dialogovém okně Odstranit a klepněte na OK knoflík. Nyní uvidíte, že jsou odstraněny všechny buňky obsahující určitou hodnotu. Viz screenshoty níže:

A poté byly na základě určité hodnoty odstraněny celé řádky.

S následujícím kódem VBA můžete rychle odstranit řádky s určitou hodnotou buňky, proveďte následující kroky:

1. zmáčkni Alt + F11 současně otevřete Microsoft Visual Basic for applications okno,

2, klikněte Insert > Modulea do modulu zadejte následující kód:

VBA: Odeberte celé řádky na základě hodnoty buňky

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Poté klikněte na tlačítko Run tlačítko pro spuštění kódu.

4. V rozbalovacím dialogovém okně vyberte rozsah, ve kterém odeberete řádky na základě určité hodnoty, a klikněte na OK .

5. V jiném dialogovém okně zadejte určitou hodnotu, podle které odeberete řádky, a kliknete na OK knoflík. Viz screenshot:

A pak uvidíte, že celé řádky již byly odstraněny na základě zadané hodnoty.

Pokud jste nainstalovali Kutools for Excel, to je Select Specific Cells funkce vám pomůže rychle odstranit řádky se specifickou hodnotou. Postupujte prosím následovně:

1. Vyberte rozsah, který odeberete na základě určité hodnoty, a klikněte Kutools > Select > Select Specific Cells. Viz snímek obrazovky:

2. V úvodním dialogovém okně Vybrat určené buňky zkontrolujte Entire row vyberte možnost Contains od Specific type rozevírací seznam, zadejte zadanou hodnotu do pravého pole a klepněte na Ok tlačítko (viz výše uvedený snímek obrazovky).
Po použití této funkce se zobrazí dialogové okno, které vám ukáže, kolik buněk bylo nalezeno na základě zadaných kritérií. Klikněte prosím na OK pro jeho zavření.

3. Nyní jsou vybrány celé řádky s určitou hodnotou. Klikněte prosím pravým tlačítkem na vybrané řádky a klikněte na Delete z nabídky pravého tlačítka myši. Viz snímek obrazovky níže:

Poznámka: Tento Select Specific Cells funkce podporuje mazání řádků o jednu nebo dvě určité hodnoty. Chcete-li odstranit řádky založené na dvou zadaných hodnotách, uveďte prosím jinou hodnotu v Specific type v části Vybrat konkrétní buňky dialogové okno, jak ukazuje následující snímek obrazovky:

V některých případech možná budete muset odstranit řádky založené na více hodnotách buněk z jiného sloupce / seznamu v aplikaci Excel. Zde představím Kutools for Excel's Select Same & Different Cells funkce, která to snadno a rychle vyřeší.

1, klikněte Kutools > Select > Select Same & Different Cells otevřete dialogové okno Vybrat stejné a různé buňky.

2. V otvoru Select Same & Different Cells dialogové okno, postupujte následovně (viz screenshot):

(1) V Find values in do pole vyberte sloupec, kde najdete určité hodnoty;
(2) V According to pole, vyberte prosím sloupec / seznam s více hodnotami, podle kterých odstraníte řádky;
(3) V Based on sekce, prosím zkontrolujte Each row volba;
(4) V Find sekce, prosím zkontrolujte Same Values volba;
(5) Zkontrolujte Select entire rows ve spodní části úvodního dialogového okna.
Poznámka: Pokud dva zadané sloupce obsahují stejné záhlaví, zkontrolujte My data has headers volba.

3, Klepněte na tlačítko Ok tlačítko pro použití tohoto nástroje. A pak vyjde dialogové okno a ukazuje, kolik řádků bylo vybráno. Stačí kliknout na OK pro jeho zavření.

A poté byly vybrány všechny řádky obsahující hodnoty mezi zadaným seznamem.

4, klikněte Home > Delete > Delete Sheet Rows odstranit všechny vybrané řádky.