Hoe kan ik meerdere lege rijen of kolommen in Excel tegelijk verbergen in Excel?

Als u de lege rijen of kolommen wilt verbergen of verwijderen, kan dit u helpen om het werkblad te verdichten. In dit artikel zal ik u enkele snelle manieren voorstellen om de lege rijen of kolommen in het Excel-werkblad te verbergen of te verwijderen.

Verberg snel meerdere lege rijen of kolommen met VBA-code

Verwijder snel meerdere lege rijen of kolommen met Kutools voor Excel

---

Verberg snel meerdere lege rijen of kolommen met VBA-code

De volgende VBA-code kan u helpen om snel en gemakkelijk meerdere lege rijen of kolommen in een werkblad te verbergen.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: verberg meerdere lege rijen in een werkblad

Sub HideEmpties()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    For I = 1 To xRg.Row + xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            xRg.Rows(I).EntireRow.Hidden = True
        End If
    Next
End Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er wordt een promptvenster weergegeven om u eraan te herinneren het gegevensbereik te selecteren waarvan u de lege rijen wilt verbergen, zie screenshot:

4. En klik vervolgens op OK knop, worden de lege rijen tegelijk verborgen, zie screenshot:

Opmerking:: Pas de volgende VBA-code toe om meerdere lege kolommen te verbergen:

VBA-code: verberg meerdere lege kolommen in een werkblad

Sub HideEmpties()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    For I = 1 To xRg.Column + xRg.Columns.Count
        If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
            xRg.Columns(I).EntireColumn.Hidden = True
        End If
    Next
End Sub

---

Verwijder snel meerdere lege rijen of kolommen met Kutools voor Excel

In dit gedeelte zal ik het hebben over het verwijderen van meerdere lege rijen of kolommen die u ongewenst bent in een bereik, werkblad of werkmap. De Kutools for Excel's Verwijder verborgen (zichtbare) rijen en kolommen hulpprogramma kan u helpen deze taak zo snel mogelijk op te lossen.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen.

Ga naar downloaden Gratis proefperiode 30 dagenKoop nu jouw PayPal / Mijn Handel

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Selecteer het gegevensbereik waarvan u de lege rijen of kolommen wilt verwijderen en klik op Kutools > Verwijder > Verwijder verborgen (zichtbare) rijen en kolommen, zie screenshot:

2. In de Verwijder verborgen (zichtbare) rijen en kolommen dialoogvenster, selecteer In geselecteerd bereik in Kijk in vervolgkeuzelijst (u kunt ook een andere optie in deze vervolgkeuzelijst kiezen als u nodig hebt), selecteer Rijen or columns van de Verwijder type sectie, en kies Lege rijen or Lege kolommen onder de Gedetailleerd type sectie, zie screenshot:

3. En klik vervolgens op Ok knop, zijn de lege rijen of kolommen in de selectie in één keer verwijderd. Zie screenshot:

Opmerking:: Met deze functie kunt u ook verborgen rijen of kolommen, zichtbare rijen of kolommen in selectie, werkblad of werkmap verwijderen als u dat wilt.

Klik op Kutools nu gratis downloaden voor Excel!