Ugrás a tartalomra

Hogyan szűrhet egy listát és törölheti a többi rejtett vagy látható sort az Excelben?

Szűrt listához előfordulhat, hogy törölnie kell a rejtett vagy látható sorokat, hogy csak a hasznos adatok maradjanak meg. Ebben a cikkben bemutatjuk a szűrt lista többi rejtett vagy látható sorának törlésének módszereit az Excelben.

Törölje az aktív munkalap rejtett sorait VBA kóddal
Törölje a szűrt lista látható sorait az összes látható cella kijelölésével
Könnyen törölheti a szűrt lista rejtett vagy látható sorait a Kutools for Excel segítségével


Törölje az aktív munkalap rejtett sorait VBA kóddal

Ez a szakasz megmutatja a VBA kódot az aktív lap rejtett sorainak törléséhez. Kérjük, tegye a következőket.

1. Aktiválja a rejtett sorok törléséhez szükséges munkalapot, nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. A Microsoft Visual Basic for Applications ablakban kattintson a gombra betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modul ablakba.

VBA kód: Rejtett sorok törlése

Sub RemoveHiddenRows()
	Dim xRow As Range
	Dim xRg As Range
	Dim xRows As Range
	On Error Resume Next
	Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
	If xRows Is Nothing Then Exit Sub
		For Each xRow In xRows.Columns(1).Cells
			If xRow.EntireRow.Hidden Then
				If xRg Is Nothing Then
					Set xRg = xRow
				Else
					Set xRg = Union(xRg, xRow)
				End If
			End If
		Next
		If Not xRg Is Nothing Then
			MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
			xRg.EntireRow.Delete
		Else
			MsgBox "No hidden rows found", , "Kutools for Excel"
		End If
	End Sub

3. megnyomni a F5 gombot a kód futtatásához. Ha vannak rejtett sorok az aktív munkalapon, a kód futtatása után megjelenik egy párbeszédpanel, amely megmondja, hány rejtett sort töröltek. Kattints a OK gombra a rejtett sorok törléséhez. Lásd a képernyőképet:

doc törölje a pihenést 1

Ellenkező esetben a kód futtatása után megjelenik a következő párbeszédpanel.

doc törölje a pihenést 1

Megjegyzések: a fenti VBA-kód nemcsak a szűrt lista rejtett sorait, hanem azokat a rejtett sorokat is törölheti, amelyeket korábban manuálisan rejtett el.


Törölje a szűrt lista látható sorait az összes látható cella kiválasztásával

A szűrt lista látható sorainak törléséhez tegye a következőket.

1. Jelölje ki az összes kiszűrt sort, majd nyomja meg az gombot F5 kulcs megnyitásához Go To párbeszédpanelen, majd kattintson a gombra Különleges gomb. Lásd a képernyőképet:

doc törölje a pihenést 1

2. Ban,-ben Ugrás a különlegességre párbeszédpanelen ellenőrizze a Csak látható cellák lehetőséget, majd kattintson a gombra OK gombot.

doc törölje a pihenést 1

3. Most az összes látható sort kijelölte, kattintson a jobb gombbal a kijelölésre, majd kattintson a gombra Sorok törlése.

doc törölje a pihenést 1

Eddig minden látható sort töröltek a szűrt listáról.


Könnyen törölheti a szűrt lista rejtett vagy látható sorait a Kutools for Excel segítségével

A fenti két módszer nem biztos, hogy sok Excel felhasználó számára vágymegoldást jelent, itt bemutatunk egy praktikus eszközt. Aktivitáskövető Rejtett (látható) sorok és oszlopok törlése hasznossága Kutools az Excel számára, könnyedén törölheti a kiválasztott tartomány / lapok, aktív lapok vagy az összes munkalap rejtett sorait az Excelben.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Ha csak egy szűrt lista rejtett vagy látható sorait kívánja törölni, kérjük, válassza ki manuálisan a szűrt tartományt, majd kattintson Kutools > töröl > Rejtett (látható) sorok és oszlopok törlése. Lásd a képernyőképet:

2. Ban,-ben Rejtett (látható) sorok és oszlopok törlése párbeszédpanelt, tartsa a A kiválasztott tartományban kiválasztott a Benéz legördülő listából (más lehetőségeket is kiválaszthat, ha szükséges), ellenőrizze a Sorok lehetőség a Típus törlése szakaszban, és a Részletes típus szakasz, ellenőrizze Látható sorok or Rejtett sorok opció, amire szüksége van. És végül kattintson a gombra OK gombot.

3. Ezután megjelenik egy párbeszédpanel, amely megadja, hogy hány sort töröltek, kattintson a gombra OK gombot.

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Törölje a szűrt lista rejtett vagy látható sorait a Kutools for Excel segítségével

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

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
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...

Leírás


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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi this VBA code is awesome useful.
This comment was minimized by the moderator on the site
Thanks for the info. This has been instructive. Please is there a way to filter and delete for specific numbers in rows of up to 1 million? Can the code above be modified to do so?
This comment was minimized by the moderator on the site
Hi,
Sorry did not test the code in such huge row data. Maybe you can make a copy of your data and test if the code can work.
This comment was minimized by the moderator on the site
VBA code to Delete hidden rows worked perfectly with no fiddling. THANK YOU!!
This comment was minimized by the moderator on the site
Feedback re: the macro for hidden row deletions - this takes too long to run on 900k rows to be useful. 2+ hours on an OC'd Threadripper 1950X and still running (had to end task). Any way to optimize it to use multiple cores or is this a VBA limitation?
This comment was minimized by the moderator on the site
Hi,
The code has been optimized. Please have a try. Thank you for your comment.

Sub RemoveHiddenRows()
Dim xFlag As Boolean
Dim xStr, xTemp As String
Dim xDiv, xMod As Long
Dim I, xCount, xRows As Long
Dim xRg, xCell, xDRg As Range
Dim xArr() As String
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Set xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xFlag = True
xTemp = ""
xCount = 0
For I = 1 To xRows
Set xCell = xRg.Offset(I - 1, 0)
Do While xFlag
If xCell.EntireRow.Hidden Then
xStr = xCell.Address
xFlag = False
Else
GoTo Ctn
End If
Loop
If xCell.EntireRow.Hidden Then
xTemp = xStr & "," & xCell.Address
End If
If Len(xTemp) > 171 Then
xCount = xCount + 1
ReDim Preserve xArr(1 To xCount)
xArr(xCount) = xStr
xStr = xCell.Address
Else
xStr = xTemp
End If
Ctn:
Next
xCount = xCount + 1
ReDim Preserve xArr(1 To xCount)
xArr(xCount) = xStr
For I = xCount To 1 Step -1
If I = 1 Then
xStr = Mid(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
Else
xStr = xArr(I)
End If
If xDRg Is Nothing Then
Set xDRg = Range(xStr)
Else
Set xDRg = Union(xDRg, Range(xStr))
End If
If (Len(xDRg.Address) >= 244) Or (xCount = 1) Then
xDRg.EntireRow.Delete
Set xDRg = Nothing
End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Awesome, thank you! Will review at my next opportunity / need for this and reply back.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations