Preskoči na glavno vsebino

Kako najti in izbrisati več ujemanj hkrati v Excelu?

Pri delu z velikimi podatki v Excelu je ključnega pomena, da lahko hitro najdete informacije, ki jih potrebujete v določenem trenutku. In takrat potrebujete funkcijo Najdi in zamenjaj, ki vam pomaga poiskati in označiti določene vrednosti ali formate na aktivnem listu ali celotnem delovnem zvezku in nato narediti, kar želite z rezultati, na primer, jih izbrisati ali zamenjati. Vendar pa lahko z Excelovim funkcijo Najdi in zamenjaj naenkrat najdete samo eno vrednost. V tej vadnici bom predstavil hiter način za iskanje več različnih vrednosti in njihovo brisanje hkrati v Excelu.


Poiščite in izbrišite več ujemanj hkrati z VBA

Ustvarili smo dve kodi VBA, ki vam pomagata najti več različnih vrednosti v izbranem obsegu ali na več delovnih listih in jih takoj izbrisati. Sledite spodnjim korakom in zaženite kodo glede na svoje potrebe.

1. V Excelu pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli. Nato kopirajte eno od naslednjih kod VBA v Moduli okno.

Koda VBA 1: Poiščite in izbrišite več ujemanj v izbranem obsegu hkrati

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

Opomba: V odlomku xArrFinStr = Array("prodaja", "9", "@") v 13. vrstici, morate zamenjati "prodaja", "9", "@" z dejanskimi vrednostmi, ki jih želite najti in izbrisati, ne pozabite obdati vsake vrednosti z dvojnimi narekovaji in jih ločiti z vejicami.


Koda VBA 2: Poiščite in izbrišite več ujemanj na več listih hkrati

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
Opomba:
  • V odlomku xArr = Array("Sheet1", "Sheet2") v 15. vrstici, morate zamenjati "List1", "List2" z dejanskimi imeni listov, kjer želite poiskati in izbrisati vrednosti. Ne pozabite obdati imen vsakega lista z dvojnimi narekovaji in jih ločiti z vejicami.
  • V odlomku xArrFinStr = Array("prodaja", "9", "@") v 16. vrstici, morate zamenjati "prodaja", "9", "@" z dejanskimi vrednostmi, ki jih želite najti in izbrisati, ne pozabite obdati vsake vrednosti z dvojnimi narekovaji in jih ločiti z vejicami.

3. Pritisnite F5 za zagon kode VBA. Opomba: Če uporabljate Koda VBA 1, se bo pojavilo pogovorno okno, v katerem boste morali izbrati obseg, v katerem želite najti in izbrisati vrednosti. Lahko tudi kliknete zavihek lista, da izberete celoten list.

4. Pojavi se pogovorno okno, kot je prikazano spodaj, ki vam pove, da je koda izbrisala navedena ujemanja. Kliknite OK , da zaprete pogovorno okno.

5. Navedene vrednosti so bile takoj izbrisane.


Poiščite in izbrišite več ujemanj hkrati s funkcijo Select Specific Cells

Kutools za Excel ponuja Izberite Specific Cells funkcijo za iskanje vrednosti, ki izpolnjujejo enega ali dva pogoja, ki ju nastavite hkrati, berite naprej, če želite izvedeti, kako hitro najti in izbrisati več vrednosti hkrati.

1. Na Kutools jeziček, v Urejanje skupino, kliknite Izberite > Izberite Specific Cells.

2. V pojavnem oknu Izberite Specific Cells pogovorno okno, naredite naslednje:
  • v Izberite celice v tem obsegu kliknite gumb za izbiro obsega na desni, da določite obseg od kje najti in izbrisati vrednosti. Opomba: Za iskanje po celotnem listu kliknite zavihek lista.
  • v Vrsta izbire izberete Celica možnost.
  • v Posebna vrsta razdelku nastavite največ dva pogoja:
    • Kliknite spustno puščico na levi strani, da izberete razmerje, ki ga potrebujete, kot je npr Vsebuje, enako, Manj kot, Se začne z, Itd
    • Vnesite vrednost v ustrezno polje glede na vaše potrebe.
    • Določite razmerje med obema pogojema (če obstajata): in or Or.

3. klik Ok da izberete celice, ki izpolnjujejo pogoje, ki ste jih nastavili. Odpre se pogovorno okno, ki vam pove, koliko celic je bilo najdenih in izbranih.

4. klik OK. Zdaj pa pritisnite DELETE tipko za takojšnje brisanje izbranih vrednosti.

Opomba: Za uporabo Izberite Specific Cells funkcija, bi morali imeti v računalniku nameščen Kutools for Excel. Če nimate nameščenega programa Kutools, kliknite tukaj za prenos in namestitev. Profesionalni dodatek Excel ponuja 30-dnevno brezplačno preskusno različico brez omejitev.


Poiščite in izbrišite več ujemanj hkrati V Excelu


Sorodni članki

Poiščite, označite, filtrirajte, preštejte, izbrišite dvojnike v Excelu

V Excelu se podvojeni podatki pojavljajo vsakič, ko jih ročno beležimo, kopiramo iz drugih virov ali iz drugih razlogov. Včasih so dvojniki potrebni in koristni. Vendar včasih podvojene vrednosti vodijo do napak ali nerazumevanja. Tukaj bo ta članek predstavil metode za hitro prepoznavanje, poudarjanje, filtriranje, štetje, brisanje dvojnikov po formulah, pravilih pogojnega oblikovanja, dodatkih drugih proizvajalcev itd. V Excelu.

Kako primerjati dva stolpca in izbrisati ujemanja v Excelu?

Če imate dva stolpca / seznama, vključno z nekaj dvojniki, jih želite zdaj primerjati in ugotoviti ujemanja, jih izbrisati, kako jih lahko hitro rešite? V tem članku predstavljam različne načine za lažje upravljanje v Excelu.

Kako izbrisati vse razen izbranih obsegov v Excelu?

V Excelu lahko hitro in neposredno izbrišemo izbrane obsege, vendar ste že kdaj poskušali izbrisati druge vsebine celic, razen izbranih obsegov? V tem članku vam bom predstavil nekaj trikov za hitro in enostavno reševanje te naloge v Excelu.

Kako izbrisati vse slike v nizu celic?

Če je na vašem delovnem listu več slik, zdaj želite nekatere izbrisati v določenem obsegu, kako to hitro rešiti?

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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