Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe verwijder ik snel meerdere lege kolommen in Excel?

Soms, wanneer u gegevens vanuit een bepaalde bron in Microsoft Excel importeert, zoals webpagina, CSV, tekst, enz., Kunnen er veel lege kolommen bij staan. Het moet tijdrovend zijn om elke lege kolom een ​​voor een te verwijderen. Daarom zoeken sommigen van ons naar eenvoudige manieren om dit probleem op te lossen. In dit artikel vindt u enkele lastige tips waarmee u snel meerdere lege kolommen kunt verwijderen.

Verwijder meerdere lege kolommen in het werkblad met de formule

Verwijder meerdere lege kolommen in het werkblad met VBA-code

Verwijder meerdere lege kolommen in selectie / actief blad / hele werkmap met een handige functie

Verwijder meerdere lege kolommen met een koptekst met behulp van VBA-code


Verwijder meerdere lege kolommen in het werkblad met de formule

In Excel kunt u een formule toepassen om aan te geven of de kolommen leeg zijn of niet, en vervolgens de Soort functie om alle lege kolommen samen te sorteren en ze vervolgens in één keer te verwijderen. Doe alstublieft als volgt:

1. Voeg een nieuwe rij toe bovenaan uw gegevensbereik, zie screenshot:

2. Voer vervolgens de onderstaande formule in cel A1 in en sleep vervolgens de vulgreep naar rechts om deze formule op andere cellen toe te passen, er wordt een WAAR weergegeven als de kolom leeg is, anders wordt een ONWAAR weergegeven, zie screenshot:

=COUNTA(A2:A1048576)=0

3. Selecteer vervolgens het gegevensbereik inclusief de hulprij en klik vervolgens op Data > Soort, zie screenshot:

4. In de pop-out Soort dialoogvenster, klik Opties knop, in het volgende Sorteer Opties dialoogvenster, selecteer Sorteer van links naar rechts optie, zie screenshots:

5. Klikken OK knop om terug te keren naar Soort dialoogvenster en selecteer Rij 1 van de Sorteer op drop-down en selecteer Celwaarden van Sorteer op sectie, kies Grootste tot kleinste van de Bestellen sectie, zie screenshot:

6. Vervolgens zijn alle lege kolommen links van uw gegevens gesorteerd, en nu hoeft u alleen maar alle kolommen te selecteren en vervolgens met de rechtermuisknop te klikken, te kiezen Delete zie screenshot om deze lege kolommen in één keer te verwijderen:


Verwijder meerdere lege kolommen in het werkblad met VBA-code

Als u VBA-macro wilt gebruiken, gaat het veel gemakkelijker. De volgende VBA-code kan u helpen, doe dit als volgt:

1. Houd de anders + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

VBA-code: verwijder meerdere lege kolommen in de selectie:

Sub DeleteEmptyColumns () 'Updatebij 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 de F5 toets om deze macro uit te voeren, selecteer het werkbereik dat u nodig hebt in het pop-outvenster. Zie screenshot:

4. Klik OK, dan worden alle lege kolommen in de selectie verwijderd. Zie screenshot:


Verwijder meerdere lege kolommen in selectie / actief blad / hele werkmap met een handige functie

Het Verwijder verborgen (zichtbare) rijen en kolommen nut van Kutools for Excel kan u helpen snel meerdere lege rijen of kolommen tegelijk te verwijderen.

Tips:Om dit toe te passen Verwijder verborgen (zichtbare) rijen en kolommen -functie, ten eerste moet u de Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Klikken Kutools > Delete > Verwijder verborgen (zichtbare) rijen en kolommen, zie screenshot:

2. In de Verwijder verborgen (zichtbare) rijen en kolommen dialoogvenster, specificeert u het bereik van waaruit u de bewerking wilt toepassen Kijk in keuzelijst. (Als jij kiest In geselecteerd bereik, moet u eerst een bereik selecteren dat u wilt gebruiken.) En vervolgens controleren columns voor Verwijder type. En selecteer Lege kolommen van Gedetailleerd type. Zie screenshot:

3. Dan klikken OK. En de lege kolommen zijn verwijderd uit het geselecteerde bereik. Zie screenshot:


Verwijder meerdere lege kolommen met een koptekst met behulp van VBA-code

Soms wilt u misschien alle lege kolommen verwijderen die alleen een koptekst in het werkblad bevatten, de volgende VBA-code kan u een plezier doen, doe dit met de volgende stappen:

1. Houd de anders + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

VBA-code: verwijder alle lege kolommen met een koptekst

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 vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren dat de lege kolommen met de koptekst worden verwijderd, zie screenshot:

4. En klik vervolgens op de knop OK, alle lege kolommen met alleen de koptekst in het huidige werkblad worden in één keer verwijderd. Zie screenshots:


Meer relatieve artikelen:

  • Verwijder alle afbeeldingen of andere objecten in Excel
  • Als u alle afbeeldingen uit Microsoft Excel wilt verwijderen, kan het tijdrovend zijn om elke afbeelding te selecteren en ze een voor een te verwijderen. De volgende trucs kunnen uw werk vergemakkelijken om alle afbeeldingen te verwijderen.
  • Verwijder rijen op basis van achtergrondkleur in Excel
  • Hoe kon je hele rijen verwijderen op basis van achtergrondkleur? In dit voorbeeld moet ik alle rijen verwijderen waarvan de cellen zijn gevuld met een blauwe achtergrondkleur, zoals in het volgende screenshot. Met dit artikel krijgt u enkele codes om deze taak in Excel uit te voeren.


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.
kte tabblad 201905

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!
officetab onderkant
Say something here...
symbols left.
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.
    Marcia · 2 years ago
    It deleted all my names in my first name column! Auuggh!
  • To post as a guest, your comment is unpublished.
    sawan · 4 years ago
    Thanks its very helpful page with basic excel option :)
  • To post as a guest, your comment is unpublished.
    shabbir juzar deluxe · 5 years ago
    Hi,
    can anyone guide how i can delete blank cells in a row or column...note whole blank column or rows... only blank cell i need to delete in a column
    • To post as a guest, your comment is unpublished.
      manjunath · 4 years ago
      Hello,


      try to implement below code
  • To post as a guest, your comment is unpublished.
    uday · 5 years ago
    Hi, the thing which you are mentioned is so helpfull.

    I want a small help from your side.

    Daily am download the some files and using pivot prepared the reports. It is daily task for me and routine process. How can i do it with out using pivot.

    Ex: If i prepared the reports on yesterday in "A" Excel file.
    Next day in "A" Excel file just i replace the new "B" Excel file data. By this automatically report would be create?

    Is it possible?
  • To post as a guest, your comment is unpublished.
    Nelson · 6 years ago
    Very helpful page. Thank you. :-)
    My challenge is that I have columns with headers, but no data in that column. Only the header is present. How would one go about deleting columns where there is no data, but the header is there? :o
  • To post as a guest, your comment is unpublished.
    KARTHIKEYAN · 8 years ago
    the above details are very helpful for my personal use. Thanks for your guidance.

    M.KARTHIKEYAN :-)
  • To post as a guest, your comment is unpublished.
    KJ St.Piere · 8 years ago
    I found it much simpler to go to the line after my last line of data, enter "Shift-Ctrl-End" to highlight all blank lines that followed(much faster), right click and enter "delete all rows/columns". The system didn't waste so much time searching this way and so it was clean in the blink of an eye and files that were 20 MB were dropped to a size of 20 kb.