Innehållsförteckning
Den här artikeln visar hur du kan ta bort tomma kolumner i Excel på tre effektiva och enkla sätt.
Ladda ner arbetsboken
Du kan ladda ner arbetsboken här.
Ta bort tomma kolumner i Excel.xlsm3 enkla sätt att ta bort tomma kolumner i Excel
Här får du lära dig tre sätt att ta bort tomma kolumner i Excel genom att använda Excel-redigeringsverktyg, använda en formel och implementera VBA-kod.
1. Genom att använda Excel-redigeringsverktyg
Steg 1: Välj datasetet.
Steg 2: Gå till Hem -> Hitta & Välj -> Gå till Special .
Steg 3: Från Gå till Special popup-fönstret, välj Blanks och klicka sedan på OK .
Steg 4: Endast de tomma cellerna i datasetet kommer att väljas. Högerklicka med musen, välj i alternativlistan i popup-fönstret Ta bort .
Steg 5: Därefter, från popup-fönstret Ta bort låda, plocka Flytta cellerna till vänster från alternativen. Klicka på OKEJ.
Detta tar bort alla tomma kolumner från datasetet.
Läs mer: Ta bort oanvända kolumner i Excel
2. Genom att använda en formel
Du kan använda dig av COUNTA() formel för att ta bort tomma kolumner i Excel. COUNTA() Formeln identifierar först de tomma och icke-tomma kolumnerna i ditt dataset i Excel och sedan kan du enkelt välja och ta bort de tomma kolumnerna.
Detta är ett annat effektivt sätt att ta bort tomma kolumner i Excel, särskilt när du har många tomma kolumner att arbeta med. Låt oss lära oss hur man gör det.
Steg 1: Infoga en tom rad precis ovanför datasetet genom att högerklicka på den första radens rubrik och välja Infoga från listan med popup-alternativ. Detta kommer att infoga en ny rad ovanför hela datasetet.
Steg 2: Skriv följande formel i den vänstra cellen i arbetsbladet,
=COUNTA(A2:A1048576)=0
Här,
A2 representerar den första cellen i datasetet,
A1048576 representerar den högsta raden i Excel (2007-2019).
Steg 3: Tryck på Gå in på Den visar True om kolumnen är tom, eller Falskt om det finns minst en enda icke-tom cell i hela kolumnen.
Steg 4: Applicera formeln på de andra kolumnerna genom att dra i Handtag för fyllning .
Steg 5: Gå nu till Hem -> Sortera & Filtrera -> Anpassad sortering .
Steg 6: Från popup-fönstret Sortera fönstret, klickar du på Alternativ och väljer sedan Sortera från vänster till höger från Sorteringsalternativ popup-fönstret och klicka på OK .
Steg 7: Klicka på rullgardinsrutan bredvid Sortera efter och väljer där alternativet Rad 1 .
Steg 8: Klicka på rullgardinsrutan under Sortera på och välj alternativet Cellvärden därifrån.
Steg 9: Klicka på rullgardinsrutan under Beställ och välj alternativet Störst till minsta . Klicka OK .
Det kommer att flytta alla tomma kolumner till vänster i arbetsbladet.
Steg 10: Där väljer du bara hela datasetet med tomma tomma kolumner, högerklickar och väljer sedan Ta bort .
Steg 11: Från popup-fönstret Ta bort rutan, väljer du den Hela kolumnen från alternativen. Klicka på OK .
Detta tar bort alla tomma kolumner från datasetet.
Liknande läsningar:
- Ta bort flera kolumner i Excel
- Ta bort dubbla kolumner i Excel (6 sätt)
- Ta bort extra kolumner i Excel (7 metoder)
- Ta bort kolumner i Excel utan att påverka formeln (två sätt)
3. Genom att använda VBA-kod
Om du är en erfaren Excel-användare är den här metoden speciellt för dig. Att implementera VBA-kod är det säkraste sättet att ta bort tomma kolumner i Excel. Det raderar endast de helt tomma kolumnerna. Om någon kolumn innehåller ett enda cellvärde, även om någon cell returnerar en tom sträng, kommer hela kolumnen att vara helt intakt.
Nedan följer ett automatiserat sätt att ta bort tomma kolumner i Excel.
Steg 1: Tryck på Alt + F11 på tangentbordet eller gå till fliken Utvecklare -> Visual Basic för att öppna Visual Basic Editor.
Steg 2: I menyraden klickar du på Infoga -> Modul .
Steg 3: Kopiera följande kod och klistra in den i kodfönstret.
Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox( _ "Välj ett område:", "Ta bort tomma kolumner", _ 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 Then EntrColumn.Delete End If Next Application.ScreenUpdating = True End If End Sub
Steg 4: Tryck på F5 på tangentbordet eller välj i menyraden Kör -> Kör Sub/UserForm Du kan också klicka på den lilla Spela upp ikonen i undermenyfältet för att köra makrot.
Steg 5: I popup-dialogrutan växlar du till det aktuella arbetsbladet, väljer det önskade intervallet och klickar på OK .
Detta raderar alla tomma kolumner från databasen.
Slutsats
I den här artikeln diskuteras tre enkla sätt att ta bort tomma kolumner i Excel. Vi har visat hur du använder Excel-redigeringsverktyg för att ta bort tomma kolumner, vi har visat hur du använder formler för att ta bort tomma kolumner och vi har också implementerat VBA-koden för att ta bort tomma kolumner i Excel.