Hvordan sette inn spesifikt antall kolonner med faste intervaller i Excel?

I din daglige bruk av Excel kan du komme inn i en situasjon der du må legge til flere kolonner mellom de eksisterende kolonnene. Du kan selvfølgelig sette inn kolonnene en etter en ved å bruke Insert-funksjonen. Men når du står overfor store data og trenger å sette inn tre kolonner etter hver andre eller n'te kolonne, er tilsynelatende ikke Insert-funksjonen effektiv. Så hvordan kan du raskt fullføre oppgaven? I denne opplæringen vil vi snakke om to enkle metoder for å løse problemet.

Bruk VBA-kode for å sette inn spesifikt antall tomme kolonner i dataområdet med faste intervaller

Bruk Kutools for Excel til å sette inn spesifikt antall tomme kolonner i dataområdet med faste intervaller

Vi kan bruke "VBA-koden" nedenfor for å sette inn et spesifikt antall tomme kolonner etter hver n'te kolonne. Vennligst gjør som følger.

1. Trykk på "Alt + F11"-tastene i Excel, og det åpner vinduet "Microsoft Visual Basic for Applications".

2. Klikk "Sett inn" > "Modul" og lim inn følgende makro i "Modul"-vinduet.

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. Trykk på "F5"-tasten for å kjøre denne koden. En meldingsboks kommer ut for å minne deg på å velge "dataområdet" der du vil sette inn tomme kolonner.

4. Klikk på "OK"-knappen. En annen meldingsboks kommer ut, vennligst skriv inn "antall kolonneintervaller" i boksen "Angi kolonneintervall".

5. Fortsett å klikke på "OK"-knappen. Den tredje ledetekstboksen kommer ut, vennligst spesifiser "antall kolonner du vil sette inn ved hvert intervall" i boksen.

6. Klikk på "OK"-knappen for å få resultatet.

Hvis du ikke vil bruke VBA-kodemetoden, er funksjonen "Sett inn tomme rader og kolonner" i "Kutools for Excel" den perfekte løsningen for deg. Med denne funksjonen kan du sette inn det spesifikke antallet kolonner i dataområdet med faste intervaller med bare noen få klikk.

1. Velg det eksisterende dataområdet først. Klikk deretter "Kutools"> "Sett inn"> "Sett inn tomme rader og kolonner".

2. Dialogboksen "Sett inn tomme rader og kolonner" vises. Du kan se dataområdet du valgte i trinn 1 vist i Område-boksen. Velg alternativet "Blanke kolonner" i delen "Sett inn type". Og spesifiser "antall kolonneintervaller" og "kolonner du vil sette inn ved hvert intervall". Her legger jeg inn 1 og 3 hver for seg.

3. Klikk på "OK"-knappen for å fullføre innstillingen og få resultatet.