Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

Wie teilt man eine lange Liste in gleich große Gruppen in Excel auf?

Author Xiaoyang Last modified
split a long list into equal groups

Wenn Sie eine lange Liste von Daten haben, die wie im folgenden Screenshot gezeigt in mehrere gleich große Gruppen aufgeteilt werden muss, wie könnten Sie diese Aufgabe in Excel schnell und einfach bewältigen?

Eine lange Liste mit VBA-Code in mehrere gleich große Gruppen aufteilen

Eine lange Liste mit Kutools für Excel in mehrere gleich große Gruppen aufteilen


Eine lange Liste mit VBA-Code in mehrere gleich große Gruppen aufteilen

Abgesehen vom Kopieren und Einfügen der Daten einzeln, kann Ihnen auch der folgende VBA-Code helfen. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Eine lange Liste in mehrere gleich große Gruppen aufteilen

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. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und wählen Sie im erscheinenden Fenster die Spalte aus, die Sie in mehrere Gruppen aufteilen möchten, siehe Screenshot:

vba code to select the data range

4. Klicken Sie auf die Schaltfläche OK, und wählen Sie dann eine Zelle aus, in der Sie das Ergebnis im folgenden Dialogfeld platzieren möchten, siehe Screenshot:

vba code to select a cell to put the result

5. Klicken Sie auf OK und geben Sie im Dialogfeld die Anzahl der Zellen ein, die Sie pro Spalte aufteilen möchten, siehe Screenshot:

vba code to enter the number of cells that you want to split per column

6. Klicken Sie abschließend auf OK, um den Code abzuschließen, und die ausgewählten Listen-Daten wurden in mehrere gleich große Gruppen aufgeteilt, wie Sie es benötigen, siehe Screenshot:

the selected list data has been split into multiple equal groups


Eine lange Liste mit Kutools für Excel in mehrere gleich große Gruppen aufteilen

Wenn Sie Kutools für Excel installiert haben, können Sie mit der Funktion Bereich transformieren schnell eine lange Liste in mehrere Spalten und Zeilen aufteilen. Darüber hinaus können Sie auch mehrere Spalten in eine lange Liste zusammenführen.

Kutools für Excel bietet über 300 erweiterte Funktionen, um komplexe Aufgaben zu vereinfachen und Kreativität sowie Effizienz zu steigern. Durch die Integration mit KI-Funktionen automatisiert Kutools Aufgaben präzise und macht das Datenmanagement mühelos. Detaillierte Informationen zu Kutools für Excel... Kostenlose Testversion...

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie die lange Liste aus, die Sie aufteilen möchten, und klicken Sie dann auf Kutools > Bereich > Bereich transformieren, siehe Screenshot:

click Transform Range feature of kutools

2. Aktivieren Sie im Dialogfeld Bereich transformieren unter dem Abschnitt Transformationsart die Option Einzelne Spalte zu Bereich, aktivieren Sie dann den festen Wert und geben Sie die Anzahl der Zellen pro Zeile im Feld an, siehe Screenshot:

specify the options in the dialog box

3. Klicken Sie dann auf Ok und wählen Sie eine Zelle aus, in der Sie das Ergebnis im Dialogfeld platzieren möchten, siehe Screenshot:

select a cell where you want to locate the result

4. Klicken Sie auf die Schaltfläche OK, und die Daten in der Liste wurden in mehrere gleich große Gruppen aufgeteilt, wie Sie es benötigen.

Jetzt Kutools für Excel herunterladen und kostenlos testen!

Die besten Produktivitätstools für das Büro

🤖 Kutools AI Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung |  Code generieren  |  Benutzerdefinierte Formeln erstellen |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Doppelte suchen, hervorheben oder markieren | Leere Zeilen löschen | Spalten oder Zellen zusammenführen, ohne Daten zu verlieren | Runden...
Erweiterte SVERWEIS: SVERWEIS mit mehreren Kriterien | SVERWEIS für mehrere Werte | Mehrblatt-SVERWEIS | Fuzzy Match...
Erweiterte Dropdown-Liste: Dropdown-Liste schnell erstellen | Abhängige Dropdown-Liste | Mehrfachauswahl Dropdown-Liste...
Spaltenmanager: Eine bestimmte Anzahl an Spalten hinzufügen | Spalten verschieben | Sichtbarkeitsstatus versteckter Spalten umschalten | Bereiche & Spalten vergleichen...
Empfohlene Funktionen: Gitterfokus | Entwurfsansicht | Erweiterte Formelleiste | Arbeitsmappe & Arbeitsblatt-Manager | AutoText-Bibliothek | Datumsauswahl | Daten zusammenführen | Zellen verschlüsseln/entschlüsseln | E-Mail senden nach Liste | Super Filter | Spezialfilter (fett/kursiv/durchgestrichen filtern...) ...
Top15 Toolsets:12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...) |50+ Diagramm typen (Gantt-Diagramm, ...) |40+ praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...) |19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...) |12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...) |7 Konsolidierungs- & Aufteilungstools (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...) | ... und mehr
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher

  • Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
  • Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!

Alle Kutools-Add-Ins. Ein Installationspaket

Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.

Excel Word Outlook Tabs PowerPoint
  • All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
  • Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
  • 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
  • Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins