Hur infogar man specifikt antal kolumner med fasta intervall i Excel?

I din dagliga användning av Excel kan du hamna i en situation som du behöver lägg till fler kolumner mellan de befintliga kolumnerna. Du kan naturligtvis infoga kolumnerna en efter en med hjälp av Infoga-funktionen. Men när du står inför en stor data och behöver infoga tre kolumner efter varannan eller n:e kolumn, är funktionen Infoga uppenbarligen inte effektiv. Så hur kan du snabbt slutföra uppgiften? I den här handledningen kommer vi att prata om två enkla metoder för att lösa problemet.

Infoga ett specifikt antal tomma kolumner i dataintervallet med fasta intervall med VBA-kod

Infoga ett specifikt antal tomma kolumner i dataområdet med fasta intervall med en fantastisk funktion

Vi kan använda nedanstående VBA-kod för att infoga ett specifikt antal tomma kolumner efter var n:e kolumn. Vänligen gör enligt följande.

1. tryck på Alt + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna och klistra in följande makro i Modulerna Fönster.

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. tryck på F5 nyckel för att köra den här koden. En uppmaningsruta dyker upp för att påminna dig om att välja dataområde där du vill infoga tomma kolumner.

4. Klicka på OK knapp. Ytterligare en uppmaningsruta dyker upp, vänligen ange antalet kolumner intervall i Ange kolumnintervall låda.

5. Fortsätt att klicka på OK knapp. Den tredje uppmaningsrutan dyker upp, vänligen specificera antalet kolumner du vill infoga vid varje intervall i lådan.

6. Klicka på OK knappen för att få resultatet.

Om du inte vill använda VBA-kodmetoden, Infoga tomma rader och kolumner egenskap av Kutools för Excel är den perfekta lösningen för dig. Med den här funktionen kan du infoga det specifika antalet kolumner i dataområdet med fasta intervall med bara några klick.

1. Välj det befintliga dataintervallet först. Klicka sedan Kutools > Insert > Infoga tomma rader och kolumner.

2. Den Infoga tomma rader och kolumner dialogrutan dyker upp. Du kan se dataintervallet du valde i steg 1 i rutan Område. Välj den Tomma kolumner alternativet i Infoga typ sektion. Och specificera antalet kolumnerintervall och kolumner du vill infoga vid varje intervall. Här matar jag in 1 och 3 separat.

3. Klicka på OK knappen för att avsluta inställningen och få resultatet.