Inhoudsopgave
Dit artikel laat zien hoe u lege kolommen in Excel kunt verwijderen op drie effectieve en eenvoudige manieren.
Werkboek downloaden
U kunt het oefenwerkboek hier downloaden.
Delete-Blank-Columns-in-Excel.xlsm3 eenvoudige manieren om lege kolommen in Excel te verwijderen
Hier leert u 3 manieren om lege kolommen in Excel te verwijderen, met behulp van Excel-bewerkingstools, een formule en VBA-code.
1. Door Excel-bewerkingstools te gebruiken
Stap 1: Selecteer de dataset.
Stap 2: Ga naar Home -> Vinden & selecteren -> Ga naar Speciale .
Stap 3: Van de Ga naar Speciale pop-up venster, selecteer Blanks en klik dan op OK .
Stap 4: Alleen de lege cellen van uw dataset worden geselecteerd. Klik met de rechtermuisknop, selecteer in de pop-up optielijst Verwijder .
Stap 5: Vervolgens, vanuit de pop-up Verwijder doos, kies Verschuif cellen naar links van de opties. Klik OK.
Dit verwijdert alle lege kolommen uit de dataset.
Lees meer: Hoe ongebruikte kolommen verwijderen in Excel
2. Door een formule te gebruiken
U kunt gebruik maken van COUNTA() formule om lege kolommen in Excel te verwijderen. Wat COUNTA() formule zal eerst de lege en niet lege kolommen in uw dataset in Excel identificeren, en van daaruit kunt u gemakkelijk de lege kolommen selecteren en verwijderen.
Dit is een andere efficiënte manier om lege kolommen in Excel te verwijderen, vooral wanneer u veel lege kolommen hebt om mee te werken. Laten we leren hoe u dat doet.
Stap 1: Voeg een lege rij in direct boven de dataset door rechts te klikken op de eerste rij koptekst en te kiezen voor Plaats Dit voegt een nieuwe rij in boven de hele dataset.
Stap 2: Schrijf de volgende formule in de meest linkse cel van uw werkblad,
=COUNTA(A2:A1048576)=0
Hier,
A2 staat voor de eerste cel van de dataset,
A1048576 staat voor het rijenmaximum in Excel (2007-2019).
Stap 3: Druk op Ga naar Het toont Echt als de kolom leeg is, of Valse als er in de hele kolom ten minste één niet-lege cel is.
Stap 4: Pas de formule toe op de andere kolommen door de Vulgreep .
Stap 5: Ga nu naar Home -> Sorteren en filteren -> Aangepaste sorteren .
Stap 6: Van de pop-up Sorteer venster, klik op de Opties knop. Selecteer vervolgens Sorteer van links naar rechts van de Sorteeropties pop-up venster en klik op OK .
Stap 7: Klik op de drop-down box naast de Sorteren op label en selecteer van daaruit de optie Rij 1 .
Stap 8: Klik op de drop-down box onder de Sorteer op label en selecteer de optie Celwaarden vanaf daar.
Stap 9: Klik op de drop-down box onder de Bestel label en selecteer de optie Grootste naar kleinste Klik OK .
Hierdoor worden alle lege kolommen naar de linkerkant van het werkblad verschoven.
Stap 10: Van daaruit selecteert u gewoon de hele dataset van lege lege kolommen, klikt u met de rechtermuisknop en selecteert u dan Verwijder .
Stap 11: Van de pop-up Verwijder box, kies de Gehele kolom van de opties. Klik OK .
Dit verwijdert alle lege kolommen uit de dataset.
Vergelijkbare lezingen:
- Hoe meerdere kolommen verwijderen in Excel
- Dubbele kolommen verwijderen in Excel (6 manieren)
- Hoe extra kolommen verwijderen in Excel (7 methoden)
- Kolommen verwijderen in Excel zonder de formule te beïnvloeden (twee manieren)
3. Door VBA-code te gebruiken
Als u een ervaren Excel gebruiker bent dan is deze methode speciaal voor u. Het implementeren van VBA code is de veiligste manier om lege kolommen in Excel te verwijderen. Het verwijdert alleen de absoluut lege kolommen. Als een kolom een enkele celwaarde bevat, zelfs als een cel een lege string retourneert, zal nog steeds die hele kolom volledig intact zijn.
Hieronder volgt de geautomatiseerde manier om lege kolommen in Excel te verwijderen.
Stap 1: Druk op Alt + F11 op uw toetsenbord of ga naar de tab Ontwikkelaar -> Visual Basic om de Visual Basic Editor te openen.
Stap 2: Klik in de menubalk op Plaats -> Module .
Stap 3: Kopieer de volgende code en plak die in het codevenster.
Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox( _ "Selecteer een bereik:", "Delete Blank Columns", _ Application.Selection.Address, Type:=8) If Not (SrcRange Is Nothing) Then Application.ScreenUpdating = False For i = SrcRange.Columns.Count To 1 Step -1 Set EntrColumn = SrcRange.Cells(1, i).EntrColumn IfApplication.WorksheetFunction.CountA(EntrColumn) = 0 Dan verwijdert EntrColumn.Delete End If Volgende Application.ScreenUpdating = True End If End Sub Stap 4: Druk op F5 op uw toetsenbord of selecteer in de menubalk Ren -> Sub/UserForm uitvoeren U kunt ook gewoon op de kleine Pictogram afspelen in de submenubalk om de macro uit te voeren.
Stap 5: Ga in het pop-up dialoogvenster naar het gewenste werkblad, selecteer het gewenste bereik en klik op OK .
Dit verwijdert alle lege kolommen uit de datase t.
Conclusie
In dit artikel zijn drie eenvoudige manieren besproken om lege kolommen in Excel te verwijderen. We hebben laten zien hoe u Excel-bewerkingstools kunt gebruiken om lege kolommen te verwijderen, we hebben laten zien hoe u formules kunt toepassen om lege kolommen te verwijderen en we hebben ook de VBA-code geïmplementeerd om lege kolommen in Excel te verwijderen.
