Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe een lange lijst opsplitsen in gelijke groepen in Excel?

doc gesplitste lijst naar groepen 4

Als u een lange lijst met gegevens heeft die in meerdere gelijke groepen moeten worden opgesplitst, zoals in de volgende schermafbeelding, hoe kunt u deze taak dan snel en gemakkelijk in Excel afhandelen?

Splits een lange lijst in meerdere gelijke groepen met VBA-code

Splits een lange lijst in meerdere gelijke groepen met Kutools voor Excel


Behalve het een voor een kopiëren en plakken van de gegevens, kan de volgende VBA-code u ook een plezier doen, doe dit met de volgende stappen:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het 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 Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en selecteer in het uitgeklapte vak de kolom die u in meerdere groepen wilt splitsen, zie screenshot:

doc gesplitste lijst naar groepen 1

4. En klik op OK knop en selecteer vervolgens een cel waarin u het resultaat wilt lokaliseren in het volgende promptvenster, zie screenshot:

doc gesplitste lijst naar groepen 2

5. Klikken OK, en voer het aantal cellen in dat u per kolom wilt splitsen in het promptvenster, zie screenshot:

doc gesplitste lijst naar groepen 3

6. Klik ten slotte op OK om de code te voltooien en de geselecteerde lijstgegevens zijn opgesplitst in meerdere gelijke groepen zoals je nodig hebt, zie screenshot:

doc gesplitste lijst naar groepen 4


Als je hebt geïnstalleerd Kutools for Excel, Met Transformeer bereik functie, kunt u snel een lange lijst opsplitsen in meerdere kolommen en rijen, bovendien kunt u ook meerdere kolommen combineren in één lange lijst.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. 

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Selecteer de lange lijst die u wilt splitsen en klik op Kutools > Bereik > Transformeer bereik, zie screenshot:

2. In de Transformeer bereik dialoogvenster, selecteer Enkele kolom om te bereiken onder de Type transformeren sectie, en controleer dan Vaste waarde en specificeer het aantal cellen per rij in het vak, zie screenshot:

doc gesplitste lijst naar groepen 7

3. Dan klikken Oken selecteer een cel waar u het resultaat in het promptvenster wilt vinden, zie screenshot:

doc gesplitste lijst naar groepen 8

4. En klik OK knop, zijn de gegevens in de lijst opgesplitst in meerdere gelijke groepen als je nodig hebt.

Download en gratis proef Kutools voor Excel nu!


Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    tpdixon · 1 years ago
    the code works great for me. How do I change it from asking how many in each colum to how many columns needed? so that it equally divides the information into a set number of columns.
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, trinetta,
      May be the following article can help you, in that article, there are some formulas may meet your need. Please check it:
      https://www.extendoffice.com/documents/excel/681-excel-change-columns-to-rows.html
      • To post as a guest, your comment is unpublished.
        Tpdixon · 1 years ago
        The link only tells me how to do the same thing. It doesnt tell me how to tell the code or formula how many columns i need...just how many in each column.
        • To post as a guest, your comment is unpublished.
          skyyang · 1 years ago
          Hi, Tpdixon,
          In that article, the formula: =OFFSET($A$1,COLUMNS($A1:A1)-1+(ROWS($1:1)-1)*5 can help you to split the list into mulitiple columns, you just need to change the number 5 to other number you need, it represents the column number.
          After entering this formula, you should drag the fill handle acrross to right with 5 cells.
          Please try, thank you!
  • To post as a guest, your comment is unpublished.
    Tdix1 · 1 years ago
    how can I change it from the number of cells per column to the number of columns needed. so that the data is split up evenly amongst a number of columns instead of picking how many to have in each column?
  • To post as a guest, your comment is unpublished.
    attom93 · 2 years ago
    I copied the code and Excel 365 says syntax error.
  • To post as a guest, your comment is unpublished.
    LM · 3 years ago
    This comes in very handy! One question: In the VBA code how can I transpose the output? So instead of xRg.Rows.Count / I = number of colums output, the output is generated as xRg.Rows.Count / I = number of rows output with I being the number of columns per row.