Wie teile ich eine lange Liste in Excel in gleiche Gruppen auf?
Wenn Sie eine lange Liste von Daten haben, die wie im folgenden Screenshot gezeigt in mehrere gleiche Gruppen aufgeteilt werden müssen, wie können Sie diese Aufgabe in Excel schnell und einfach erledigen?
Teilen Sie eine lange Liste mit VBA-Code in mehrere gleiche Gruppen auf
Teilen Sie mit Kutools for Excel eine lange Liste in mehrere gleiche Gruppen auf
Teilen Sie eine lange Liste mit VBA-Code in mehrere gleiche Gruppen auf
Abgesehen davon, dass Sie die Daten einzeln kopieren und einfügen, kann Ihnen der folgende VBA-Code auch einen Gefallen tun. Führen Sie die folgenden Schritte aus:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Teilen Sie eine lange Liste in mehrere gleiche Gruppen auf
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. Dann drücken F5 Geben Sie die Taste ein, um diesen Code auszuführen, und wählen Sie im ausgeblendeten Feld die Spalte aus, die Sie in mehrere Gruppen aufteilen möchten (siehe Abbildung):
4. Und klicken Sie auf OK Klicken Sie auf die Schaltfläche, und wählen Sie im folgenden Eingabeaufforderungsfeld eine Zelle aus, in der Sie das Ergebnis suchen möchten (siehe Abbildung):
5. Klicken Sie OKGeben Sie im Eingabeaufforderungsfeld die Anzahl der Zellen ein, die Sie pro Spalte teilen möchten (siehe Abbildung):
6. Abschließend klicken Sie auf OK Um den Code zu beenden und die ausgewählten Listendaten nach Bedarf in mehrere gleiche Gruppen aufzuteilen, siehe Screenshot:
Teilen Sie mit Kutools for Excel eine lange Liste in mehrere gleiche Gruppen auf
Wenn Sie installiert haben Kutools for ExcelMit seinen Bereich transformieren Mit dieser Funktion können Sie eine lange Liste schnell in mehrere Spalten und Zeilen aufteilen. Außerdem können Sie mehrere Spalten zu einer langen Liste kombinieren.
Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:
1. Wählen Sie die lange Liste aus, die Sie teilen möchten, und klicken Sie dann auf Kutoolen > Abdeckung > Bereich transformieren, siehe Screenshot:
2. In dem Bereich transformieren Dialogfeld auswählen Einzelne Spalte zum Bereich unter dem Typ transformieren Abschnitt, und dann überprüfen Fester Wert und geben Sie die Anzahl der Zellen pro Zeile im Feld an, siehe Screenshot:
3. Dann klick Okund wählen Sie im Eingabeaufforderungsfeld eine Zelle aus, in der Sie das Ergebnis suchen möchten (siehe Abbildung):
4. Und klick OK Schaltfläche, wurden die Daten in der Liste nach Bedarf in mehrere gleiche Gruppen aufgeteilt.
Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!
Demo: Teilen Sie mit Kutools for Excel eine lange Liste in mehrere gleiche Gruppen auf
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
- Zuletzt aktualisiert am .