Hoe voegt u in Excel een specifiek aantal kolommen in met vaste intervallen?
Tijdens het dagelijks gebruik van Excel komt u mogelijk in een situatie terecht waarin u extra kolommen tussen bestaande kolommen moet invoegen. U kunt deze natuurlijk één voor één toevoegen met de functie **Invoegen**, maar bij grote datasets – bijvoorbeeld wanneer u drie kolommen na elke tweede of n-de kolom moet invoegen – is die methode duidelijk niet efficiënt. Hoe voert u zo’n taak dan snel uit? In deze handleiding bespreken we twee eenvoudige methoden om dit probleem vlot op te lossen.
Gebruik VBA-code om een specifiek aantal Lege kolommen in te voegen in Gegevensbereik met vaste intervallen
We kunnen de onderstaande VBA-code gebruiken om een opgegeven aantal lege kolommen in te voegen na elke n-de kolom. Volg hiervoor de volgende stappen.
1. Druk op Alt + F11 in Excel om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op 'Invoegen' > 'Module' en plak de volgende macro in het venster 'Module'.
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 F5-toets om de code uit te voeren. Vervolgens verschijnt een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren waarin u lege kolommen wilt invoegen.
4. Klik op de knop „OK”. Er verschijnt een nieuw dialoogvenster; voer hierin het aantal kolomintervallen in het vak „Kolominterval invoeren” in.
5. Klik nogmaals op de knop „OK”. Het derde dialoogvenster verschijnt; geef hierin het aantal kolommen op dat u bij elk interval wilt invoegen.
6. Klik op de knop „OK” om het resultaat te verkrijgen.
Gebruik Kutools voor Excel om een specifiek aantal Lege kolommen in te voegen in Gegevensbereik met vaste intervallen
Als u de VBA-code-methode liever niet gebruikt, is de functie „Lege rijen/kolommen invoegen” van Kutools voor Excel de perfecte oplossing. Met slechts een paar klikken voegt u een specifiek aantal kolommen in uw gegevensbereik in, met vaste intervallen.
1. Selecteer eerst het bestaande gegevensbereik en klik vervolgens op „Kutools” > „Invoegen” > „Lege rijen/kolommen invoegen”.
2. Het dialoogvenster „Lege rijen/kolommen invoegen” verschijnt, met het gegevensbereik dat u in stap 1 hebt geselecteerd weergegeven in het bereikvak. Selecteer de optie „Lege kolommen” onder „Invoegtype” en geef vervolgens het aantal kolomintervallen en het aantal kolommen dat u bij elk interval wilt invoegen. In dit voorbeeld voer ik respectievelijk 1 en 3 in.
3. Klik op de knop „OK” om de instelling af te ronden en direct het resultaat te verkrijgen.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Hoe voegt u snel een rij in op basis van de huidige datum in Excel?
Stel dat u een werkblad hebt met een kolom vol datums en u wilt automatisch een nieuwe rij direct na de huidige datum invoegen — een rij die elke dag meeverandert wanneer u de werkmap opent. Bestaat er een handige truc om dit in Excel voor elkaar te krijgen?
Hoe voegt u altijd een lege rij onderaan in plaats van bovenaan in Excel?
Zoals bekend is, wordt bij het invoegen van een lege rij in een werkblad deze standaard boven de geselecteerde rij of cel ingevoegd. Maar soms wilt u de rij juist onder de geselecteerde cel of rij invoegen. Hoe lost u deze taak op in Excel?
Hoe voegt u automatisch een nieuwe lege rij in met een opdrachtknop in Excel?
Vaak moet u een nieuwe lege rij op een specifieke plek in uw werkblad invoegen. In dit artikel laten we u zien hoe u dat automatisch kunt doen met één klik op een opdrachtknop in Excel.
Hoe voegt u een lege rij in na specifieke tekst in Excel?
Wilt u lege rijen invoegen na een bepaalde tekst—zoals te zien in de onderstaande schermafbeelding? Ontdek hoe u dit snel en eenvoudig doet, zonder ze handmatig één voor één in te voegen!
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins