Hoe een lange lijst opsplitsen in gelijke groepen in Excel?
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
Splits een lange lijst in meerdere gelijke groepen met VBA-code
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:
4. En klik op OK knop en selecteer vervolgens een cel waarin u het resultaat wilt lokaliseren in het volgende promptvenster, zie screenshot:
5. Klikken OK, en voer het aantal cellen in dat u per kolom wilt splitsen in het promptvenster, zie screenshot:
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:
Splits een lange lijst in meerdere gelijke groepen met Kutools voor Excel
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 > RANGE > 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:
3. Dan klikken Oken selecteer een cel waar u het resultaat in het promptvenster wilt vinden, zie screenshot:
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!
Demo: splits een lange lijst in meerdere gelijke groepen met Kutools voor Excel
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!