Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

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

Za filtrirani seznam boste morda morali izbrisati skrite ali vidne vrstice, da boste ohranili le uporabne podatke. V tem članku vam bomo prikazali načine za brisanje ostalih 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

Izbrišite skrite ali vidne vrstice filtriranega seznama s programom Kutools for Excel


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


Ta razdelek vam prikaže kodo VBA, da izbrišete skrite vrstice v aktivnem listu. Prosimo, naredite na naslednji način.

1. Aktivirajte delovni list, ki ga potrebujete za brisanje skritih vrstic, pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

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

VBA koda: 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 ključ za zagon kode. Če v aktivnem listu obstajajo skrite vrstice, se po zagonu kode pojavi pogovorno okno, ki vam pove, koliko skritih vrstic je bilo izbrisanih. Kliknite na OK gumb za brisanje skritih vrstic. Prikaz slike:

doc brisanje počitka 1

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

doc brisanje počitka 1

Opombe: zgornja koda VBA ne more samo izbrisati skritih vrstic filtriranega seznama, temveč tudi izbrisati skrite vrstice, ki ste jih prej že ročno skrili.


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

Če želite izbrisati vidne vrstice filtriranega seznama, naredite naslednje.

1. Izberite vse filtrirane vrstice in pritisnite F5 ključ, da odprete Pojdi na pogovorno okno, nato kliknite Poseben gumb. Prikaz slike:

doc brisanje počitka 1

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

doc brisanje počitka 1

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

doc brisanje počitka 1

Vse do sedaj so izbrisane z filtriranega seznama.


Izbrišite skrite ali vidne vrstice filtriranega seznama s programom Kutools for Excel

Zgornja dva načina morda niso rešitve želja za številne uporabnike programa Excel, tu vam predstavljamo priročno orodje. Z Izbriši skrite (vidne) vrstice in stolpce uporabnost Kutools za Excel, lahko preprosto izbrišete skrite vrstice v izbranih obsegih / listih, aktivnem listu ali vseh delovnih listih v Excelu.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, brezplačno lahko poskusite brez omejitev v 60 dneh.

1. Če želite le izbrisati skrite ali vidne vrstice filtriranega seznama, izberite ročno filtrirano območje in kliknite Kutools > Brisanje > Izbriši skrite (vidne) vrstice in stolpce. Prikaz slike:

2. V Ljubljani Izbriši skrite (vidne) vrstice in stolpce pogovorno okno, izberite V izbranem območju v Poglej v spustni seznam (lahko izberete druge možnosti, kot jih potrebujete), preverite Vrstice možnost v Izbriši vrsto oddelek, in v Podroben tip oddelek, preveri Vidne vrstice or Skrite vrstice možnost, kot jo potrebujete. In končno kliknite na OK gumb. Prikaz slike:

doc brisanje počitka 1

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

doc brisanje počitka 1


Izbrišite skrite ali vidne vrstice filtriranega seznama s programom Kutools for Excel

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Prenesite brezplačen preskus zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Maximillian Eckemoff · 11 months ago
    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?
    • To post as a guest, your comment is unpublished.
      crystal · 11 months ago
      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