Ga naar hoofdinhoud

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 Sorteer 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 > Sorteer, zie screenshot:

4. In de pop-out Sorteer 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 Sorteer dialoogvenster en selecteer Rij 1 van het Sorteer op drop-down en selecteer Celwaarden oppompen van Sorteer op sectie, kies Grootste tot kleinste van het Bestelling 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 Verwijder 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

De 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 > Verwijder > 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 oppompen 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.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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...

Omschrijving


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!

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It deleted all my names in my first name column! Auuggh!
This comment was minimized by the moderator on the site
Thanks its very helpful page with basic excel option :)
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Hello,


try to implement below code
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
the above details are very helpful for my personal use. Thanks for your guidance. M.KARTHIKEYAN :-)
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations