Inhoudsopgave
De zelfstudie leert u hoe u lege kolommen in Excel kunt verwijderen met een macro, formule en een druk op de knop.
Hoe triviaal het ook klinkt, het verwijderen van lege kolommen in Excel is niet iets dat met een simpele muisklik kan worden gedaan. Het vooruitzicht om alle kolommen in uw werkblad te bekijken en de lege kolommen handmatig te verwijderen is zeker iets dat u wilt vermijden. Gelukkig biedt Microsoft Excel een groot aantal verschillende functies, en door gebruik te maken van diefuncties op creatieve manieren kun je bijna elke taak aan!
Snelle manier om lege kolommen te verwijderen die u nooit mag gebruiken
Als het gaat om het verwijderen van lege cellen in Excel (of het nu gaat om lege cellen, rijen of kolommen), vertrouwen veel online bronnen op het Ga naar Speciaal > Blanks commando. Doe dat nooit. in jullie werkbladen!
Deze methode ( F5 > Speciaal... > Blanks ) vindt en selecteert alle lege cellen in de reeks:
Als u nu met de rechtermuisknop op de geselecteerde cellen klikt en kiest voor Verwijder > Gehele kolom alle kolommen die ten minste één lege cel Als je dat per ongeluk hebt gedaan, druk dan op Ctrl + Z om alles terug te krijgen.
Nu u een verkeerde manier kent om lege kolommen in Excel te verwijderen, laten we eens kijken hoe u het goed kunt doen.
Hoe lege kolommen verwijderen in Excel met VBA
Ervaren Excel-gebruikers kennen deze vuistregel: geen uren verspillen door iets handmatig te doen, maar een paar minuten investeren in het schrijven van een macro die het automatisch voor u doet.
De onderstaande VBA-macro verwijdert alle lege kolommen in het geselecteerde bereik. En het doet dit veilig - alleen absoluut lege kolommen worden verwijderd. Als een kolom een enkele celwaarde bevat, zelfs een lege tekenreeks die door een of andere formule wordt geretourneerd, blijft zo'n kolom intact.
Excel macro: lege kolommen verwijderen uit Excel sheet Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range On Error Resume Next Set SourceRange = Application.InputBox( _ "Selecteer een bereik:" , "Delete Empty Columns" , _ Application.Selection.Address, Type :=8) If Not (SourceRange Is Nothing ) Then Application.ScreenUpdating = False For i = SourceRange.Columns.Count To 1Stap -1 Stel EntireColumn = SourceRange.Cells(1, i).EntireColumn Als Application.WorksheetFunction.CountA(EntireColumn) = 0 Dan EntireColumn.Delete End If Next Application.ScreenUpdating = True End If End SubHoe de macro Lege kolommen verwijderen gebruiken
Hier zijn de stappen om de macro toe te voegen aan uw Excel:
- Druk op Alt + F11 om de Visual Basic Editor te openen.
- Klik in de menubalk op Plaats > Module .
- Plak de bovenstaande code in het venster Code.
- Druk op F5 om de macro uit te voeren.
- Wanneer het pop-upvenster verschijnt, schakelt u over naar het werkblad waarin u geïnteresseerd bent, selecteert u het gewenste bereik en klikt u op OK:
Als u geen macro aan uw werkblad wilt toevoegen, kunt u deze uitvoeren vanuit onze voorbeeldwerkmap. Zo gaat u te werk:
- Download onze voorbeeldwerkmap om lege kolommen in Excel te verwijderen, open deze en schakel de inhoud in als daarom wordt gevraagd.
- Open uw eigen werkmap of schakel over naar de reeds geopende werkmap.
- Druk in uw werkmap op Alt + F8 , selecteer de DeleteEmptyColumns macro, en klik op Ren .
- Selecteer in het pop-up venster het bereik en klik op OK .
In beide gevallen worden alle lege kolommen in het geselecteerde bereik verwijderd:
Identificeren en verwijderen van lege kolommen in Excel met een formule
De bovenstaande macro verwijdert lege kolommen snel en geruisloos. Maar als u een persoon bent die alles onder controle houdt (zoals ik :) wilt u misschien visueel zien welke kolommen worden verwijderd. In dit voorbeeld zullen we eerst lege kolommen identificeren met behulp van een formule, zodat u ze snel kunt bekijken, en vervolgens alle of enkele van die kolommen kunt verwijderen.
Opmerking. Voordat u iets permanent verwijdert, vooral met een onbekende techniek, raad ik u ten zeerste aan om een reservekopie van je werkmap, voor de zekerheid als er iets misgaat.
Met een reservekopie op een veilige plaats voert u de volgende stappen uit:
Stap 1. Voeg een nieuwe rij in
Voeg een nieuwe rij toe bovenaan uw tabel. Klik hiervoor met de rechtermuisknop op de eerste rij en klik op Plaats Maak u geen zorgen over het wijzigen van de structuur/indeling van uw gegevens - u kunt deze rij later verwijderen.
Stap 2. Identificeer lege kolommen
Voer in de meest linkse cel van de nieuw toegevoegde rij de volgende formule in:
=COUNTA(A2:A1048576)=0
En dan kopieert u de formule naar de andere kolommen door de vulgreep te verslepen.
De logica van de formule is heel eenvoudig: COUNTA controleert het aantal lege cellen in de kolom, van rij 2 tot rij 1048576, wat een rijenmaximum is in Excel 2019 - 2007. Je vergelijkt dat aantal met nul en als resultaat heb je TRUE in lege kolommen en FALSE in de kolommen die ten minste één niet-lege cel bevatten. Door het gebruik van relatieve celverwijzingen past de formule zich goed aan voor elke kolomwaar het wordt gekopieerd.
Als u het werkblad voor iemand anders opstelt, wilt u misschien de kolommen op een meer betekenisvolle manier labelen. Geen probleem, dit kan gemakkelijk worden gedaan met een IF-instructie zoals deze:
=IF(COUNTA(A2:A1048576)=0, "Blank", "Niet blank")
Nu geeft de formule expliciet aan welke kolommen leeg zijn en welke niet:
Tip. Vergeleken met een macro geeft deze methode u meer flexibiliteit met betrekking tot welke kolommen als leeg moeten worden beschouwd. In dit voorbeeld controleren we de hele tabel, inclusief de header-rij. Dat betekent dat als een kolom alleen een header bevat, deze kolom niet als leeg wordt beschouwd en niet wordt verwijderd. Als u alleen gegevensrijen wilt controleren kolomkoppen negeren verwijdert u de koprij(en) uit het doelbereik (A3:A1048576). Het resultaat is dat een kolom met een kop en geen andere gegevens erin als leeg wordt beschouwd en kan worden verwijderd. U kunt het bereik ook beperken tot de laatst gebruikte rij, die in ons geval A11 zou zijn.
Stap 3. Verwijder lege kolommen
Als u een redelijk aantal kolommen hebt, kunt u gewoon de kolommen selecteren met "Blank" in de eerste rij (om meerdere kolommen te selecteren houdt u de Ctrl-toets ingedrukt terwijl u op de kolomletters klikt). Klik vervolgens met de rechtermuisknop op een geselecteerde kolom en kies Verwijder uit het contextmenu:
Als er tientallen of honderden kolommen in uw werkblad staan, is het zinvol om alle lege kolommen in beeld te brengen. Doe daarvoor het volgende:
- Selecteer de bovenste rij met formules, ga naar de Gegevens tab> Sorteren en filteren groep, en klik op de Sorteer knop.
- In het waarschuwingsdialoogvenster dat verschijnt, selecteert u De selectie uitbreiden en klik Soort...
- Dit opent de Sorteer dialoogvenster, waarin u de Opties... knop, selecteer Van links naar rechts, en klik op OK .
- Configureer slechts één sorteerniveau zoals hieronder en klik op OK:
- Sorteren op: Rij 1
- Sorteren op: Celwaarden
- Volgorde: A tot Z
Hierdoor worden de lege kolommen verplaatst naar het linkerdeel van uw werkblad:
- Selecteer alle lege kolommen - klik op de eerste kolomletter, druk op Shift, en klik dan op de letter van de laatste lege kolom.
- Klik met de rechtermuisknop op de geselecteerde kolommen en kies Verwijder uit het pop-up menu.
Klaar! Je bent van de lege kolommen af, en er is niets dat je er nu van weerhoudt de bovenste rij met de formules te verwijderen.
Snelste manier om lege kolommen in Excel te verwijderen
In het begin van deze tutorial schreef ik dat er geen één-klik manier is om lege kolommen in Excel te verwijderen. In feite is dat niet helemaal waar. Ik had moeten zeggen dat er geen ingebouwde manier is. De gebruikers van onze Ultimate Suite kunnen lege kolommen in Excel letterlijk in een paar klikken verwijderen :)
Schakel in het doelwerkblad over naar de Ablebits Gereedschap tabblad, klik op Blanco's verwijderen en kies Lege kolommen :
Om er zeker van te zijn dat dit geen toevallige muisklik was, vraagt de invoegtoepassing u te bevestigen dat u echt lege kolommen uit dat werkblad wilt verwijderen:
Klik op OK en in een ogenblik zijn alle lege kolommen verdwenen!
Net als de hierboven besproken macro verwijdert dit hulpmiddel alleen de kolommen die absoluut leeg Kolommen met een willekeurige waarde, inclusief koppen, blijven behouden.
Blanco's verwijderen is slechts een van de tientallen prachtige functies die uw leven als Excel-gebruiker kunnen vergemakkelijken. Voor meer informatie kunt u een proefversie van onze Ultimate Suite voor Excel downloaden.
Blanco kolommen worden niet verwijderd! Waarom?
Issue U hebt alle bovenstaande methoden geprobeerd, maar een of meer lege kolommen blijven in uw werkblad steken. Waarom?
Waarschijnlijk omdat die kolommen niet echt leeg zijn. Veel verschillende voor het menselijk oog onzichtbare tekens kunnen ongemerkt op de loer liggen in uw Excel-spreadsheets, vooral als u informatie uit een externe bron hebt geïmporteerd. Dat kan een lege tekenreeks zijn of een spatie, een niet-brekende spatie of een ander niet-afdrukbaar teken.
Om de boosdoener vast te stellen, selecteert u de eerste cel in de problematische kolom en drukt u op Ctrl + pijl omlaag . Bijvoorbeeld, kolom C in de onderstaande schermafbeelding is niet leeg vanwege een enkele spatie in C6:
Dubbelklik op de cel om te zien wat er werkelijk in staat, of druk gewoon op de Delete-toets om het onbekende weg te werken. En herhaal dan het bovenstaande proces om uit te zoeken of er nog andere onzichtbare dingen in die kolom staan. U kunt uw gegevens ook opschonen door voorloop-, sleep- en niet-breekspaties te verwijderen.
Ik dank u voor het lezen en hoop u volgende week op onze blog te zien!
