Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe te om lege kolommen met kopbal in Excel te schrappen?

Als u een groot werkblad hebt dat meerdere kolommen bevat, maar sommige kolommen bevatten alleen een koptekst en u wilt nu deze lege kolommen verwijderen, waarbij alleen de koptekst de volgende schermafbeelding laat zien. Kan dit snel en eenvoudig in Excel worden opgelost?

doc verwijder lege kolommen met header 1

Lege kolommen met een header verwijderen met behulp van VBA-code

Verwijder meerdere lege kolommen in een bereik / werkblad / werkmap met Kutools voor Excel


pijl blauwe rechterbel Lege kolommen met een header verwijderen met behulp van VBA-code


In Excel is er geen directe methode om met deze taak om te gaan, met uitzondering van het een voor een handmatig verwijderen, maar hier kan ik een code voor u introduceren, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen, opent dan de Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: lege kolommen met een header verwijderen:

Sub Macro1()
'updateby Extendoffice 20160616
    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 and column(s) with only a header row have now 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 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren dat de lege kolommen met koptekst zullen worden verwijderd, zie screenshot:

doc verwijder lege kolommen met header 2

4. En klik vervolgens op OK knop, alle lege kolommen met alleen de koptekst in het huidige werkblad worden tegelijk verwijderd.

Notes: Als er lege kolommen zijn, worden deze ook verwijderd.


pijl blauwe rechterbel Verwijder meerdere lege kolommen in een bereik / werkblad / werkmap met Kutools voor Excel

Soms hoeft u alleen maar de lege kolommen te verwijderen, de Kutools for Excel's Verwijder verborgen (zichtbare) rijen en kolommen hulpprogramma kan u helpen deze taak gemakkelijk te voltooien.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

1. Selecteer het kolommenbereik waarvoor de lege kolommen moeten worden verwijderd.

2. Dan klikken Kutools > Verwijder > Verwijder verborgen (zichtbare) rijen en kolommenzie screenshot:

doc verwijder lege kolommen met header 3

3. In de Verwijder verborgen (zichtbare) rijen en kolommen dialoogvenster kunt u het verwijderingsbereik selecteren in de vervolgkeuzelijst Zoeken in, selecteert u columns van de Type verwijderen sectie en kies vervolgens Lege kolommen van de Gedetailleerd type sectie, zie screenshot:

doc verwijder lege kolommen met header 4

4. Dan klikken Ok knop en alleen de lege kolommen worden tegelijk verwijderd. Zie screenshot:

doc verwijder lege kolommen met header 5

Tips: Met deze krachtige functie kunt u ook lege rijen, zichtbare kolommen of rijen, verborgen kolommen of rijen verwijderen als u dat wilt.

Klik nu gratis downloaden Kutools downloaden voor Excel!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Kim · 1 years ago
    OMG, this is genius!!! thank you
  • To post as a guest, your comment is unpublished.
    Roger · 3 years ago
    Hi,

    Thanks for the nice code above.
    Is it free to use?