Wie teilt man eine lange Spalte in Excel in mehrere Spalten auf?
Lange Spalte mithilfe von VBA in mehrere Spalten aufteilen
Eine lange Spalte mit Kutools für Excel in mehrere Spalten aufteilen
Lange Spalte mithilfe von VBA in mehrere Spalten aufteilen
1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das erscheinende Fenster ein.
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 das VBA-Skript auszuführen. Es erscheint ein Dialogfeld, in dem Sie Ihre Datenliste auswählen können. Klicken Sie anschließend auf OK, um im nächsten Dialogfeld festzulegen, wie viele Zeilen pro Spalte Sie benötigen, und wählen Sie danach mit einem weiteren Klick auf OK die Zelle aus, in der das Ergebnis ausgegeben werden soll. Siehe Screenshots:
 |
 |
 |
|
 |
4. Klicken Sie auf OK, und schon sehen Sie, dass die lange Spalte in mehrere Spalten aufgeteilt wurde – jede mit jeweils 15 Zellen.
Eine lange Spalte mit Kutools für Excel in mehrere Spalten aufteilen
Möglicherweise möchten einige von Ihnen auf VBA-Code verzichten. Glücklicherweise können Sie das Bereich transformieren-Tool von Kutools für Excel nutzen, um eine lange Spalte schnell und einfach in eine feste Anzahl von Spalten umzuwandeln.
Nach der Installation von Kutools für Excel gehen Sie wie folgt vor:
1. Wählen Sie die Spaltdaten aus, die Sie aufteilen möchten, und klicken Sie anschließend auf Kutools > Bereich > Bereich transformieren. Siehe Screenshot:
2. Aktivieren Sie im erscheinenden Dialogfeld die Option Einzelne Spalte zu Bereich, anschließend die Option Fester Wert und geben Sie die gewünschte Anzahl an 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. Ihre langen Spaltendaten wurden nun auf drei Spalten aufgeteilt.
Ist das einfacher als VBA-Code? Mit dem Bereich transformieren-Tool wandeln Sie im Handumdrehen eine Zeile in einen Bereich, einen Bereich in eine Zeile oder eine einzelne Spalte um.
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins