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:

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

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

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.

Lees verder... Gratis download... Aankoop... 

---

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!

Lees verder... Gratis download... Aankoop...