Note: The other languages of the website are Google-translated. Back to English

Hur tar jag bort flera tomma kolumner snabbt i Excel?

Ibland när du importerar data till Microsoft Excel från någon källa, till exempel webbsida, CSV, text etc., kan det finnas många tomma kolumner med den. Det måste vara tidskrävande att ta bort varje tom kolumn en efter en. Därför söker några av oss efter enkla sätt att lösa detta problem. Den här artikeln samlar några knepiga tips som hjälper dig att snabbt ta bort flera tomma kolumner.

Ta bort flera tomma kolumner i kalkylbladet med formel

Ta bort flera tomma kolumner i kalkylbladet med VBA-kod

Ta bort flera tomma kolumner i markeringen / aktivt ark / hela arbetsboken med en användbar funktion

Ta bort flera tomma kolumner med en rubrik med hjälp av VBA-kod


Ta bort flera tomma kolumner i kalkylbladet med formel

I Excel kan du använda en formel för att identifiera om kolumnerna är tomma eller inte, och sedan använda Svart funktion för att sortera alla tomma kolumner och sedan ta bort dem på en gång. Gör så här:

1. Lägg till en ny rad högst upp i ditt dataområde, se skärmdump:

2. Ange sedan formeln nedan i cell A1 och dra sedan fyllningshandtaget till höger för att tillämpa denna formel på andra celler, en SANT visas om kolumnen är tom, annars visas en FALSE, se skärmdump:

=COUNTA(A2:A1048576)=0

3. Välj sedan dataområdet inklusive hjälpraden och klicka sedan på Data > Svart, se skärmdump:

4. I poppade ut Svart dialogrutan, klicka Tillbehör knappen, i följande Sorteringsalternativ dialogrutan, välj Sortera från vänster till höger alternativ, se skärmdumpar:

5. Klicka OK -knappen för att returnera Svart dialogrutan och välj sedan Rad 1 från Sortera efter rulla ner och välj Cellvärden från Sortera på avsnitt väljer Största till minsta från Ordersammanställning avsnitt, se skärmdump:

6. Sedan har alla tomma kolumner sorterats till vänster om dina data, och nu behöver du bara välja alla kolumner och högerklicka sedan, välj Radera för att radera dessa tomma kolumner på en gång, se skärmdump:


Ta bort flera tomma kolumner i kalkylbladet med VBA-kod

Om du vill använda VBA-makro går det mycket lättare. Följande VBA-kod kan hjälpa dig, gör så här:

1. Håll ner andra + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Ta bort flera tomma kolumner i valet:

Sub DeleteEmptyColumns () 'Uppdatera 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 Ställ in rng = InputRng.Cells (1, i) .EntireColumn If Application.WorksheetFunction.CountA (rng) = 0 Sedan rng.Radera Slut om nästa applikation.ScreenUpdating = True End Sub

3. tryck på F5 för att köra detta makro, välj det arbetsområde du behöver i popup-dialogrutan. Se skärmdump:

4. Klicka OK, så tas alla tomma kolumner i urvalet bort. Se skärmdump:


Ta bort flera tomma kolumner i markeringen / aktivt ark / hela arbetsboken med en användbar funktion

Du har nu möjlighet Ta bort dolda (synliga) rader och kolumner nytta av Kutools för Excel kan hjälpa dig att snabbt ta bort flera tomma rader eller kolumner samtidigt.

tips:Att tillämpa detta Ta bort dolda (synliga) rader och kolumner funktionen, först bör du ladda ner Kutools för Excel, och använd sedan funktionen snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools > Radera > Ta bort dolda (synliga) rader och kolumner, se skärmdump:

2. I Ta bort dolda (synliga) rader och kolumner dialogruta, ange det omfång som du vill tillämpa operationen från Titta in rullgardinsmeny. (Om du väljer I valt intervallmåste du välja ett intervall som du vill använda först.) Och kontrollera sedan Kolonner under Radera typ. Och välj Tomma kolumner från Detaljerad typ. Se skärmdump:

3. Klicka sedan OK. Och de tomma kolumnerna har tagits bort från det valda intervallet. Se skärmdump:


Ta bort flera tomma kolumner med en rubrik med hjälp av VBA-kod

Ibland kanske du vill ta bort alla tomma kolumner som bara innehåller en rubrik i kalkylbladet. Följande VBA-kod kan göra dig en tjänst, gör med följande steg:

1. Håll ner andra + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Ta bort alla tomma kolumner med en rubrik

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. Tryck sedan på F5-tangenten för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att de tomma kolumnerna med rubrik kommer att raderas, se skärmdump:

4. Klicka sedan på OK, alla tomma kolumner med endast rubrik i det aktuella kalkylbladet raderas samtidigt. Se skärmdumpar:


Fler relativa artiklar:

  • Ta bort alla bilder eller andra objekt i Excel
  • Om du vill radera alla bilder från Microsoft Excel kan det vara tidskrävande att välja varje bild och ta bort dem en efter en. Följande knep kan göra det lättare för dig att ta bort alla bilder.
  • Ta bort rader baserat på bakgrundsfärg i Excel
  • Hur kunde du radera hela rader baserat på bakgrundsfärg? I det här exemplet måste jag ta bort alla rader som celler fyllda med blå bakgrundsfärg enligt följande skärmdump. Med den här artikeln får du några koder för att uppnå denna uppgift i Excel.


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten

Sortera kommentarer efter
Kommentarer (8)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag tyckte att det var mycket enklare att gå till raden efter min sista datarad, ange "Shift-Ctrl-End" för att markera alla tomma rader som följde (mycket snabbare), högerklicka och ange "radera alla rader/kolumner". Systemet slösade inte så mycket tid på att söka på det här sättet och så det blev rent på ett ögonblick och filer som var 20 MB släpptes till en storlek på 20 kb.
Denna kommentar minimerades av moderatoren på webbplatsen
ovanstående detaljer är mycket användbara för mitt personliga bruk. Tack för din vägledning. M.KARTHIKEYAN :-)
Denna kommentar minimerades av moderatoren på webbplatsen
Mycket hjälpsam sida. Tack. :-) Min utmaning är att jag har kolumner med rubriker, men ingen data i den kolumnen. Endast rubriken är närvarande. Hur skulle man gå tillväga för att ta bort kolumner där det inte finns några data, men rubriken finns där? :o
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, det du nämner är så hjälpsamt. Jag vill ha lite hjälp från din sida. Dagligen laddar jag ner några filer och använder pivot förberedde rapporterna. Det är daglig uppgift för mig och rutinprocess. Hur kan jag göra det utan att använda pivot. Ex: Om jag förberedde rapporterna igår i "A" Excel-fil. Nästa dag i "A" Excel-fil ersätter jag bara de nya "B" Excel-fildata. Med denna automatiska rapport skulle skapas? Är det möjligt?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, kan någon vägleda hur jag kan ta bort tomma celler i en rad eller kolumn ... notera hela tomma kolumner eller rader ... endast tomma celler jag behöver ta bort i en kolumn
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå,


försök implementera nedanstående kod
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för den mycket hjälpsamma sidan med grundläggande excel-alternativ :)
Denna kommentar minimerades av moderatoren på webbplatsen
Det raderade alla mina namn i min förnamnskolumn! Auggh!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL