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
- Î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.
- Î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
Î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...
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!