Hur man tar bort alla tomma kolumner i Microsoft Excel

Det finns flera sätt att ta bort tomma kolumner i en Microsoft Excel-fil. Varför skulle du behöva göra detta? - Enkelt.

Se även vår artikel Hur man fryser toppraden i Excel

Då och då kan data som du importerar från webbsidor resultera i att ett stort antal kolumner visas även om de inte används. Du ser detta hända med CSV-filer och .txt-filer lika ofta.

När det händer är det inte alltid lätt att ta bort kolumner manuellt. Visst, om du bara har två eller tre tomma kolumner är det helt ok att ta bort dem manuellt. Men vad händer om ditt importerade projekt skapar 57 tomma och icke-kontinuerliga kolumner? - För det behöver du en automatiserad process.

Med VBA-makro

snabblänkar

• Med VBA-makro
  • • • Gå till din Excel-fil
      • Håll Alt och F11 tillsammans
      • Vänta tills fönstret Microsoft Visual Basic for Applications visas
      • Klicka på Infoga
      • Välj modul
      • Klistra in följande kodrader i fönstret
      • Tryck på F5 för att kompilera och köra makroen
      • Ange lämpligt arbetsområde i dialogrutan
      • $ A $ 1 - Övre hörnet
      • $ J $ 12 - Nedre hörnet
      • Tryck på OK
• Använda Excel-verktyg
  • • • Välj först dataområdet
      • Tryck på F5
      • Klicka på Special
      • Välj Blanks-alternativet
      • Klicka på OK (detta val kommer att se till att alla tomma celler är markerade i det målinriktade intervallet)
      • Gå till fliken Hem
      • Välj rullgardinsmenyn Radera under gruppen Cells-verktyg
      • Välj Radera celler
      • Välj Shift Cells Left för att ta bort och ordna om kolumner
      • Klicka på OK
      • Välj Skift celler upp för att ta bort och ordna om rader
• Andra enkla att utföra sorteringsuppgifter
• En slutlig tanke

Den första metoden innebär användning av ett VBA-makro.

1. Gå till din Excel-fil

2. Håll Alt och F11 tillsammans

3. Vänta tills fönstret Microsoft Visual Basic for Applications visas

4. Klicka på Infoga

5. Välj modul

   

6. Klistra in följande kodrader i fönstret

Sub DeleteEmptyColumns()
'Updateby20140317
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

1. Tryck på F5 för att kompilera och köra makroen

2. Ange lämpligt arbetsområde i dialogrutan

Arbetsområdet eller dataområdet är det specifika intervallet mellan kolumner som du vill rikta in dig på. Formatet är $ A $ 1: $ J $ 12. Bokstäverna motsvarar kolumnen och siffrorna motsvarar raderna.

Om du drar ut detta med musen eller genom att hålla Shift och använda piltangenterna kommer du att märka att:

$ A $ 1 - Övre hörnet

$ J $ 12 - Nedre hörnet

Du kan inte välja dataområdet innan du börjar ladda upp makroen eftersom det inte kommer att vara valt.

Tryck på OK

Därefter ska alla tomma kolumner raderas och alla fyllda kolumner bör ligga bredvid varandra.

Använda Excel-verktyg

Uppenbarligen skulle Excel inte vara ett sådant kraftverk om det inte hade stora sorteringsförmågor. Du kan använda rullgardinsmenyn Radera för att ta bort hela rader, kolumner eller tomma celler.

1. Välj först dataområdet

2. Tryck på F5

3. Klicka på Special

   

4. Välj Blanks-alternativet

5. Klicka på OK (detta val kommer att se till att alla tomma celler är markerade i det målinriktade intervallet)

   

6. Gå till fliken Hem

7. Välj rullgardinsmenyn Radera under gruppen Cells-verktyg

8. Välj Radera celler

   

9. Välj Shift Cells Left för att ta bort och ordna om kolumner

10. Klicka på OK

Nu borde de tomma cellerna från de tomma kolumnerna ha försvunnit och alla andra rader skulle flyttas närmare varandra.

Du kan använda samma strategi för att radera hela rader. Istället för att flytta cellerna till vänster väljer du dock det andra alternativet.

Välj Skift celler upp för att ta bort och ordna om rader

Beroende på vilken version av Excel du kör kan du få olika formuleringar. Men i alla fall är de två bästa alternativen i menyn Radera celler alltid samma.

Den här metoden tar inte längre bort alla tomma celler i markeringen. Innan Excel 2013 skulle detta oavsiktligt ta bort även tomma rader vilket generellt skulle krossa sorteringen.

Nu uppstår inte längre problemet. Därför, om du också vill bli av med raderna, kan du göra det genom att välja dataområdet igen och följa de föregående stegen. Välj sedan helt enkelt för att flytta eller ta bort celler upp istället för vänster.

Andra enkla att utföra sorteringsuppgifter

Även om det tekniskt att använda Excel-verktygsfältet för att ta bort tomma kolumner och rader verkar enklare, är VBA-makrometoden idiotsäker, vilket innebär att du kan använda den även i äldre Microsoft Excel-versioner.

Med samma VBA-modul eller Go To-funktionsmenyn kan du göra så mycket mer i Excel. Har du vissa formler som inte längre är relevanta? - Du kan ta bort dem också eller ordna dem i enlighet därmed.

Du kan också ta bort onödiga kommentarer eller alla kommentarer från ditt projekt om du inte vill att de ska dyka upp under din presentation. Titta in i VBA om du vill vara en Excel-användare.

En slutlig tanke

Under åren har ett brett utbud av tillägg dykt upp online. Vissa av dem låter dig ta ännu fler genvägar när du sorterar stora kalkylark. Men dessa appar är sällan gratis och är inte värda besväret för enkla uppgifter som att ta bort tomma rader, celler och kolumner.

Dessutom, om det var så svårt, skulle Microsoft ha förenklat processen ytterligare eller skapat ännu mer omfattande guider för Excel-sortering.