Ugrás a tartalomra

Hogyan lehet egyszerre több egyezést keresni és törölni az Excelben?

Ha nagy adattal dolgozik Excelben, kulcsfontosságú, hogy gyorsan megtalálja az adott pillanatban szükséges információkat. Ilyenkor van szükség a Keresés és csere funkcióra, amely segít megkeresni és kiemelni bizonyos értékeket vagy formátumokat az aktív lapon vagy az egész munkafüzetben, majd azt teheti az eredményekkel, amit akar, mondjuk, törölheti vagy lecserélheti őket. Az Excel Keresés és csere funkciójával azonban egyszerre csak egy értéket találhat. Ebben az oktatóanyagban bemutatok egy gyors módszert több különböző érték megkeresésére és egyidejű törlésére az Excelben.


Egyszerre több találat keresése és törlése a VBA segítségével

Létrehoztunk két VBA-kódot, amelyek segítségével több különböző értéket találhat a kiválasztott tartományban vagy több munkalapon, és azonnal törölheti azokat. Kérjük, kövesse az alábbi lépéseket, és futtassa a kódot igényeinek megfelelően.

1. Az Excelben nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok. Ezután másolja a következő VBA-kódok egyikét a Modulok ablak.

VBA-kód 1: Keressen meg és töröljön egyszerre több egyezést a kiválasztott tartományban

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

Jegyzet: A részletben xArrFinStr = Array("értékesítés", "9", "@") a 13. sorban érdemes cserélni "értékesítés", "9", "@" a megkeresni és törölni kívánt tényleges értékekkel, ne felejtsen el minden értéket idézőjelbe tenni, és vesszővel elválasztani.


VBA-kód 2: Több egyezés keresése és törlése több munkalapon egyszerre

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
Jegyzet:
  • A részletben xArr = Tömb("Lap1", "Lap2") a 15. sorban érdemes cserélni "Sheet1", "Sheet2" azon lapok tényleges nevével, ahol meg szeretné keresni és törölni az értékeket. Ne felejtse el az egyes lapneveket idézőjelbe tenni, és vesszővel elválasztani.
  • A részletben xArrFinStr = Array("értékesítés", "9", "@") a 16. sorban érdemes cserélni "értékesítés", "9", "@" a megkeresni és törölni kívánt tényleges értékekkel, ne felejtsen el minden értéket idézőjelbe tenni, és vesszővel elválasztani.

3. nyomja meg F5 a VBA kód futtatásához. Jegyzet: Ha a VBA kód 1, egy párbeszédpanel jelenik meg, amelyben meg kell adnia azt a tartományt, ahol megkeresheti és törölheti az értékeket. Egy lapfülre kattintva is kijelölheti a teljes lapot.

4. Az alább látható párbeszédpanel felugrik, jelezve, hogy a kód törölte a megadott egyezéseket. Kattintson OK a párbeszéd bezárásához.

5. A megadott értékek egyszerre törlésre kerültek.


Egyszerre több egyezést kereshet és törölhet a Select Specific Cells funkcióval

A Kutools for Excel kínálja a Válassza a Specifikus cellák lehetőséget funkció segítségével olyan értékeket találhat, amelyek megfelelnek egy vagy két feltételnek egyszerre, kérjük, olvassa el, hogy megtudja, hogyan találhat meg és törölhet gyorsan több értéket egyszerre.

1. A Kutools fül, a Szerkesztés csoport, kattintson választ > Válassza a Specifikus cellák lehetőséget.

2. A felugró ablakban Válassza a Specifikus cellák lehetőséget párbeszédpanelt, kérjük, tegye a következőket:
  • Ban,-ben Válassza ki a cellákat ebben a tartományban mezőben kattintson a tartományválasztó gombra jobbra a tartomány megadásához hol lehet értékeket keresni és törölni. Jegyzet: A teljes lapon való kereséshez kattintson a lapfülre.
  • Ban,-ben Kiválasztás típusa szakaszban válassza ki a Sejt opciót.
  • Ban,-ben Konkrét típus szakaszban legfeljebb két feltételt állíthat be:
    • Kattintson a bal oldalon található legördülő nyílra, hogy kiválassza a kívánt kapcsolatot, például tartalmaz, Egyenlő, Kevesebb mint, Val kezdődikStb
    • Írja be az értéket a megfelelő mezőbe az Ön igényei szerint.
    • Adja meg a két feltétel közötti kapcsolatot (ha van): És or Or.

3. kettyenés Ok a beállított feltétel(ek)nek megfelelő cellák kiválasztásához. Megjelenik egy párbeszédpanel, amely megmutatja, hogy hány cellát talált és jelölt ki.

4. kettyenés OK. Most nyomja meg a DELETE gombot a kiválasztott értékek azonnali törléséhez.

Jegyzet: A Válassza a Specifikus cellák lehetőséget funkciót, telepítenie kell a Kutools for Excel programot a számítógépére. Ha nincs telepítve a Kutools, letöltéshez és telepítéshez kattintson ide. A professzionális Excel-bővítmény 30 napos ingyenes próbaverziót kínál korlátozások nélkül.


Több egyezés keresése és törlése egyszerre az Excelben


Kapcsolódó cikkek

Ismétlődések keresése, kiemelése, szűrése, számlálása, törlése az Excelben

Az Excel programban ismétlődő adatok fordulnak elő időnként, amikor manuálisan rögzítünk adatokat, más forrásokból másolunk adatokat vagy más okokból. Néha a másolatok szükségesek és hasznosak. Az ismétlődő értékek azonban néha hibákhoz vagy félreértésekhez vezetnek. Ebben a cikkben bemutatjuk azokat a módszereket, amelyek segítségével gyorsan azonosíthatjuk, kiemelhetjük, szűrhetjük, számolhatjuk, törölhetjük az ismétléseket képletek, feltételes formázási szabályok, harmadik féltől származó kiegészítők stb.

Hogyan lehet két oszlopot összehasonlítani és egyezéseket törölni az Excelben?

Ha két oszlopa / listája van, néhány ismétléssel, akkor most össze akarja hasonlítani őket, és megtudni az egyezéseket, törölni őket, hogyan lehet gyorsan megoldani? Ebben a cikkben különféle módszereket mutatok be az Excel kezelésében.

Hogyan lehet minden tartományt törölni az Excelben, kivéve a kiválasztott tartományokat?

Az Excelben gyorsan és közvetlenül törölhetjük a kijelölt tartományokat, de megpróbált-e már más cellatartalmat is törölni a kiválasztott tartományok kivételével? Ebben a cikkben bemutatok néhány trükköt, amelyek segítségével gyorsan és egyszerűen megoldhatja ezt a feladatot az Excel programban.

Hogyan lehet az összes képet törölni egy sor cellában?

Ha több kép van feltöltve a munkalapjára, most törölnie kell néhányat egy meghatározott tartományban, hogyan kezelje gyorsan?

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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