Ugrás a tartalomra

Hogyan lehet törölni az Excelben bizonyos szöveget nem tartalmazó sorokat?

Lehet, hogy közületek néhányan tudják, hogyan lehet törölni a teljes sorokat, ha azok tartalmaznak bizonyos szövegeket az Excel programban, de ha azt akarja, hogy egészítse ki a sort, amikor azok nem tartalmazzák a bizonyos szövegeket, hogyan tehetné? Most kövesse ezt az oktatóanyagot, és megtalálhatja a probléma megoldásának módját az Excelben.

A bizonyos szöveget nem tartalmazó sorokat a Szűrő segítségével törölheti

Törölje azokat a sorokat, amelyek nem tartalmaznak bizonyos szöveget a VBA segítségével

Törölje a bizonyos szöveget nem tartalmazó sorokat a Kutools for Excel segítségével


nyíl kék jobb buborék A bizonyos szöveget nem tartalmazó sorokat a Szűrő segítségével törölheti

Az Excelben a Szűrő funkció gyorsan segíthet szűrni azokat a sorokat, amelyek nem tartalmaznak bizonyos szöveget, majd kiválaszthatja őket törölni.

1. Válassza ki azt az oszlopot, amely tartalmazza azokat a szövegeket, amelyek alapján eltávolítja a sorokat, majd kattintson a gombra dátum > Szűrő. Lásd a képernyőképet:

doc-delete-rows-not-tartalmaz-1
doc-nyíl
doc-delete-rows-not-tartalmaz-2

2. Az oszlop fejlécében található egy szűrőgomb, és kattintson rá a legördülő lista megnyitásához. Jelölje be az összeset, kivéve azt a szöveget, amelyre alapozni kíván. Lásd a képernyőképet:

doc-delete-rows-not-tartalmaz-3

3. Ekkor csak a fejléc sorát láthatja, és a bizonyos szöveget nem tartalmazó sorok leszűrve. Képernyőkép megtekintése :

doc-delete-rows-not-tartalmaz-4

4. Jelölje ki az összeset, kivéve a fejléc sort, és kattintson a jobb gombbal a kiválasztáshoz Sor törlése a helyi menüből. Lásd a képernyőképet:

doc-delete-rows-not-tartalmaz-5

5. Ezután kattintson dátum > Szűrő ismét, majd az összes sort, amely nem tartalmaz bizonyos szöveget, törli. Lásd a képernyőképet:

doc-delete-rows-not-tartalmaz-6
doc-nyíl
doc-delete-rows-not-tartalmaz-7

nyíl kék jobb buborék Törölje azokat a sorokat, amelyek nem tartalmaznak bizonyos szöveget a VBA segítségével

A VBA nagyon hasznos az Excel kissé nehéz műveleteihez, és kövesse az alábbi lépéseket a bizonyos szöveget nem tartalmazó sorok törléséhez.

1. nyomja meg Alt + F11 megjeleníteni a Microsoft Visual Basic for Applications ablak.

2. Az ablakban kattintson a gombra betétlap > Modulok új modulablak megjelenítéséhez, majd másolja a következő VBA kódot a modulablakba.

VBA: Törölje a teljes sort, ha a cella tartalmaz bizonyos szöveget.

Sub DeleteRowNoInclude()
'Update20140618
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
    Set xRow = WorkRng.Rows(i)
    Set rng = xRow.Find(xStr, LookIn:=xlValues)
    If rng Is Nothing Then
       xRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub
3. kettyenés futás gombra, és megjelenik egy párbeszédpanel, ahol kiválaszthatja a működési tartományt. Lásd a képernyőképet:

doc-delete-rows-not-tartalmaz-8

4. Ezután kattintson OK, és írja be a sorokat eltávolítani kívánt szöveget egy másik felugró ablakba. Lásd a képernyőképet:

doc-delete-rows-not-tartalmaz-9

5. kettyenés OK, és az Apple-t nem tartalmazó sorok eltávolításra kerülnek.


nyíl kék jobb buborék Törölje a bizonyos szöveget nem tartalmazó sorokat a Kutools for Excel segítségével

Ha úgy gondolja, hogy a fenti módszerek nem könnyűek az Ön számára, használhatja Kutools az Excel számára's Válassza a Specifikus cellák lehetőséget funkciót.

Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most

1. Jelölje ki azt az oszlopot, ahonnan törölni kívánja azokat a sorokat, amelyek nem tartalmazzák a szöveget, majd kattintson a gombra Kutools > Válassza az Eszközök lehetőséget > Válassza a Specifikus cellák lehetőséget. Lásd a képernyőképet:

doc-delete-rows-not-tartalmaz-10

2. És a Válassza a Specifikus cellák lehetőséget párbeszédpanelen ellenőrizze Teljes sor, és válassza ki Nem tartalmaz, és írja be a bizonyos szöveget a szövegmezőbe, és rákattinthat a tartomány gombra Konkrét típus szakaszban válassza ki azt a cellát, amely tartalmazza a bizonyos szöveget.

doc-delete-rows-not-tartalmaz-11

3. Ezután kattintson Ok, majd kijelölik azokat a sorokat, amelyek nem tartalmaznak bizonyos szöveget, kattintson jobb gombbal a kiválasztáshoz töröl a helyi menüből. Lásd a képernyőképet:

doc-delete-rows-not-tartalmaz-12

4. Most eltávolítja az összes sort, amely nem tartalmaz bizonyos szöveget a tartományban. Kattintson rá, ha további információt szeretne kapni a Specifikus cellák kiválasztásáról.


Relatív cikkek:

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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to modify the VBA code to add an option like this,

Dim xOpt As Integer
xOpt = Application.InputBox("Rows Around Kept (0, 1, 2)", xTitleId, "", Type:=1)

where 0 is the same as your code above where it keeps only the row with specified word in it and deletes all other rows.
where 1 keeps the rows immediately above and below the rows with the specified word in it and deletes all other rows.
where 2 keeps the 2 rows above and below the rows with the specified words in it and deletes all other rows.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations