Genereer snel willekeurige groepen voor een lijst met gegevens in Excel
In uw dagelijkse werk of bij het voorbereiden van studie- of trainingsessies moet u een lijst met gegevens—zoals namen, studentnummers of projecttaken—misschien willekeurig in groepen verdelen. Zoals te zien in screenshot1, worden gegevensitems willekeurig aan groepen toegewezen, of zoals gedemonstreerd in screenshot2, worden namen verdeeld over willekeurige teams voor een activiteit of groepstaak. Deze taak efficiënt uitvoeren garandeert eerlijkheid en bespaart aanzienlijk meer tijd dan handmatige toewijzing. Gelukkig biedt Excel diverse betrouwbare methoden, waaronder formules, VBA-automatisering en draaitabelanalyse, om willekeurige groepstoewijzing snel en flexibel aan te pakken.
| Screenshot1 | Screenshot2 |
 |  |
Gegevens willekeurig toewijzen aan groepen
Willekeurige groepen genereren met een opgegeven gegevensgrootte
Automatiseer willekeurige groepstoewijzing met VBA (Geavanceerde opties)
Wanneer u een lijst met gegevens willekeurig wilt verdelen over een opgegeven aantal groepen – en het acceptabel is dat de groepsgroottes variëren – dan lukt dat razendsnel met de functies KIES en RANDBETWEEN in Excel. Denk aan typische scenario’s zoals het indelen van deelnemers voor spelletjes of het vormen van tijdelijke teams voor vergaderingen.
Selecteer eerst een lege cel naast uw lijst (bijvoorbeeld cel B2 als uw lijst zich in kolom A bevindt) en voer daarna de volgende formule in:
=CHOOSE(RANDBETWEEN(1,3),"Group A","Group B",„Group C ")
In deze formule:
- RANDBETWEEN(1,3) betekent dat er willekeurige getallen tussen 1 en 3 worden gegenereerd, wat staat voor 3 groepen.
- Groep A, Groep B en Groep C zijn de groepsnamen die naast uw gegevens verschijnen.
Sleep daarna de vulgreep omlaag om de formule op andere rijen toe te passen en alle items willekeurig aan groepen toe te wijzen.
Na deze stap wordt elk gegevensitem willekeurig aan een groep toegewezen. Houd er rekening mee dat de resultaten kunnen veranderen telkens wanneer het werkblad opnieuw wordt berekend — bijvoorbeeld na het bewerken van een cel of het opnieuw openen van het bestand — omdat RANDBETWEEN een volatiele functie is.
Praktische tip: Als u niet wilt dat deze toewijzingen veranderen, kopieert u de formuleresultaten en gebruikt u Plakken speciaal > Waarden om de toewijzingen vast te leggen.
Toepasselijke scenario’s: Deze methode biedt flexibiliteit en is ideaal voor snelle, algemene groeperingsbehoeften. De groepsgrootten kunnen echter variëren, waardoor deze niet geschikt is voor situaties waarin strikt gelijke verdeling vereist is.
Let op: Wees voorzichtig bij grote datasets of wanneer exacte groepsgroottes nodig zijn – overweeg andere methoden voor meer controle.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Om gegevens te verdelen over willekeurig toegewezen groepen met een vast aantal items per groep – bijvoorbeeld vier leden per groep – biedt de combinatie van AFRONDEN.NAAR.BOVEN en RANG in Excel een effectieve oplossing. Dit is ideaal voor klasindelingen, gebalanceerde teamvorming of scenario’s waarin uniforme groepsgroottes vereist zijn.
Voer deze methode als volgt uit:
1. Voeg eerst een hulpkolom naast uw gegevens toe (bijvoorbeeld kolom E) en typ in cel E2 het volgende:
=RAND()
Sleep deze formule omlaag om alle benodigde cellen in uw lijst in te vullen. De RAND-functie wijst elk item een willekeurige waarde toe.
2. Voer in de volgende kolom (bijvoorbeeld F2) de volgende formule in:
=AFRONDEN.NAAR.BOVEN(RANG(E2;$E$2:$E$13)/4;0)
Hierbij:
- E2:E13: Pas dit bereik aan zodat het overeenkomt met uw gegevens. Het moet alle rijen bevatten waarin de =RAND()-functie is gebruikt.
- 4: De grootte van elke groep. Pas dit getal aan als u andere groepsgroottes nodig heeft.
Sleep de vulgreep omlaag om deze formule op alle rijen toe te passen. Uw gegevens worden nu verdeeld over groepen van ongeveer vier items per groep.
Aanvullende richtlijnen:
- Als het totale aantal items niet deelbaar is door de groepsgrootte, bevat de laatste groep mogelijk minder items.
- Gebruik Plakken speciaal > Waarden na randomisatie om de groepen vast te leggen en te voorkomen dat ze bij herberekening veranderen.
- Het vernieuwen van RAND() zorgt voor een nieuwe willekeurige indeling in groepen – handig als de initiële toewijzing aangepast moet worden.
Beperkingen: Met deze methode kunt u de groepsnaam niet direct opgeven (er worden automatisch groepsnummers gegenereerd), en bij grote datasets kan de formule de herberekening vertragen.
Voor gebruikers met geavanceerdere eisen—zoals het garanderen dat geen enkel lid deel uitmaakt van meer dan één groep, exact gebalanceerde groepsgroottes of herindeling op basis van specifieke voorwaarden—biedt VBA meer flexibiliteit. Deze aanpak is ideaal voor grote lijsten of bij herhaalde toewijzingen. Sla uw bestand altijd eerst op voordat u begint, aangezien VBA-code uw gegevens meestal direct wijzigt.
1. Klik op Ontwikkelaarshulpmiddelen > Visual Basic om de VBA-editor te openen. Klik vervolgens op Invoegen > Module. Kopieer en plak de volgende code in de nieuwe module:
Sub AssignRandomGroups()
Dim GroupCount As Integer
Dim GroupSize As Integer
Dim rng As Range, cell As Range
Dim i As Long, j As Long, idx As Long
Dim arr() As Variant, groupArr() As Variant, grpNum As Integer
Dim ws As Worksheet
Dim totalRows As Integer, remaining As Integer
On Error Resume Next
Set ws = Application.ActiveSheet
Set rng = Application.InputBox("Select the range of data to group", "KutoolsforExcel", Type:=8)
GroupCount = Application.InputBox("Enter the number of groups:", "KutoolsforExcel", 3, Type:=1)
If rng Is Nothing Or GroupCount <= 0 Then Exit Sub
arr = rng.Value
totalRows = UBound(arr, 1)
GroupSize = Int(totalRows / GroupCount)
remaining = totalRows - GroupSize * GroupCount
ReDim groupArr(1 To totalRows)
Dim used() As Boolean
ReDim used(1 To totalRows)
Randomize
For i = 1 To totalRows
Do
idx = Int(Rnd() * totalRows) + 1
Loop While used(idx)
used(idx) = True
groupArr(i) = idx
Next i
For i = 1 To totalRows
grpNum = Int((i - 1) / GroupSize) + 1
If grpNum > GroupCount Then grpNum = GroupCount
rng.Cells(groupArr(i), 1).Offset(0, 1).Value = "Group " & grpNum
Next i
MsgBox "Groups assigned randomly and as evenly as possible.", vbInformation
End Sub2. Klik vervolgens op de knop 
om de code uit te voeren. U wordt gevraagd het bereik van uw gegevens te selecteren (bijvoorbeeld een kolom met namen of ID’s) en daarna het gewenste aantal groepen in te voeren. De VBA-code wijst dan elke rij gegevens toe aan één groep en plaatst het groepsnummer in de kolom direct rechts daarvan.
- Voorkom dubbele groepstoewijzingen: Elk lid wordt slechts aan één groep toegewezen.
- Gebalanceerde groepen: Verdeelt deelnemers zo gelijkmatig mogelijk. Als een exacte verdeling niet mogelijk is, mogen de laatste groep(en) één deelnemer meer of minder bevatten.
- Aanpassing: U kunt de VBA-code aanpassen om de uitvoertekst, de startkolom of extra toewijzingsregels te wijzigen.
Waarschuwingen: VBA past uw werkbladgegevens direct aan—maak altijd eerst een back-up voordat u de code uitvoert. Als u fouten tegenkomt (bijvoorbeeld wanneer u meer kolommen selecteert dan verwacht), controleer dan opnieuw uw selectie en de ingevoerde groepsaantallen.
Probleemoplossing: Als het tabblad Ontwikkelaar niet zichtbaar is, schakelt u dit in via Bestand > Opties > Werkbalk aanpassen > Ontwikkelaar. Controleer bij fouten of uw macro-instellingen zijn ingeschakeld (Bestand > Opties > Trustcentrum).
Voordelen per use case: VBA is ideaal voor gevorderde gebruikers die strikte controle, grote datasets of herhaalde taakautomatisering nodig hebben. Voor snelle, eenvoudige taken is het minder geschikt, omdat het inschakelen van macro’s en het schrijven of aanpassen van code vereist.
Klik om het voorbeeldbestand te downloaden
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