Az Excel alkalmazásban alkalmazhatja a hatékony Keresés és csere funkciót a sorok egyszerű eltávolításához egy adott cellaérték alapján. Kérjük, tegye a következőket:

1. Válassza ki azt a tartományt, ahonnan bizonyos cellák értéke alapján eltávolítja a sorokat, majd a és megnyomásával nyissa meg a Keresés és csere párbeszédpanelt Ctrl + F gombokat egyszerre.

2. A Keresés és csere párbeszédpanelen írja be a cella bizonyos értékét (esetünkben a meleg) ba,-be Find what mezőbe, és kattintson a Find All gomb. Lásd az alábbi első képernyőképet:

3. Jelölje ki az összes keresési eredményt a Keresés és csere párbeszédpanel alján, majd zárja be ezt a párbeszédpanelt. (Megjegyzések: Kiválaszthatja az egyik keresési eredményt, majd Ctrl + A gombokat az összes talált találat kiválasztásához. Lásd a fenti második képernyőképet.)
És akkor láthatja, hogy az összes cella ki van választva, amely tartalmazza a bizonyos értéket.

4. Jobb egérgombbal kattintson a kijelölt cellákra, és válassza ki a Delete a jobb egérgombbal kattintva. És akkor ellenőrizze a Entire row lehetőséget a felbukkanó Törlés párbeszédpanelen, és kattintson a gombra OK gomb. Most látni fogja, hogy az összes cella eltávolítja a bizonyos értéket. Lásd az alábbi képernyőképeket:

És akkor a teljes sorokat már törölték a bizonyos érték alapján.

A következő VBA-kóddal gyorsan törölheti a sorokat bizonyos cellaértékkel, tegye a következőket:

1. megnyomni a Alt + F11 gombokat egyidejűleg a megnyitáshoz Microsoft Visual Basic for applications ablak,

2. Kattints Insert > Module, és írja be a következő kódot a modulba:

VBA: Távolítsa el a teljes sorokat a cella értéke alapján

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. Ezután kattintson a Run gombot a kód futtatásához.

4. A felbukkanó párbeszédpanelen válassza ki azt a tartományt, ahonnan a sorokat eltávolítja az adott érték alapján, majd kattintson a gombra OK gombot.

5. Egy másik párbeszédpanelen írja be azt a bizonyos értéket, amely alapján eltávolítja a sorokat, és kattintson a gombra OK gomb. Lásd a képernyőképet:

És akkor látni fogja, hogy a teljes sorokat már törölték a megadott érték alapján.

Ha telepítve van Kutools for Excel, annak Select Specific Cells funkció segítségével gyorsan törölheti a meghatározott értékű sorokat. Kérjük, tegye a következőket:

1. Válassza ki azt a tartományt, amelyből a sorokat eltávolítja az adott érték alapján, majd kattintson a gombra Kutools > Select > Select Specific Cells. Lásd a képernyőképet:

2. A Megnyílt cellák kiválasztása párbeszédpanelen ellenőrizze Entire row válasszuk a lehetőséget Contains ból ből Specific type legördülő listából írja be a megadott értéket a jobb mezőbe, majd kattintson a gombra Ok gombra (lásd a fenti képernyőképet).
A szolgáltatás alkalmazása után megjelenik egy párbeszédpanel, amely megmutatja, hogy hány cellát találtak a megadott kritériumok alapján. Kattintson a gombra OK gombot a bezárásához.

3. Most teljes sorok vannak kijelölve a bizonyos értékkel. Kattintson a jobb gombbal a kijelölt sorokra, majd kattintson a gombra Delete a jobb egérgombbal kattintva. Lásd az alábbi képernyőképet:

Megjegyzések: Ez az Select Specific Cells A funkció támogatja a sorok törlését egy vagy két bizonyos értékkel. Két megadott érték alapján történő sorok törléséhez adjon meg egy másik értéket a Specific type A Speciális cellák kiválasztása párbeszédpanel szakasza az alábbi képernyőkép szerint:

Bizonyos esetekben előfordulhat, hogy el kell távolítania a sorokat több cellaérték alapján az Excel másik oszlopából / listájából. Itt bemutatom Kutools for Excel's Select Same & Different Cells funkcióval könnyedén és gyorsan megoldható.

1. Kattints Kutools > Select > Select Same & Different Cells az azonos és különböző cellák kiválasztása párbeszédpanel megnyitásához.

2. A megnyitón Select Same & Different Cells párbeszédpanelt, kérjük, tegye a következőket (lásd a képernyőképet):

(1) A Find values in mezőbe, válassza ki azt az oszlopot, ahol megtalálja a bizonyos értékeket;
(2) A According to mezőbe, kérjük, válassza ki azt az oszlopot / listát, amely több értéket tartalmaz, és amelyek alapján sorokat töröl;
(3) A Based on szakaszban, kérjük, ellenőrizze a Each row választási lehetőség;
(4) A Find szakaszban, kérjük, ellenőrizze a Same Values választási lehetőség;
(5) Ellenőrizze a Select entire rows opciót a megnyitás párbeszédpanel alján.
Megjegyzések: Ha két megadott oszlop ugyanazt a fejlécet tartalmazza, ellenőrizze a My data has headers opciót.

3. Kattintson az Ok gombra a segédprogram alkalmazásához. Ezután megjelenik egy párbeszédpanel, amely megmutatja, hogy hány sor van kijelölve. Csak kattintson a gombra OK gombot a bezárásához.

Ezután kiválasztották az összes sort, amely a megadott lista között tartalmaz értékeket.

4. Kattints Home > Delete > Delete Sheet Rows az összes kijelölt sor törléséhez.