Hoe verwijdert u snel meerdere lege kolommen in Excel?
Soms zitten er bij het importeren van gegevens in Microsoft Excel vanaf een webpagina, uit CSV- of tekstbestanden enzovoort veel lege kolommen tussen. Het kost dan veel tijd om al die lege kolommen één voor één handmatig te verwijderen. Daarom zoeken veel gebruikers naar eenvoudige oplossingen voor dit vervelende probleem. In dit artikel vindt u handige tips om meerdere lege kolommen snel en efficiënt te verwijderen.
Meerdere lege kolommen verwijderen in werkblad met formule
Meerdere lege kolommen verwijderen in werkblad met VBA-code
Meerdere lege kolommen met een koptekst verwijderen met behulp van VBA-code
Meerdere lege kolommen verwijderen in werkblad met formule
In Excel kunt u een formule gebruiken om te controleren of kolommen leeg zijn, en daarna de functie Sorteren toepassen om alle lege kolommen bij elkaar te groeperen — zodat u ze in één keer kunt verwijderen. Volg deze stappen:
1. Voeg een nieuwe rij toe bovenaan uw gegevensbereik, zie schermafbeelding:
2. Voer vervolgens de onderstaande formule in cel A1 in en sleep de vulgreep naar rechts om deze toe te passen op andere cellen. WAAR verschijnt als de kolom leeg is; anders wordt ONWAAR weergegeven (zie schermafbeelding):
3. Selecteer vervolgens het gegevensbereik, inclusief de hulprij, en klik op **Gegevens** > **Sorteren** (zie schermafbeelding).
4. Klik in het pop-updialoogvenster „Sorteren” op de knop „Opties”. Selecteer in het dialoogvenster „Sorteeropties” de optie „Van links naar rechts sorteren” – zie de schermafbeeldingen:
 |  |  |
5. Klik op OK om terug te keren naar het dialoogvenster „Sorteren”. Selecteer vervolgens „Rij 1” in de vervolgkeuzelijst „Sorteren op”, kies „Celwaarden” onder „Soort” en selecteer „Grootste naar kleinste” in het gedeelte „Volgorde” (zie schermafbeelding).
6. Vervolgens zijn alle lege kolommen aan de linkerkant van uw gegevens gesorteerd. Selecteer nu eenvoudigweg alle kolommen, klik er met de rechtermuisknop op en kies ‘Verwijderen’ om deze lege kolommen in één keer te verwijderen — zie schermafbeelding:
Meerdere lege kolommen verwijderen in werkblad met VBA-code
Als u een VBA-macro wilt gebruiken, wordt het nog eenvoudiger. De volgende VBA-code helpt u daarbij. Volg deze stappen:
1. Druk op Alt + F11 in Excel om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op 'Invoegen' > 'Module' en plak de volgende macro in het modulevenster.
VBA-code: Meerdere Lege kolommen verwijderen in selectie:
Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. Druk op de F5-toets om de macro uit te voeren en kies het gewenste werkgebied in het pop-updialoogvenster. Zie schermafbeelding:
4. Klik op OK en alle lege kolommen in de selectie worden direct verwijderd. Zie de schermafbeelding:
Meerdere lege kolommen verwijderen in Geselecteerd bereik / Huidig werkblad / hele werkmap met Kutools voor Excel
De tool 'Verwijder verborgen rijen/kolommen' van Kutools voor Excel helpt u snel meerdere lege rijen of kolommen in één keer te verwijderen.
Na installatie vanKutools for Excel, volgt u deze stappen:
1. Klik op „Kutools” > „Verwijderen” > „Verwijder verborgen rijen/kolommen”, zie de schermafbeelding:
2. Geef in het dialoogvenster „Verwijder verborgen rijen/kolommen” via de vervolgkeuzelijst „Zoeken in” het bereik op waarop u de bewerking wilt toepassen. (Als u voor „Geselecteerd bereik” kiest, dient u eerst een bereik te selecteren.) Vink daarna „Kolommen” aan onder „Verwijder type” en kies „Lege kolommen” bij „Gedetailleerd type”. Zie schermafbeelding:
3. Klik vervolgens op OK. De lege kolommen zijn nu verwijderd uit het geselecteerde bereik. Zie de schermafbeelding:
Meerdere lege kolommen met een koptekst verwijderen met behulp van VBA-code
Soms wilt u alle lege kolommen verwijderen die alleen een koptekst bevatten in uw werkblad. De volgende VBA-code helpt u daarbij. Volg deze stappen:
1. Druk op „Alt + F11” in Excel om het venster „Microsoft Visual Basic for Applications” te openen.
2. Klik op 'Invoegen' > 'Module' en plak de volgende macro in het modulevenster.
VBA-code: Alle lege kolommen met een koptekst verwijderen
Sub deleteblankcolwithheader()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank column(s) with only a header row have been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Druk daarna op de F5-toets om de code uit te voeren. Er verschijnt een meldingsvenster waarin u wordt gewaarschuwd dat lege kolommen met koptekst worden verwijderd — zie schermafbeelding:
4. Klik vervolgens op OK om alle lege kolommen met alleen een koptekst in het huidige werkblad in één keer te verwijderen. Zie de schermafbeeldingen:
 | |  |
Meer gerelateerde artikelen:
- Alle verborgen rijen of kolommen in Excel verwijderen
- Als u een grote werkmap hebt met veel verborgen rijen en kolommen die nu niet meer nodig zijn, hoe verwijdert u die dan snel allemaal?
- Alle afbeeldingen of andere objecten in Excel verwijderen
- Als u alle afbeeldingen uit Microsoft Excel wilt verwijderen, is het tijdrovend om ze één voor één handmatig te selecteren en te verwijderen. Met de volgende trucs maakt u dit werk een stuk eenvoudiger.
- Rijen verwijderen op basis van Achtergrondkleur in Excel
- Hoe verwijdert u een gehele rij op basis van de achtergrondkleur? In dit voorbeeld wilt u alle rijen verwijderen waarvan de cellen een blauwe achtergrondkleur hebben, zoals te zien is in de onderstaande schermafbeelding. Dit artikel biedt u enkele codes om deze taak in Excel uit te voeren.
- Alle rijen verwijderen die specifieke tekst bevatten binnen een kolom in Google-bladen
- Stel dat u een reeks gegevens hebt in een Google-blad en rijen wilt verwijderen op basis van celwaarden in een bepaalde kolom. Bijvoorbeeld: u wilt alle rijen verwijderen die de tekst „Complete” bevatten in kolom C. In dit artikel leggen we uit hoe u dat eenvoudig voor elkaar krijgt in Google Bladen.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins