Infoga tom kolumn varannan kolumn i Excel – 4 enkla sätt

När du arbetar med data i Excel finns det tillfällen då du behöver infoga tomma kolumner mellan befintliga kolumner. Att göra detta manuellt för små datauppsättningar är enkelt, men för större datauppsättningar är ett effektivt tillvägagångssätt viktigt. Den här artikeln kommer att introducera några användbara metoder för att lösa denna uppgift i Excel.

Infoga tom kolumn varannan eller n:e kolumn i Excel

• Med kortkommandot
• Med en hjälpkolumn och Sorteringsfunktionen
• Med bara några få klick av Kutools för Excel
• Med VBA-kod

Infoga tom kolumn varannan eller n:e kolumn med kortkommando

För mindre datauppsättningar är det snabbt och effektivt att manuellt infoga tomma kolumner med kortkommandon. Följ dessa steg:

1. Välj kolumnen genom att klicka på dess kolumnnummer där du vill infoga en tom kolumn.
2. Håll sedan ned knappen ctrl på tangentbordet och klicka sedan på kolumnnumren en efter en som du vill välja. Se skärmdump:
   
3. Tryck sedan på Ctrl+Skift+Plus nycklar, tomma kolumner infogas mellan varannan kolumn. Se skärmdump:
   

Infoga tom kolumn varannan eller n:e kolumn med hjälpkolumn och Sorteringsfunktionen

Om du vill infoga tomma kolumner systematiskt efter varannan eller n:e kolumn i en större datamängd, kan hjälpkolumnmetoden kombinerad med sorteringsfunktionen spara tid:

1. Infoga en ny tom rad precis ovanför datasetet.
2. Ange siffrorna 1 och 2 i de två första cellerna i raden. Välj sedan cellerna A1 och B1 och dra sedan fyllningshandtaget åt höger till den sista datacellen, en lista med inkrementerande siffror kommer att fyllas enligt nedanstående skärmbild:
   
3. Kopiera sekvensnumren och klistra in dem precis efter det sista numret i samma rad.
   
4. Välj hela dataintervallet och klicka sedan Data > Svart, se skärmdump:
   
5. I följande Svart dialogrutan, klicka Montering knapp.
   
6. Välj sedan Sortera från vänster till höger och klicka OK för att gå tillbaka till Svart dialog ruta.
   
7. Välj tillagd ny rad från Sortera efter rullgardinsmenyn och lämna de andra alternativen oförändrade. Klicka sedan OK för att stänga dialogen.
   
8. Nu kommer data att sorteras baserat på värdena i hjälpraden, och en tom kolumn infogas efter varannan kolumn.
   
9. Äntligen kan du ta bort hjälpraden om det behövs.

Infoga tom kolumn varannan eller n:e kolumn med bara några få klick

Kutools för Excel ger en enkel och effektiv lösning för att automatisera denna uppgift. Med bara några klick kan du snabbt infoga tomma kolumner med specifika intervall, vilket sparar tid och ökar produktiviteten. I det här avsnittet kommer vi att visa dig hur du använder Kutools för Excel för att infoga tomma kolumner utan ansträngning.

Efter nedladdning och installation Kutools för Excel, klicka på Kutools > Insert > Infoga tomma rader och kolumner att öppna Infoga tomma rader och kolumner dialog ruta.

1. Välj det dataintervall där du vill infoga tomma kolumner.
2. Välja Tomma kolumner från Infoga typ sektion.
3. Ange sedan siffrorna i Intervall för och Kolonner textrutor som du behöver. (Här kommer jag att infoga två tomma kolumner efter en kolumn, så jag anger 1 och 2 i rutorna Intervall för och Kolumner separat.)
4. Äntligen klickar du på OK för att stänga dialogen.
   

Kutools kommer omedelbart att infoga tomma kolumner enligt ditt angivna intervall, se skärmdump:

Infoga tom kolumn varannan eller n:e kolumn med VBA-kod

För avancerade användare eller stora datamängder kan VBA automatisera infogningen av tomma kolumner. Här är ett VBA-makro som infogar tomma kolumner varannan eller n:e kolumn.

1. Håll ner ALT + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.
   VBA-kod: Infoga ett specifikt antal tomma kolumner i data med fasta intervall

   Sub InsertColumnsAtIntervals()
       'Updatedby Extendoffice
       Dim WorkRng As Range
       Dim xInterval As Integer
       Dim xCols As Integer
       Dim xColsCount As Integer
       Dim xNum1 As Integer
       Dim xNum2 As Integer
       Dim xWs As Worksheet
       Dim xTitleId As String
       Dim i As Integer
       xTitleId = "Kutools for Excel"
       Set WorkRng = Application.Selection
       Set WorkRng = Application.InputBox("Select column range:", xTitleId, WorkRng.Address, Type:=8)
       xColsCount = WorkRng.Columns.Count
       xInterval = Application.InputBox("Enter column interval:", xTitleId, 1, Type:=1)
       xCols = Application.InputBox("How many blank columns to insert at each interval?", xTitleId, 1, Type:=1)
       xNum1 = WorkRng.Column + xInterval
       xNum2 = xCols + xInterval
       Set xWs = WorkRng.Parent
       For i = 1 To Int(xColsCount / xInterval)
           xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xCols - 1)).EntireColumn.Insert
           xNum1 = xNum1 + xNum2
       Next
       MsgBox "Columns inserted successfully!", vbInformation
   End Sub
   

3. När du har klistrat in den här koden, tryck F5 nyckel för att köra den här koden. I uppmaningsrutan väljer du det dataintervall där du vill infoga tomma kolumner. Klicka sedan OK, se skärmdump:
   
4. En annan promptruta dyker upp, skriv antalet kolumnintervall. Och klicka sedan OK, se skärmdump:
   
5. I följande uppmaningsruta anger du antalet tomma kolumner som du vill infoga. Klicka sedan OK, se skärmdump:
   

Nu infogas det specifika antalet tomma kolumner i befintlig data med det regelbundna intervallet du angav, se skärmdump:

Sammanfattningsvis, infogning av tomma kolumner varannan kolumn eller med specifika intervall i Excel kan uppnås med olika metoder beroende på dina behov och datauppsättningsstorlek. Genom att välja den metod som bäst passar ditt arbetsflöde kan du avsevärt förbättra effektiviteten och effektivisera dina Excel-uppgifter. Om du är intresserad av att utforska fler Excel-tips och tricks, vår webbplats erbjuder tusentals tutorials.