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 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.
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 verborgen rijen of kolommen in Excel
- Als u een grote werkmap heeft met veel verborgen rijen en kolommen en nu zijn de verborgen gegevens niet beschikbaar, dan wilt u ze allemaal verwijderen. Hoe kun je ze snel verwijderen?
- 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.
- Verwijder alle rijen met specifieke tekst in een kolom in Google Spreadsheets
- Stel dat u een gegevensbereik in een Google-spreadsheet heeft, nu wilt u de rijen verwijderen op basis van celwaarden in een kolom. Ik wil bijvoorbeeld alle rijen verwijderen die de tekst "Complete" in kolom C bevatten. In dit artikel zal ik het hebben over hoe u dit in Google-bladen kunt oplossen.
Beste Office-productiviteitstools
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...
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!