Hoe deelt u een lange lijst in gelijke groepen in Excel?
Bij het werken met grote datasets in Excel kunt u situaties tegenkomen waarin u een lange lijst items moet splitsen in meerdere gelijke groepen. Bijvoorbeeld wanneer u enquêteresultaten moet verdelen, evenwichtige opdrachten wilt maken of teams wilt organiseren voor een project. Het handmatig verdelen van dergelijke lijsten is tijdrovend en gevoelig voor fouten, vooral bij uitgebreide gegevens. Het efficiënt splitsen van lijsten in gelijke groepen stroomlijnt uw workflow, verbetert de gegevensorganisatie en vermindert de kans op fouten.
Excel biedt diverse handige methoden om dit te realiseren – van VBA-automatisering en slimme invoegtoepassingen zoals Kutools voor Excel tot formulegebaseerde technieken. Elke aanpak heeft unieke voordelen en sluit aan bij verschillende vaardigheidsniveaus en scenario’s.
Splits een lange lijst in meerdere gelijke groepen met VBA-code
Splits een lange lijst in meerdere gelijke groepen met Kutools voor Excel
Splits een lange lijst in meerdere gelijke groepen met een Excel-formule
Splits een lange lijst in meerdere gelijke groepen met VBA-code
Afgezien van de tijdrovende methode om gegevens één voor één handmatig naar afzonderlijke groepen te kopiëren en plakken, helpt VBA u deze taak snel en nauwkeurig te automatiseren. Hieronder vindt u een stapsgewijze handleiding om uw lijst in gelijke groepen te splitsen met VBA:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak vervolgens de volgende VBA-code in het nieuw aangemaakte Module-venster.
VBA-code: Splits een lange lijst in meerdere gelijke groepen
Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xOutArr As Variant
Dim I As Long, K As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
If I < 1 Then
MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
Exit Sub
End If
ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
For K = 0 To xRg.Rows.Count - 1
xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
Next
xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub3. Druk op F5 of klik op de knop Uitvoeren om de code uit te voeren. Selecteer in het invoervak dat verschijnt de kolom met gegevens die u in groepen wilt splitsen.
4. Klik op OK en selecteer vervolgens in het volgende venster de begincel waar u de gegroepeerde resultaten wilt plaatsen.
5. Klik op OK en voer in het promptvenster het gewenste aantal items per groep (per kolom) in.
6. Klik ten slotte op OK om het proces te voltooien. De code splitst uw geselecteerde lijst automatisch in meerdere kolommen, elk met het opgegeven aantal items. Opmerking: als de lijst niet exact in gelijke groepen kan worden verdeeld, bevat de laatste groep minder items.
De VBA-oplossing is ideaal voor gebruikers die bekend zijn met macro’s en taken willen automatiseren voor herhaald gebruik. Een groot voordeel is de flexibiliteit: u kunt het script uitvoeren met verschillende groepsgrootten zonder extra configuratie. Omdat het echter om code gaat, is deze methode mogelijk niet toegestaan in alle professionele omgevingen. Gebruikers die onbekend zijn met VBA, worden aangeraden hun werk op te slaan voordat ze macro’s uitvoeren.
Als de macro niet naar verwachting wordt uitgevoerd, controleer dan of macro’s zijn ingeschakeld in Excel. Zorg er ook voor dat u één enkele, doorlopende kolom selecteert; anders vraagt de code u om het gegevensbereik opnieuw te selecteren. Als de lengte van uw lijst niet exact deelbaar is door de groepsgrootte, bevat de laatste groep minder items—houd hier rekening mee bij het plannen van uw verdeling.
Splits een lange lijst in meerdere gelijke groepen met Kutools voor Excel
Als u Kutools voor Excel hebt geïnstalleerd, kunt u met de functie Bereik transformeren uw lange lijst in slechts enkele klikken snel herschikken in meerdere groepen over kolommen en rijen. Deze methode vermindert handmatige fouten en maakt het organiseren van gegevens veel efficiënter. Kutools voegt een professionele laag van gebruiksvriendelijkheid toe voor minder technische gebruikers, met intuïtieve dialoogvensters en betrouwbare resultaten.
Na het installeren van Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer de lange lijst die u wilt splitsen. Ga vervolgens naar Kutools > Bereik > Bereik transformeren.
2. In het dialoogvenster Bereik transformeren kiest u Enkele kolom naar bereik onder Transformeertype, vinkt u Vaste waarde aan en voert u het gewenste aantal items per rij in. (Als u bijvoorbeeld vier groepen wilt, geeft u de groepsgrootte dienovereenkomstig op.) Dit bepaalt hoe uw oorspronkelijke lijst wordt gesplitst.
3. Klik op OK en selecteer vervolgens een cel in uw werkblad waar u het gegroepeerde resultaat wilt laten beginnen.
4. Klik nogmaals op OK, waarna Kutools uw lange lijst direct splitst in gelijkgrote groepen op basis van uw instellingen.
Kutools voor Excel is eenvoudig te gebruiken en minimaliseert handmatige fouten — de ideale keuze voor gebruikers die een grafische interface en frequente gegevenstransformaties waarderen.
Download en probeer Kutools voor Excel nu gratis!
Splits een lange lijst in meerdere gelijke groepen met een Excel-formule
Als u liever geen VBA of invoegtoepassingen gebruikt, helpen de ingebouwde Excel-formules u uw lijst efficiënt in gelijke groepen te verdelen. Deze aanpak is ideaal voor wie een draagbare oplossing zoekt die compatibel is met alle Excel-versies en veilig werkt in gedeelde werkmappen of omgevingen waar macro’s en externe invoegtoepassingen beperkt zijn. De methode levert het beste resultaat wanneer uw groepen naast elkaar in kolommen moeten worden weergegeven.
Zo wijst u groepsnummers toe aan elke vermelding, zodat u uw lijst gemakkelijk kunt filteren of herschikken per groep zonder codering:
1. Stel dat uw lange lijst zich bevindt in kolom A, vanaf cel A2 naar beneden. Voer in cel B2 (naast het eerste item van uw lijst) de volgende formule in om groepsnummers toe te wijzen:
=MOD(ROW(A2)-ROW($A$2),4) +1In dit voorbeeld staat "4" voor het gewenste aantal groepen. Pas deze waarde aan als u in een ander aantal groepen wilt splitsen. De formule doorloopt cyclisch de groepsnummers 1 tot en met 4.
2. Sleep de formule omlaag langs uw volledige lijst om alle rijen van groepsnummers te voorzien. Het resultaat is een hulpkolom die elke rij labelt op basis van zijn groep.
3. Om de groepen te extraheren of weer te geven:
- Gebruik filters: pas een automatisch filter toe op uw lijst en sorteer razendsnel op groepsnummer om records direct te onderscheiden.
- U kunt elke groep kopiëren en plakken op afzonderlijke locaties of gebruikmaken van geavanceerde formules en draaitabellen om items naar wens te herschikken.
Als u Excel gebruikt met ondersteuning voor dynamische matrices (Microsoft 365 en Excel 2021+), kunt u een lijst automatisch verdelen over gelijkgrote kolommen met de functie WRAPROWS. Stel dat uw lijst zich bevindt in A2:A17 en u deze wilt splitsen over 4 kolommen (groepen):
=WRAPROWS(SORTBY(A2:A13, RANDARRAY(ROWS(A2:A13))), 4)Voer deze formule in een cel in waar u de opmaak van uw nieuwe groep wilt starten en druk op Enter. De functie vult vervolgens willekeurig kolommen met gelijke delen van uw lijst.
- Als uw lijst niet perfect gelijkmatig kan worden gesplitst, kunnen de kolom(men) #N/B-fouten bevatten. Pas indien nodig het aantal groepen (hier ‘4’) aan op basis van uw specifieke situatie.
- Lege cellen in het bereik worden in de gegroepeerde resultaten als nul behandeld.
Voordelen van de formulemethode zijn volledige compatibiliteit met gedeelde werkmappen en de mogelijkheid om groepsnummers snel opnieuw te berekenen als gegevens veranderen. Het typen of aanpassen van formules vereist echter aandacht voor detail—ongelijke bereiken of onjuiste groepsaantallen kunnen leiden tot ontbrekende of dubbele vermeldingen. Controleer bij fouten of uw lijstbereik correct is en of u de formules voor de volledige lijst omlaag hebt gesleept.
Tip: maak altijd eerst een back-up voordat u formules op originele gegevens toepast, en gebruik Plakken speciaal > Waarden nadat u groepen heeft gerangschikt, als u van plan bent hulpkolommen te verwijderen.
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