Dubbele kolom op basis van celwaarde in Excel

In Excel moet u soms volledige kolommen dupliceren op basis van een getal dat in een cel is opgegeven – bijvoorbeeld om productkolommen te herhalen, simulatiedatasets te genereren of gestructureerde sjablonen uit te breiden. Helaas beschikt Excel niet over een ingebouwde functie om dit rechtstreeks uit te voeren.

In deze handleiding laten we u twee praktische manieren zien om dit te bereiken: met VBA voor een aanpasbare maar technische aanpak, en met Kutools voor Excel voor een veel eenvoudigere en efficiëntere oplossing.

• Dubbele kolom op basis van celwaarde met behulp van VBA
• Dubbele kolom op basis van celwaarde met behulp van Kutools

Dubbele kolom op basis van celwaarde met VBA

Als u bekend bent met automatisering, kan VBA u helpen Dubbele kolom op basis van een opgegeven waarde. Deze methode leest de waarde in een specifieke rij (zoals de Laatste rij van elke kolom) en dupliceert vervolgens elke kolom dienovereenkomstig.

Stappen om Dubbele kolom met VBA

1. Open het werkblad waarin u Dubbele kolom wilt gebruiken.
2. Druk op Alt + F11 om de VBA-editor te openen.
3. Klik op Invoegen > Module om een nieuwe module te maken.
4. Kopieer en plak de volgende VBA-code in het modulevenster.
   VBA-code: Dubbele kolom op basis van celwaarde

   Sub DuplicateColumnsByCellValue()
   'Updated by Extendoffice 20260420
       Dim rng As Range
       On Error Resume Next
       Set rng = Application.InputBox("Select the range:", "Kutools for Excel", Selection.Address, Type:=8)
       On Error GoTo 0
       
       If rng Is Nothing Then Exit Sub
       
       Dim lastRow As Long
       lastRow = rng.Rows.Count
       
       Dim j As Long, k As Long
       Dim repeatCount As Long
       
       Application.ScreenUpdating = False
       
       ' Loop from right to left (very important)
       For j = rng.Columns.Count To 1 Step -1
           
           repeatCount = rng.Cells(lastRow, j).Value
           
           If IsNumeric(repeatCount) And repeatCount >= 1 Then
               
               ' Duplicate N times (original + N copies)
               For k = 1 To repeatCount
                   rng.Columns(j).EntireColumn.Copy
                   rng.Columns(j + 1).EntireColumn.Insert Shift:=xlToRight
               Next k
               
           End If
           
       Next j
       
       Application.CutCopyMode = False
       Application.ScreenUpdating = True
       
       MsgBox "Columns duplicated successfully.", vbInformation, "Kutools for Excel"
   End Sub

   

5. Druk op F5 om de code uit te voeren.
6. Selecteer in het pop-updialoogvenster uw gegevensbereik (inclusief de rij met de herhaalgetallen) en klik op OK om uit te voeren.

   

Resultaat

Na uitvoering van de VBA-code wordt elke kolom gedupliceerd op basis van het getal in de laatste rij, waarbij de oorspronkelijke kolom altijd behouden blijft. Vervolgens verschijnt een bevestigingsdialoogvenster dat aangeeft dat het dupliceren succesvol is voltooid.

• Een waarde van 1 betekent dat de kolom tweemaal wordt weergegeven (het origineel plus één kopie).
• Een waarde van 2 betekent dat de kolom drie keer verschijnt (het origineel plus twee kopieën).

Alle gedupliceerde kolommen worden sequentieel binnen het oorspronkelijke bereik ingevoegd, waardoor een nieuwe, uitgebreide dataset ontstaat. De relatieve kolomvolgorde blijft behouden en de gegevensstructuur is in alle rijen consistent.

Deze methode bouwt de lay-out van de gehele kolom direct opnieuw op, zodat het eindresultaat perfect aansluit bij het verwachte duplicatiepatroon – zonder handmatige aanpassingen.

Beperkingen van de VBA-methode

Hoewel VBA werkt, heeft het verschillende nadelen:

• Vereist het inschakelen van macro’s (beveiligingsrisico).
• Niet geschikt voor beginners.
• Moeilijk aan te passen en fouten op te sporen.
• Risico op fouten bij het verwerken van grote datasets.
• De oorspronkelijke celopmaak—zoals vulkleur, randen en stijlen—raakt verloren nadat de VBA-code is uitgevoerd.

Dupliceer eenvoudig Dubbele kolom op basis van celwaarde met Kutools voor Excel

In plaats van complexe code te gebruiken, biedt Kutools voor Excel een specifieke functie om deze taak in slechts enkele klikken uit te voeren. Hiermee kunt u automatisch een dubbele kolom selecteren op basis van een opgegeven celwaarde – zonder formules of codering.

Stappen om Dubbele kolom met Kutools

1. Na het installeren van Kutools voor Excel, klikt u op Kutools>Invoegen>Dubbele rij/Kolommen op basis van celwaarde.

   

2. In het dialoogvenster:
   1. Selecteer Kolommen kopiëren en invoegen.
   2. Selecteer de Generatiebereik(gegevens om te dupliceren)
   3. In Herhalingstijden, selecteer de cellen met het aantal herhalingen (bijvoorbeeld de laatste rij).
   4. Klik op OK.

      

Resultaat

Elke kolom wordt gedupliceerd op basis van de bijbehorende waarde, waarbij de nieuwe kolommen direct naast de originele worden ingevoegd. Tijdens dit proces blijven alle opmaakinstellingen en de algemene gegevensstructuur automatisch behouden voor een consistente en naadloze uitkomst.

Waarom Kutools de beste oplossing is

Vergeleken met VBA biedt Kutools aanzienlijke voordelen:

• Geen programmeerkennis vereist – perfect voor alle gebruikers.
• Eenvoudige stappen met een dialoogvenstergebaseerde interface – geen complexe installatie nodig.
• Duidelijke visuele interface – gemakkelijk te begrijpen.
• Veilig en betrouwbaar – geen macro-risico’s.
• Behoudt alle oorspronkelijke opmaak, inclusief kleuren, randen en celstijlen.
• Verwerkt grote datasets efficiënt.

Het transformeert een complexe taak tot een eenvoudige, herhaalbare workflow.

Als u liever dubbele rijen wilt, biedt Kutools ook de optie "Rijen kopiëren en invoegen" voor dezelfde taak.

Conclusie

Het dupliceren van kolommen op basis van celwaarden is iets wat Excel standaard niet ondersteunt. Hoewel VBA een tijdelijke oplossing kan bieden, vereist dit technische kennis en komt het met beperkingen.

Kutools voor Excel biedt daarentegen een snelle, intuïtieve en foutloze oplossing, geschikt voor gebruikers op elk niveau. Als u regelmatig gestructureerde gegevens moet bewerken of repetitieve taken wilt automatiseren, is Kutools ongetwijfeld de betere keuze.