Wie teilt man eine lange Spalte in mehrere Spalten in Excel auf?

Wenn Sie in Excel eine lange Spalte mit Daten haben, kann es mühsam sein, diese zu betrachten. Wenn Sie jedoch diese lange Liste in mehrere Spalten aufteilen können, wird die Ansicht viel bequemer.
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.