Hoe een specifiek aantal kolommen met vaste intervallen in Excel in te voegen?

In uw dagelijkse gebruik van Excel kunt u in een situatie terechtkomen die u nodig heeft: voeg meer kolommen toe tussen de bestaande kolommen. U kunt de kolommen natuurlijk één voor één invoegen met de functie Invoegen. Maar wanneer u geconfronteerd wordt met veel gegevens en na elke tweede of nde kolom drie kolommen moet invoegen, is de functie Invoegen blijkbaar niet effectief. Dus hoe kunt u de taak snel voltooien? In deze tutorial zullen we het hebben over twee eenvoudige methoden om het probleem op te lossen.

Voeg op vaste intervallen een specifiek aantal lege kolommen in het gegevensbereik in met VBA-code

Voeg op vaste intervallen een specifiek aantal lege kolommen in het gegevensbereik in met een geweldige functie

---

We kunnen het onderstaande gebruiken: VBA-code om een ​​specifiek aantal lege kolommen in te voegen na elke n-de kolom. Ga als volgt te werk.

1. druk de Alt + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module en plak de volgende macro in het Module Venster.

VBA-code: voeg met vaste tussenpozen een specifiek aantal kolommen in gegevens in

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 de F5 sleutel om deze code uit te voeren. Er verschijnt een promptvenster om u eraan te herinneren de data bereik waarin u lege kolommen wilt invoegen.

4. Klik op het OK knop. Er verschijnt nog een promptvenster, voer alstublieft in het aantal kolommen intervallen functie in het Kolominterval invoeren doos.

5. Blijf op de klikken OK knop. Het derde promptvenster verschijnt, specificeer a.u.b. het aantal kolommen dat u bij elk interval wilt invoegen in de doos.

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

---

Als u de VBA-codemethode niet wilt gebruiken, de Voeg lege rijen en kolommen in kenmerk van Kutools for Excel is de perfecte oplossing voor u. Met deze functie kunt u met een paar klikken het specifieke aantal kolommen met vaste tussenpozen in het gegevensbereik invoegen.

Voor het aanvragen Kutools for Excel, download en installeer het eerst.

1. Selecteer eerst het bestaande gegevensbereik. Dan klikken Kutools > Invoegen > Voeg lege rijen en kolommen in.

2. De Voeg lege rijen en kolommen in dialoogvenster verschijnt. U kunt het gegevensbereik dat u in stap 1 hebt geselecteerd, weergegeven in het vak Bereik zien. Kies de Lege kolommen optie in het Type invoegen sectie. en specificeer het aantal kolommen intervallen en kolommen die u bij elk interval wilt invoegen. Hier voer ik 1 en 3 apart in.

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

Opmerking:: Als u een gratis proefversie (30 dagen) van dit hulpprogramma wilt hebben, klikt u om het te downloaden en gaat u vervolgens de bewerking toepassen volgens de bovenstaande stappen.

---