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

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:

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:

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

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:

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.

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:

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:

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:

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!