În Excel, puteți aplica funcția puternică Găsiți și înlocuiți pentru a elimina cu ușurință rândurile pe baza unei anumite valori a celulei. Vă rugăm să faceți următoarele:

1. Selectați intervalul în care veți elimina rândurile pe baza anumitor valori ale celulei și deschideți caseta de dialog Găsiți și înlocuiți apăsând pe Ctrl + F tastele simultan.

2. În caseta de dialog Găsiți și înlocuiți, introduceți valoarea anumită celulă (în cazul nostru, vom introduce Soe) în Find what și faceți clic pe butonul Find All buton. Vedeți prima captură de ecran de mai jos:

3. Selectați toate rezultatele căutării în partea de jos a casetei de dialog Găsiți și înlocuiți și închideți această casetă de dialog. (notițe: Puteți selecta unul dintre rezultatele căutării și apoi Ctrl + A tastele pentru a selecta toate rezultatele găsite. Vedeți a doua captură de ecran de mai sus.)
Și apoi puteți vedea toate celulele care conțin o anumită valoare sunt selectate.

4. Continuați să faceți clic dreapta pe celulele selectate și selectați Delete din meniul cu clic dreapta. Și apoi verificați Entire row din caseta de dialog Ștergere și faceți clic pe OK buton. Acum veți vedea că toate celulele care conțin o anumită valoare sunt eliminate. Vedeți capturile de ecran de mai jos:

Și apoi rândurile întregi au fost șterse pe baza anumitor valori deja.

Cu următorul cod VBA, puteți șterge rapid rândurile cu o anumită valoare a celulei, efectuați următorii pași:

1. apasă pe Alt + F11 tastele în același timp pentru a deschide Microsoft Visual Basic for applications fereastră,

2. Clic Insert > Moduleși introduceți următorul cod în modul:

VBA: eliminați rânduri întregi pe baza valorii celulei

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. Apoi faceți clic pe Run pentru a rula codul.

4. În caseta de dialog pop-up, vă rugăm să selectați intervalul în care veți elimina rândurile pe baza anumitor valori și faceți clic pe OK butonul.

5. Într-o altă casetă de dialog, introduceți valoarea pe care veți elimina rândurile pe baza căreia faceți clic și faceți clic pe OK buton. Vedeți captura de ecran:

Și apoi veți vedea că rândurile întregi au fost șterse pe baza valorii specificate deja.

Dacă ați instalat Kutools for Excel, ict Select Specific Cells funcția vă poate ajuta să ștergeți rapid rândurile cu valoare specifică. Vă rugăm să faceți următoarele:

1. Selectați intervalul pe care îl veți elimina rândurile în funcție de anumită valoare și faceți clic Kutools > Select > Select Specific Cells. Vedeți captura de ecran:

2. În fereastra de dialog Selectați celule specificate, verificați Entire row opțiune, selectați Contains din Specific type lista derulantă, introduceți valoarea specificată în caseta din dreapta și faceți clic pe Ok butonul (Vedeți captura de ecran de mai sus).
După aplicarea acestei caracteristici, va apărea o casetă de dialog care vă va arăta câte celule au fost găsite pe baza criteriilor specificate. Vă rugăm să faceți clic pe OK pentru a o închide.

3. Acum sunt selectate rânduri întregi cu o anumită valoare. Faceți clic dreapta pe rândurile selectate și faceți clic pe Delete din meniul cu clic dreapta. Vedeți captura de ecran de mai jos:

notițe: Această Select Specific Cells caracteristica acceptă ștergerea rândurilor cu una sau două valori. Pentru ștergerea rândurilor bazate pe două valori specificate, vă rugăm să specificați o altă valoare în Specific type secțiunea din caseta de dialog Selectare celule specifice, după cum se arată în următoarea captură de ecran:

În unele cazuri, poate fi necesar să eliminați rândurile pe baza mai multor valori de celule dintr-o altă coloană / listă din Excel. Aici voi introduce Kutools for Excel's Select Same & Different Cells caracteristică pentru a o rezolva rapid cu ușurință.

1. Clic Kutools > Select > Select Same & Different Cells pentru a deschide caseta de dialog Selectare aceleași și diferite celule.

2. În deschidere Select Same & Different Cells caseta de dialog, vă rugăm să faceți următoarele (a se vedea captura de ecran):

(1) În Find values in caseta, vă rugăm să selectați coloana în care veți găsi anumite valori;
(2) În According to casetă, selectați coloana / lista cu mai multe valori pe care veți șterge rândurile pe baza cărora;
(3) În Based on secțiunea, vă rugăm să verificați Each row opțiune;
(4) În Find secțiunea, vă rugăm să verificați Same Values opțiune;
(5) Verificați Select entire rows opțiunea din partea de jos a casetei de dialog de deschidere.
notițe: Dacă două coloane specificate conțin același antet, vă rugăm să verificați My data has headers opțiune.

3. clic pe Ok pentru a aplica acest utilitar. Și apoi apare o casetă de dialog și arată câte rânduri au fost selectate. Doar faceți clic pe OK pentru a o închide.

Și apoi au fost selectate toate rândurile care conțin valori din lista specificată.

4. Clic Home > Delete > Delete Sheet Rows pentru a șterge toate rândurile selectate.