Salt la conținutul principal

Cum să găsiți și să ștergeți mai multe potriviri simultan în Excel?

Când lucrați cu date mari în Excel, este esențial să puteți găsi rapid informațiile de care aveți nevoie în orice moment. Și atunci ai nevoie de funcția Găsește și înlocuiește, care te ajută să găsești și să evidențiezi anumite valori sau formate pe foaia activă sau pe întregul registru de lucru și apoi să faci ce vrei cu rezultatele, să spunem, să le ștergi sau să le înlocuiești. Cu toate acestea, cu Căutare și înlocuire din Excel, puteți găsi doar o singură valoare la un moment dat. În acest tutorial, voi introduce o modalitate rapidă de a găsi mai multe valori diferite și de a le șterge simultan în Excel.


Găsiți și ștergeți mai multe potriviri simultan cu VBA

Am creat două coduri VBA pentru a vă ajuta să găsiți mai multe valori diferite în intervalul selectat sau pe mai multe foi de lucru și să le ștergeți imediat. Vă rugăm să urmați pașii de mai jos și să rulați codul în funcție de nevoile dvs.

1. În Excel, apăsați butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module. Apoi copiați oricare dintre următoarele coduri VBA în fișierul Module fereastră.

Cod VBA 1: Găsiți și ștergeți simultan mai multe potriviri din intervalul selectat

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

Notă: În fragment xArrFinStr = Matrice ("vânzări", "9", "@") în al 13-lea rând, ar trebui să înlocuiți „vânzări”, „9”, „@” cu valorile reale pe care doriți să le găsiți și să ștergeți, amintiți-vă să includeți fiecare valoare cu ghilimele duble și să le separați cu virgule.


Cod VBA 2: Găsiți și ștergeți mai multe potriviri pe mai multe foi simultan

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub
Notă:
  • În fragment xArr = Matrice(„Foaie1”, „Foaie2”) în al 15-lea rând, ar trebui să înlocuiți „Sheet1”, „Sheet2” cu denumirile efective ale foilor în care doriți să găsiți și să ștergeți valorile. Nu uitați să includeți numele fiecărei foi cu ghilimele duble și să le separați cu virgule.
  • În fragment xArrFinStr = Matrice ("vânzări", "9", "@") în al 16-lea rând, ar trebui să înlocuiți „vânzări”, „9”, „@” cu valorile reale pe care doriți să le găsiți și să ștergeți, amintiți-vă să includeți fiecare valoare cu ghilimele duble și să le separați cu virgule.

3. presa F5 pentru a rula codul VBA. Notă: Dacă utilizați Cod VBA 1, va apărea o casetă de dialog care vă va cere să selectați intervalul în care să găsiți și să ștergeți valorile. De asemenea, puteți face clic pe o filă de foaie pentru a selecta întreaga foaie.

4. Apare caseta de dialog prezentată mai jos, care vă va spune că codul a șters potrivirile specificate. Clic OK pentru a închide dialogul.

5. Valorile specificate au fost șterse imediat.


Găsiți și ștergeți mai multe potriviri simultan cu funcția Selectați celule specifice

Kutools pentru Excel oferă Selectați celule specifice pentru a găsi valori care îndeplinesc una sau două condiții pe care le setați simultan, citiți mai departe pentru a afla cum să găsiți și să ștergeți rapid mai multe valori simultan.

1. Pe Kutools în tabul Editarea grup, faceți clic pe Selectați > Selectați celule specifice.

2. În fereastra pop-up Selectați celule specifice caseta de dialog, procedați după cum urmează:
  • În Selectați celule din acest interval casetă, faceți clic pe butonul de selectare a intervalului din dreapta pentru a specifica intervalul de la unde să găsiți și să ștergeți valori. Notă: Pentru a căuta în întreaga foaie, faceți clic pe fila foaie.
  • În Tipul de selecție secțiune, selectați Celulă opțiune.
  • În Tipul specific secțiune, setați cel mult două condiții:
    • Faceți clic pe săgeata derulantă din partea stângă pentru a selecta o relație de care aveți nevoie, cum ar fi conţine, este egală cu, Mai puţin de, Începe cu, Etc
    • Introduceți valoarea în caseta corespunzătoare în funcție de nevoile dvs.
    • Specificați relația dintre cele două condiții (dacă există): Și or Or.

3. clic Ok pentru a selecta celulele care îndeplinesc condițiile pe care le-ați stabilit. Va apărea o casetă de dialog care vă spune câte celule au fost găsite și selectate.

4. clic OK. Acum, apăsați pe DELETE pentru a șterge simultan valorile selectate.

Notă: Pentru a utiliza Selectați celule specifice caracteristică, ar trebui să aveți Kutools pentru Excel instalat în computer. Dacă nu aveți Kutools instalat, faceți clic aici pentru a descărca și instala. Suplimentul profesional Excel oferă o probă gratuită de 30 de zile, fără limitări.


Găsiți și ștergeți mai multe potriviri simultan în Excel


Articole pe aceeași temă

Găsiți, evidențiați, filtrați, numărați, ștergeți duplicatele în Excel

În Excel, datele duplicate apar de fiecare dată când înregistrăm date manual, copiem date din alte surse sau din alte motive. Uneori, duplicatele sunt necesare și utile. Cu toate acestea, uneori valorile duplicate duc la erori sau neînțelegeri. Aici, acest articol va introduce metode de identificare rapidă, evidențiere, filtrare, numărare, ștergere a duplicatelor prin formule, reguli de formatare condiționată, programe de completare terțe etc. în Excel.

Cum să compari două coloane și să ștergi potrivirile în Excel?

Dacă aveți două coloane / liste, inclusiv câteva duplicate, acum doriți să le comparați și să aflați potrivirile, să le ștergeți, cum puteți rezolva rapid? În acest articol, vă introduc diferite modalități de a vă ajuta să o gestionați în Excel.

Cum să ștergeți toate intervalele, cu excepția celor selectate, în Excel?

În Excel, putem șterge rapid și direct intervalele selectate, dar ați încercat vreodată să ștergeți alte conținuturi de celule, cu excepția intervalelor selectate? În acest articol, voi introduce câteva trucuri pentru a rezolva această sarcină în Excel rapid și ușor.

Cum să ștergeți toate imaginile dintr-o serie de celule?

Dacă există mai multe imagini populate în foaia dvs. de lucru, acum doriți să ștergeți unele dintre ele într-un interval specificat, cum vă descurcați rapid?

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations