Wie teilt man eine lange Spalte in mehrere Spalten in Excel auf?
Lange Spalte mit VBA in mehrere Spalten aufteilen
Lange Spalte mit Kutools für Excel in mehrere Spalten aufteilen
Lange Spalte mit VBA in mehrere Spalten aufteilen
1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und kopieren Sie den folgenden VBA-Code in das aufgepoppte Fenster.
VBA: Lange Spalte in mehrere Spalten aufteilen.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie die Taste F5, um den VBA-Code auszuführen. Ein Dialogfenster erscheint zur Auswahl der Datenliste. Klicken Sie dann auf OK, um im nächsten Dialog anzugeben, wie viele Zeilen pro Spalte benötigt werden. Klicken Sie erneut auf OK und wählen Sie eine Zelle aus, um das Ergebnis auszugeben. Siehe Screenshots:
 |
 |
 |
|
 |
4. Klicken Sie OK, und Sie sehen, dass die lange Spalte in mehrere Spalten aufgeteilt ist, wobei jede Spalte 15 Zellen hat.
Lange Spalte mit Kutools für Excel in mehrere Spalten aufteilen
Vielleicht mögen einige von Ihnen keine VBA-Codes verwenden. Zum Glück können Sie das Hilfsprogramm Bereich transformieren von Kutools für Excel nutzen, um schnell und einfach eine lange Spalte in eine feste Anzahl von Spalten umzuwandeln.
Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:
1. Wählen Sie die Spaltendaten aus, die Sie aufteilen möchten, und klicken Sie dann auf Kutools > Bereich > Bereich transformieren. Siehe Screenshot:
2. Aktivieren Sie im aufpoppenden Dialogfenster die Option Einzelne Spalte zu Bereich Option, dann aktivieren Sie Fester Wert Option und geben Sie die Anzahl der benötigten Spalten in das Textfeld ein. Siehe Screenshot:
3. Klicken Sie auf OK und wählen Sie eine einzelne Zelle aus, um die aufgeteilten Daten auszugeben. Siehe Screenshot:
4. Klicken Sie auf OK um den Vorgang abzuschließen. Nun wurden die langen Spaltendaten in drei Spalten aufgeteilt.
Ist das nicht einfacher als der VBA-Code? Mit dem Hilfsprogramm Bereich transformieren können Sie eine Zeile in einen Bereich, einen Bereich in eine Zeile oder eine Spalte umwandeln.
Die besten Produktivitätstools für das Büro
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.
- 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