V Excelu lahko uporabite močno funkcijo Najdi in zamenjaj za enostavno odstranjevanje vrstic na podlagi določene vrednosti celice. Naredite naslednje:

1. Izberite obseg, v katerem boste odstranili vrstice glede na določeno vrednost celice, in s pritiskom na odprite pogovorno okno Najdi in zamenjaj Ctrl + F tipke hkrati.

2. V pogovorno okno Najdi in zamenjaj vnesite določeno vrednost celice (v našem primeru vnesemo Soe) v Find what in kliknite Find All . Oglejte si prvi posnetek zaslona spodaj:

3. Na dnu pogovornega okna Najdi in zamenjaj izberite vse rezultate iskanja in zaprite to pogovorno okno. (Opombe: Lahko izberete enega od rezultatov iskanja in nato Ctrl + A tipke za izbiro vseh najdenih rezultatov. Oglejte si zgornji posnetek zaslona zgoraj.)
Nato lahko vidite, da so izbrane vse celice, ki vsebujejo določeno vrednost.

4. Pojdite z desno miškino tipko na izbrane celice in izberite Delete v meniju z desnim klikom. In nato preverite Entire row v pojavnem pogovornem oknu Delete in kliknite OK . Zdaj boste videli, da so odstranjene vse celice, ki vsebujejo določeno vrednost. Oglejte si posnetke zaslona spodaj:

Nato so bile glede na določeno vrednost že izbrisane celotne vrstice.

Z naslednjo kodo VBA lahko hitro izbrišete vrstice z določeno vrednostjo celice. Naredite naslednje:

1. Pritisnite Alt + F11 tipke hkrati odpreti Microsoft Visual Basic for applications okno,

2. Kliknite Insert > Modulein v modul vnesite naslednjo kodo:

VBA: Odstranite celotne vrstice glede na vrednost celice

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. Nato kliknite na Run za zagon kode.

4. V pojavnem pogovornem oknu izberite obseg, v katerem boste odstranili vrstice glede na določeno vrednost, in kliknite OK gumb.

5. V drugo pogovorno okno vnesite določeno vrednost, na podlagi katere boste odstranili vrstice, in kliknite OK . Oglejte si posnetek zaslona:

Nato boste videli, da so bile celotne vrstice izbrisane glede na že določeno vrednost.

Če ste namestili Kutools for Excel, njeno Select Specific Cells funkcija vam lahko pomaga hitro izbrisati vrstice z določeno vrednostjo. Naredite naslednje:

1. Izberite obseg, v katerem boste odstranili vrstice glede na določeno vrednost, in kliknite Kutools > Select > Select Specific Cells. Oglejte si posnetek zaslona:

2. V uvodnem pogovornem oknu Select Specified Cells preverite Entire row izberite možnost Contains iz Specific type spustni seznam, vnesite določeno vrednost v desno polje in kliknite Ok gumb (glej zgornji posnetek zaslona).
Po uporabi te funkcije se odpre pogovorno okno in pokaže, koliko celic je bilo najdenih na podlagi določenih meril. Kliknite OK , da ga zaprete.

3. Zdaj so izbrane celotne vrstice z določeno vrednostjo. Z desno miškino tipko kliknite izbrane vrstice in kliknite Delete v meniju z desnim klikom. Oglejte si spodnji posnetek zaslona:

Opombe: Ta Select Specific Cells funkcija podpira brisanje vrstic za eno ali dve določeni vrednosti. Za brisanje vrstic na podlagi dveh določenih vrednosti v polju Specific type odsek pogovornega okna Select Specific Cells, kot je prikazano na sliki spodaj:

V nekaterih primerih boste morda morali odstraniti vrstice na podlagi več vrednosti celic iz drugega stolpca / seznama v Excelu. Tukaj bom predstavil Kutools for Excel's Select Same & Different Cells funkcija za hitro in enostavno reševanje.

1. Kliknite Kutools > Select > Select Same & Different Cells da odprete pogovorno okno Izberi enake in različne celice.

2. V uvodu Select Same & Different Cells pogovorno okno, naredite naslednje (glejte posnetek zaslona):

(1) V Find values in v polju izberite stolpec, v katerem boste našli določene vrednosti;
(2) V According to izberite stolpec / seznam z več vrednostmi, na podlagi katerih boste izbrisali vrstice;
(3) V Based on , prosimo, preverite Each row možnost;
(4) V Find , prosimo, preverite Same Values možnost;
(5) Preverite Select entire rows na dnu pogovornega okna.
Opombe: Če dva navedena stolpca vsebujeta isto glavo, preverite My data has headers možnost.

3. kliknite Ok gumb za uporabo tega pripomočka. Nato se odpre pogovorno okno in pokaže, koliko vrstic je bilo izbranih. Samo kliknite OK , da ga zaprete.

Nato so bile izbrane vse vrstice, ki vsebujejo vrednosti med navedenim seznamom.

4. Kliknite Home > Delete > Delete Sheet Rows da izbrišete vse izbrane vrstice.