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:
Note: 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. |
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 het 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:
Note: 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!
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!