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

Hoe automatisch rijen verbergen als lege cellen in een kolom?

Als u een gegevensbereik hebt dat enkele lege cellen in een kolom bevat, en nu wilt u de rijen die de lege cellen in die kolom bevatten, automatisch verbergen. Zijn er goede manieren om deze taak snel en gemakkelijk in Excel op te lossen?

Verberg automatisch rijen als lege cellen in een kolom met VBA-code


pijl blauw rechts bel Verberg automatisch rijen als lege cellen in een kolom met VBA-code

De volgende code kan u helpen om alle rijen als lege cellen in een specifieke kolom in één keer te verbergen, en als u de celinhoud in die kolom verwijdert, worden de rijen ook automatisch verborgen. Ga als volgt te werk:

1. Klik met de rechtermuisknop op de bladtab waarvan u de rijen automatisch wilt verbergen als er lege cellen in een kolom staan, en kies dan Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege ruimte Module:

VBA-code: rijen automatisch verbergen als lege cellen in een kolom:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

doc automatisch rijen verbergen 1

Opmerking:: In de bovenstaande code, A1: A20 is de gegevenslijst die de lege cellen bevat die u automatisch wilt verbergen.

2. Ga dan terug naar het werkblad, en nu, wanneer u dubbelklikt op een cel en op drukt Enter key, zijn de rijen die lege cellen in kolom A bevatten in één keer verborgen, en als u celinhoud in de opgegeven cellen van kolom A wist, worden de rijen automatisch verborgen.

doc automatisch rijen verbergen 2

 


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant

 

Comments (30)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik gebruik Excel 2016 en het werkt niet. Ik krijg een sintax-foutmelding. kun je helpen?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Ant,

De bovenstaande code werkt goed in mijn Excel 2016, heb je de celverwijzing in de code naar wens gewijzigd?
Deze opmerking is gemaakt door de moderator op de site
Ik krijg een runtime-fout '13':



Type komt niet overeen



Iemand die kan helpen???
Deze opmerking is gemaakt door de moderator op de site
Kan ik voorkomen dat deze macro automatisch wordt uitgevoerd nadat ik op enter heb gedrukt? Kan ik het aan een knop koppelen om de cellen alleen te verbergen wanneer ik klik?
Deze opmerking is gemaakt door de moderator op de site
heeft iemand dit ooit bedacht? Ik zou het ook graag willen weten.
Deze opmerking is gemaakt door de moderator op de site
iemand al op het antwoord gekomen?
Deze opmerking is gemaakt door de moderator op de site
dezelfde vraag hier
Deze opmerking is gemaakt door de moderator op de site
Hallo, jongens,
Ga als volgt te werk om de rijen te verbergen waarin een specifieke kolom lege cellen bevat met behulp van een knop:
Eerst moet u een opdrachtknop invoegen vanaf het tabblad Ontwikkelaar.
En pas vervolgens de volgende VBA-code toe voor de opdrachtknop, (Opmerking: verander de celverwijzing a1:a20 in uw eigen)

Private Sub CommandButton1_Click ()
Dim rng als bereik, x als bereik
Stel rng = Bereik ("a1:a20") in
Application.ScreenUpdating = False
Voor elke x In rng
Als Len(x.Tekst) = 0 Dan
x.EntireRow.Hidden = Waar
Anders
x.EntireRow.Hidden = Onwaar
End If
Volgende x
Application.ScreenUpdating = True
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
hoe rijen automatisch te verbergen als lege cellen in 2 verschillende kolommen met VBA-code
Deze opmerking is gemaakt door de moderator op de site
Hallo, salpe,
Om de rijen automatisch te verbergen als er lege cellen in 2 verschillende kolommen zijn, past u de volgende code toe:

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xRg, xCell als bereik
Dim xRgs, xRgArea als bereik
Stel xRgs = Bereik ("A1:A22,D1:D22") in
Application.ScreenUpdating = False
Bij fout Ga naar Ctn
Voor elke xRgArea in xRgs.Areas
Debug.Print xRgArea.Adres
Voor elke xRg in xRgArea.Columns
Voor elke xCell In xRg.Rijen
Als xCell.Value = "" Dan
xCell.EntireRow.Hidden = Waar
Ga naar Ctn
ElseIf Not xCell.Hele rij.Verborgen dan
xCell.EntireRow.Hidden = Onwaar
End If
Ctn:
Volgende
Volgende
Volgende
Application.ScreenUpdating = True
End Sub

U kunt de celverwijzingen naar uw behoefte wijzigen.
Alstublieft probeer het!
Deze opmerking is gemaakt door de moderator op de site
الله وجزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود حذف الصف يبطأ الشيت بطريقة طويلة جدا فما العمل؟
Deze opmerking is gemaakt door de moderator op de site
Ik wil weten of de code werkt Als de cel leeg is als gevolg van Formule ?
Deze opmerking is gemaakt door de moderator op de site
Hallo, ACHINTA,
De bovenstaande VBA-code wordt ook toegepast op de lege cellen als resultaat van de formule, je zou het kunnen proberen, bedankt!
Deze opmerking is gemaakt door de moderator op de site
De formule werkt om cellen aan het begin te verbergen op basis van informatie, maar onthult cellen niet opnieuw als hun inhoud verandert. Ik wil dat het nieuwe cellen onthult die zijn gevuld met informatie (wat gebeurt via een celzoekopdracht). Hoe doe ik dit?
Deze opmerking is gemaakt door de moderator op de site
Als het goed is, is het minha noodzakelijk também.

Preciso ocultar e quando a célula for preenchida (uso uma formula que preenche a mesma se houver em outra planilha) seja reexibida een linha novamente de forma automática.

Dank je we.
Deze opmerking is gemaakt door de moderator op de site
Wat ik wil is zoiets als dit om in het actieve blad te werken:

Als cellen D2:D55 = ""
Dan verbergen.Volledige rij

Als cellen D2:D55 = "een waarde heeft"
Dan Toon.Volledige Rij

Hoe werkt het?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Kacha, je hoeft alleen de celverwijzing in de code naar je eigen celbereik te wijzigen, zoals hieronder: Private Sub Worksheet_Change (ByVal-doel als bereik)
'Bijwerken door' Extendoffice
Dim xRg als bereik
Application.ScreenUpdating = False
Voor elke xRg binnen bereik ("D2:D55")
Als xRg.Value = "" Dan
xRg.EntireRow.Hidden = Waar

Anders
xRg.EntireRow.Hidden = Onwaar
End If
Volgende xRg
Application.ScreenUpdating = True
End SubNa het invoegen van de code, vergeet niet om op een cel te dubbelklikken en op de Enter-toets te drukken om de code van kracht te laten worden.
Deze opmerking is gemaakt door de moderator op de site
Wat is de eenvoudigste manier om het automatisch verbergen ongedaan te maken?
Deze opmerking is gemaakt door de moderator op de site
Hallo, mijn vriend 2 code trong 1 bestand excel (1 code met een bon) door te zoeken naar een riêng biệt và không door thừa dòng trng. Khi mình in từng bản thì ok nhưng nếu in 1 lot deze code Hide không có tác dụng, bạn xem giúp mình với nhé, mình cảm ơn!

Sub PRINT_PRINT()
Dim rng als bereik, x als bereik
Stel rng = Bereik ("a16:a23") in
Application.ScreenUpdating = False
Voor elke x In rng
Als Len(x.Tekst) = 0 Dan
x.EntireRow.Hidden = Waar
Anders
x.EntireRow.Hidden = Onwaar
End If
Volgende x
Application.ScreenUpdating = True


Dim p1, p2, i&
p1 = Blad1.Bereik("O1").Waarde
p2 = Blad1.Bereik("O2").Waarde
Als IsNumeriek(p1) = Onwaar Of IsNumeriek(p2) = Onwaar Dan
tb = MsgBox ("Dus code phai la so.", , "Thông báo")
Exit Sub
End If
Als p1 > p2 Dan
tb = MsgBox("Dus code sau phai >= dus code truoc.", , "Thông báo")
Exit Sub
End If
Als p1 < 1 Of p2 < 1 Dan
tb = MsgBox("Dus code phai >= 1.", , "Thông báo")
Exit Sub
End If
Als p1 <= p2 Dan
Voor i = p1 Naar p2
Blad1.Bereik("M2").Waarde = i
Blad1.Afdrukken
Volgende
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hola,Noodzakelijk om een ​​macro te maken die een kolom kan weergeven.Sería así: in de eerste plaats op een 1 een las columnas que no quiero ocultar y no poner ningún valor a las que quiero ocultar. Estoy haciendo el siguiente código, pero no se en que fallo:
Sub OcultarColumnaSin1()
Application.ScreenUpdating = False
Voor elke rango in kolommen
Als rango = "" Dan
rango.EntireColumn.Hidden = Waar
Anders
rango.EntireColumn.Hidden = Onwaar
End If
volgende rango
Application.ScreenUpdating = True
End Sub
Deze opmerking is gemaakt door de moderator op de site
Dit werkt prima voor mij, het verbergt de rijen en opent ze wanneer mijn waarden veranderen op basis van formules. De vraag die ik heb is dat mijn blad 104 rijen lang is. Elke keer dat ik op een cel klik, draait het een beetje. Is er een manier om de overgang te versnellen wanneer deze is geactiveerd? Of is het mijn computer? Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Ik wil rijen automatisch verbergen als kolom E leeg of 0 . is
Deze opmerking is gemaakt door de moderator op de site
Als de waarde in kolom E leeg of 0 is, wil ik dat de rij automatisch wordt verborgen. Als de waarde in E verandert in iets anders dan blanco of 0, wil ik dat dit wordt weergegeven. Rapport is 1500 rijen
Deze opmerking is gemaakt door de moderator op de site
Hallo, Cathy,
Gebruik de onderstaande vba-code om de rijen automatisch te verbergen op basis van lege cellen of 0-waarden:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("E1:E1500")
            If (xRg.Value = "") Or (xRg.Value = "0") Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub


Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Hoe een rij te verbergen die een selectievakje bevat?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Sweta

Om rijen met selectievakje te verbergen, kan het onderstaande artikel u een plezier doen:
Hoe het selectievakje te verbergen wanneer rij is verborgen in Excel?

Probeer het alsjeblieft, als je nog een andere vraag hebt, reageer dan hier.
Deze opmerking is gemaakt door de moderator op de site
Bij het uitvoeren van de code in Office 2013/2019/2021 werkt het, maar het duurt te lang om te voltooien (slechts 95 rijen om te verbergen).
Hoe kun je dit versnellen?
Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Hallo, Asaf,
De code werkt goed in mijn Excel-bestand, zou je hier je bijlagewerkboek kunnen uploaden als je het niet erg vindt? Zodat we kunnen helpen om het probleem te controleren.

Dank je!
Deze opmerking is gemaakt door de moderator op de site
apakah ada rumus lain?, saya berharap baris kosong itu akan terhapus saat mencetak file menjadi PDF tapi tampilan di excelnya tetap
Deze opmerking is gemaakt door de moderator op de site
Hallo, Nurjanah
Om uw probleem op te lossen, moet u eerst de lege rijen verbergen en vervolgens de gegevens afdrukken. Nadat u de gegevens hebt afgedrukt, moet u de lege rijen weer zichtbaar maken. Doe alsjeblieft als volgt:
1. Pas deze formule toe: =COUNTA(A2:E2) naast uw gegevens, zie screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png
2. Filter vervolgens de nieuwe helper Lege kolom, verberg alle rijen met 0 waarden, zie screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png
3. En dan moet u de nieuwe lege kolom verbergen en de gegevens afdrukken. Annuleer na het afdrukken van het werkblad het filter om de lege rijen zichtbaar te maken als u dat wilt.
Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties