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
- 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.
- A 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.
- A Kiválasztás típusa szakaszban válassza ki a Sejt opciót.
- A 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
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...
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!