Hoe voeg je een specifiek aantal kolommen in op vaste intervallen in Excel?

Tijdens het dagelijks gebruik van Excel kun je tegen een situatie aanlopen waarin je meer kolommen moet toevoegen tussen de bestaande kolommen. Natuurlijk kun je kolommen één voor één invoegen met behulp van de Invoegen-functie. Maar wanneer je te maken hebt met grote hoeveelheden data en na elke tweede of elke n-de kolom drie kolommen wilt invoegen, is de Invoegen-functie duidelijk niet effectief. Dus hoe kun je deze taak snel afronden? In deze tutorial bespreken we twee eenvoudige methoden om het probleem op te lossen.

Gebruik VBA-code om een specifiek aantal lege kolommen in een gegevensbereik in te voegen op vaste intervallen

Gebruik Kutools voor Excel om een specifiek aantal lege kolommen in een gegevensbereik in te voegen op vaste intervallen

We kunnen onderstaande "VBA-code" gebruiken om een specifiek aantal lege kolommen in te voegen na elke n-de kolom. Volg de volgende stappen.

1. Druk op de toetsen "Alt + F11" in Excel, en het venster "Microsoft Visual Basic for Applications" wordt geopend.

2. Klik op "Invoegen" > "Module" en plak de volgende macro in het "Module"-venster.

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. Druk op de toets "F5" om deze code uit te voeren. Er verschijnt een pop-upvenster dat je eraan herinnert om het "gegevensbereik" te selecteren waarin je lege kolommen wilt invoegen.

4. Klik op de knop "OK". Er verschijnt een ander pop-upvenster, voer "het aantal kolomintervallen" in het vak "Voer kolominterval in" in.

5. Klik verder op de knop "OK". Het derde pop-upvenster verschijnt, geef "het aantal kolommen dat je bij elk interval wilt invoegen" op in het vak.

6. Klik op de knop "OK" om het resultaat te krijgen.

Als je de methode met VBA-code niet wilt gebruiken, is de functie "Lege Rijen & Kolommen Invoegen" van "Kutools voor Excel" de perfecte oplossing voor jou. Met deze functie kun je in slechts enkele klikken een specifiek aantal kolommen in een gegevensbereik invoegen op vaste intervallen.

1. Selecteer eerst het bestaande gegevensbereik. Klik vervolgens op "Kutools" > "Invoegen" > "Lege Rijen & Kolommen Invoegen".

2. Het dialoogvenster "Lege Rijen & Kolommen Invoegen" verschijnt. Je kunt het gegevensbereik dat je in stap 1 hebt geselecteerd zien in het Bereik-vak. Kies de optie "Lege kolommen" in de sectie "Invoegtype". En specificeer "het aantal kolomintervallen" en "kolommen die je bij elk interval wilt invoegen". Hier voer ik respectievelijk 1 en 3 in.

3. Klik op de knop "OK" om de instelling te voltooien en het resultaat te krijgen.