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

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

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.

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.

Lees verder... Gratis download... Aankoop...

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 voor u!

Lees verder... Gratis download... Aankoop...

17 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

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.
Ken · 4 months ago
What is the simplest way to undo the auto-hide?
- Reply
To post as a guest, your comment is unpublished.
Kacha · 1 years ago
What I want is something like this to work in the active sheet:

If cells D2:D55 = ""
Then Hide.EntireRow

If cells D2:D55 = "has any value"
Then Show.EntireRow

How?
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 11 months ago
  
  Hello, Kacha,
  You just need to change the cell reference in the code to your own cell range as below:
  Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice Dim xRg As Range Application.ScreenUpdating = False For Each xRg In Range("D2:D55") If xRg.Value = "" Then xRg.EntireRow.Hidden = True Else xRg.EntireRow.Hidden = False End If Next xRg Application.ScreenUpdating = True End Sub
  After inserting the code, please remember to double click any cell and press Enter key to make the code take effect.
  
  Reply
To post as a guest, your comment is unpublished.
Josh · 2 years ago
The formula works to hide cells based on information, at the beginning, but does not re-reveal cells if their content changes. I want it to reveal any new cells that have been filled with information (which occurs via a cell lookup). How do I do this?
- Reply
To post as a guest, your comment is unpublished.
ACHINTA PANDE · 2 years ago
I want to know whether the code will work If the cell is blank as a result of Formula ?
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 2 years ago
  
  Hello, ACHINTA,
  The above VBA code is also applied to the blank cells as a result of formula, you could try it, thank you!
  
  Reply
To post as a guest, your comment is unpublished.
فتحى السعيد · 3 years ago
بسم الله وجزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود حذف الصف يبطأ الشيت بطريقة طويلة جدا فما العمل؟
- Reply
To post as a guest, your comment is unpublished.
chinmay salpe · 3 years ago
how to Auto hide rows if blank cells in 2 different columns with VBA code
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 3 years ago
  
  Hi, salpe,
  To hide the rows if blank cells in 2 different columns automatically, please apply the following code:
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim xRg, xCell As Range
  Dim xRgs, xRgArea As Range
  Set xRgs = Range("A1:A22,D1:D22")
  Application.ScreenUpdating = False
  On Error GoTo Ctn
  For Each xRgArea In xRgs.Areas
  Debug.Print xRgArea.Address
  For Each xRg In xRgArea.Columns
  For Each xCell In xRg.Rows
  If xCell.Value = "" Then
  xCell.EntireRow.Hidden = True
  GoTo Ctn
  ElseIf Not xCell.EntireRow.Hidden Then
  xCell.EntireRow.Hidden = False
  End If
  Ctn:
  Next
  Next
  Next
  Application.ScreenUpdating = True
  End Sub
  
  You can change the cell references to your need.
  Please try it!
  
  Reply
To post as a guest, your comment is unpublished.
alex · 4 years ago
Can I stop this macro from running automatically after hitting enter? Could I attach it to a button to only hide the cells when I click?
- Reply
- To post as a guest, your comment is unpublished.
  devin · 3 years ago
  
  did anyone ever figure this out? I too would like to know.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Koop · 3 years ago
  
  anyone come up with the answer yet?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  andrea · 3 years ago
  
  same question here
  
  Reply
  
  To post as a guest, your comment is unpublished.
  skyyang · 3 years ago
  
  Hello, guys,
  To hide the rows which a specific column contains blank cells by using a button, please do as this:
  First, you should insert a Command Button from the Developer tab.
  And then apply the following VBA code for the Command Button, (Note: please change the cell reference a1:a20 to your own)
  
  Private Sub CommandButton1_Click()
  Dim rng As Range, x As Range
  Set rng = Range("a1:a20")
  Application.ScreenUpdating = False
  For Each x In rng
  If Len(x.Text) = 0 Then
  x.EntireRow.Hidden = True
  Else
  x.EntireRow.Hidden = False
  End If
  Next x
  Application.ScreenUpdating = True
  End Sub
  
  Please try it, hope it can help you!
  
  Reply
To post as a guest, your comment is unpublished.
Lars · 4 years ago
I get a Run-time error ´13´:

Type mismatch

Someone who can help???
- Reply
To post as a guest, your comment is unpublished.
Ant · 4 years ago
Hi, i am using excel 2016 and it s not working. I get a sintax error message. can you help?
- Reply
- To post as a guest, your comment is unpublished.
  skyyang · 4 years ago
  
  Hello, Ant,
  
  The above code works well in my Excel 2016, have you change the cell reference in the code to your need?
  
  Reply

Log in op uw account

Wachtwoord Resetten