Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een lange lijst te splitsen in gelijke groepen in Excel?

doc splitsen lijst naar groepen 4

Als u een lange lijst met gegevens nodig heeft om te worden opgesplitst in meerdere gelijke groepen zoals het volgende screenshot laat zien, hoe zou u deze taak dan snel en gemakkelijk in Excel kunnen oplossen?

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

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


Eén kolom of rij in meerdere gelijke groepen splitsen:

Doordat uw bureau Kutools for Excel's Transformeer bereik functie, kunt u snel een cellenbereik naar een enkele rij of kolom converteren, u kunt ook een enkele rij of kolom naar een celbereik converteren.

doc splitsen lijst naar groepen 9

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!



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

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

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: een lange lijst splitsen in meerdere gelijke groepen

Sub SplitIntoCellsPerColumn()
'updatebyExtendoffice 20160225
    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 splitsen lijst naar groepen 1

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

doc splitsen lijst naar groepen 2

5. Klikken OKen voer het aantal cellen in dat u per kolom wilt splitsen in het aanwijzingsvak, zie screenshot:

doc splitsen 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 als je nodig hebt, zie screenshot:

doc splitsen lijst naar groepen 4


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

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

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

1. Selecteer de lange lijst die u wilt splitsen en klik vervolgens op Kutools > Bereik > Transformeer bereikzie screenshot:

doc splitsen lijst naar groepen 6

2. In de Transformeer bereik dialoogvenster, selecteer Eén kolom om te variëren onder de Transformeer type sectie en controleer vervolgens Vaste waarde en specificeer het aantal cellen per rij in het vak, zie screenshot:

doc splitsen lijst naar groepen 7

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

doc splitsen lijst naar groepen 8

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

Download en proef Kutools nu voor Excel!


Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    attom93 · 5 months ago
    I copied the code and Excel 365 says syntax error.
  • To post as a guest, your comment is unpublished.
    LM · 1 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.