Note: The other languages of the website are Google-translated. Back to English

Kako filtrirati seznam in izbrisati ostale skrite ali vidne vrstice v Excelu?

Za filtrirani seznam boste morda morali izbrisati skrite ali vidne vrstice, da boste obdržali le koristne podatke. V tem članku vam bomo prikazali načine brisanja preostalih skritih ali vidnih vrstic filtriranega seznama v Excelu.

Izbrišite skrite vrstice v aktivnem delovnem listu s kodo VBA
Izbrišite vidne vrstice filtriranega seznama z izbiro vseh vidnih celic
Z Kutools za Excel lahko preprosto izbrišete skrite ali vidne vrstice filtriranega seznama


Izbrišite skrite vrstice v aktivnem delovnem listu s kodo VBA

Ta razdelek vam bo prikazal kodo VBA za brisanje skritih vrstic v aktivnem listu. Naredite naslednje.

1. Aktivirajte delovni list, ki ga želite izbrisati, in pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. V oknu Microsoft Visual Basic for Applications kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v okno modula.

Koda VBA: izbrišite skrite vrstice

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. Pritisnite F5 tipko za zagon kode. Če so v aktivnem listu skrite vrstice, se po zagonu kode odpre pogovorno okno, ki pove, koliko skritih vrstic je bilo izbrisanih. Kliknite OK gumb za brisanje skritih vrstic. Oglejte si posnetek zaslona:

doc izbriši ostalo 1

V nasprotnem primeru boste po zagonu kode dobili naslednje pogovorno okno.

doc izbriši ostalo 1

Opombe: zgornja koda VBA lahko ne samo izbriše skrite vrstice filtriranega seznama, temveč tudi izbriše skrite vrstice, ki ste jih že prej ročno skrivali.


Izbrišite vidne vrstice filtriranega seznama z izbiro vseh funkcij vidnih celic

Za brisanje vidnih vrstic filtriranega seznama storite naslednje.

1. Izberite vse filtrirane vrstice in pritisnite F5 ključ, da odprete Pojdi na pogovorno okno, nato kliknite Poseben . Oglejte si posnetek zaslona:

doc izbriši ostalo 1

2. V Ljubljani Pojdi na posebno pogovorno okno, preverite Samo vidne celice in nato kliknite OK gumb.

doc izbriši ostalo 1

3. Zdaj so izbrane vse vidne vrstice, z desno miškino tipko kliknite izbiro in nato kliknite Izbriši vrstice.

doc izbriši ostalo 1

Do zdaj so vse vidne vrstice izbrisane s filtriranega seznama.


Z Kutools za Excel lahko preprosto izbrišete skrite ali vidne vrstice filtriranega seznama

Zgornji dve metodi morda nista rešitvi za številne uporabnike Excela, tukaj vam predstavljamo priročno orodje. Z Izbriši skrite (vidne) vrstice in stolpce uporabnost Kutools za Excel, lahko preprosto izbrišete skrite vrstice v izbranem obsegu / listih, aktivnem listu ali vseh delovnih listih v Excelu.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Če želite samo izbrisati skrite ali vidne vrstice filtriranega seznama, izberite filtrirani obseg ročno in kliknite Kutools > Brisanje > Izbriši skrite (vidne) vrstice in stolpce. Oglejte si posnetek zaslona:

2. V Ljubljani Izbriši skrite (vidne) vrstice in stolpce pogovorno okno, obdržite V izbranem območju izbrano v Poglej v spustni seznam (po potrebi lahko izberete druge možnosti), preverite Vrstice možnost v Izbriši vrsto in v razdelku Podroben tip oddelek, preverite Vidne vrstice or Skrite vrstice možnost, kot jo potrebujete. In končno kliknite OK gumb.

3. Potem se prikaže pogovorno okno, ki pove, koliko vrstic je bilo izbrisanih, kliknite na OK gumb.

  Če želite imeti brezplačen preizkus (30-dan) tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Z Kutools za Excel izbrišite skrite ali vidne vrstice filtriranega seznama


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
dno pisarniške mize
Komentarji (7)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Povratne informacije o: makro za skrito brisanje vrstic - to traja predolgo, da se izvaja na 900 vrsticah, da bi bilo uporabno. 2+ uri na OC'd Threadripper 1950X in še vedno deluje (moralo se je končati opravilo). Ali obstaja način, da ga optimizirate za uporabo več jeder ali je to omejitev VBA?
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Koda je optimizirana. Prosim, poskusite. Hvala za vaš komentar.

Pododstrani skrite vrstice()
Dim xFlag kot logična vrednost
Dim xStr, xTemp kot niz
Dim xDiv, xMod As Long
Dim I, xCount, xRows As Long
Dim xRg, xCell, xDRg kot obseg
Dim xArr() kot niz
On Error Resume Next
Application.ScreenUpdating = Napačno
Application.EnableEvents = False
Nastavite xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
Če xRg ni nič, zapustite Sub
xRows = xRg.Rows.Count
Nastavi xRg = xRg(1)
xFlag = Res
xTemp = ""
xŠtevilo = 0
Za I = 1 do x vrstic
Nastavi xCell = xRg.Offset(I - 1, 0)
Naredi Medtem ko xFlag
Če xCell.EntireRow.Hidden Potem
xStr = xCell.Address
xFlag = False
Else
Pojdi na Ctn
Konec Če
Zanka
Če xCell.EntireRow.Hidden Potem
xTemp = xStr & "," & xCell.Address
Konec Če
Če je Len(xTemp) > 171 Potem
xŠtevilo = xŠtevilo + 1
ReDim Preserve xArr(1 do xCount)
xArr(xCount) = xStr
xStr = xCell.Address
Else
xStr = xTemp
Konec Če
Ctn:
Naslednji
xŠtevilo = xŠtevilo + 1
ReDim Preserve xArr(1 do xCount)
xArr(xCount) = xStr
Za I = xCount To 1 Step -1
Če je I = 1 Potem
xStr = Mid(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
Else
xStr = xArr(I)
Konec Če
Če xDRg ni nič potem
Nastavi xDRg = Obseg(xStr)
Else
Nastavite xDRg = Union(xDRg, Range(xStr))
Konec Če
Če (Len(xDRg.Address) >= 244) Ali (xCount = 1) Potem
xDRg.EntireRow.Delete
Nastavite xDRg = Nič
Konec Če
Naslednji
Aplikacija EnableEvents = True
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Super, hvala! Bom pregledal ob naslednji priložnosti/potrebi po tem in odgovoril.
Ta komentar je moderator na spletnem mestu minimiziral
Koda VBA za brisanje skritih vrstic je delovala brezhibno. HVALA VAM!!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za informacije. To je bilo poučno. Prosim, ali obstaja način za filtriranje in brisanje določenih številk v vrsticah do 1 milijona? Ali je mogoče zgornjo kodo spremeniti v to?
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Žal nisem preizkusil kode v tako velikih vrsticah podatkov. Morda lahko naredite kopijo svojih podatkov in preizkusite, ali koda deluje.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, ta koda VBA je super uporabna.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL