Wie stapelt man Spalten in Excel von links nach rechts zu einer einzigen Spalte?
Angenommen, es gibt mehrere Spalten, besteht die Aufgabe darin, diese Spalten Von links nach rechts wie in folgendem Screenshot gezeigt zu einer einzigen Spalte zusammenzuführen. Gibt es außer dem manuellen Verschieben der Spalten eine nach der anderen noch Tricks, um dies in Excel zu lösen?
Spalten Von links nach rechts mithilfe von VBA zu einer Spalte stapeln
Spalten Von links nach rechts mithilfe von Kutools für Excel zu einer Spalte stapeln
Spalten Von links nach rechts mithilfe von VBA zu einer Spalte stapeln
Excel bietet keine integrierte Funktion für diese Aufgabe – doch mit VBA-Code gelingt es Ihnen problemlos.
1. Drücken Sie die Tasten Alt + F11, und klicken Sie anschließend im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul, um ein neues leeres Modul zu erstellen.
2. Kopieren Sie den folgenden Code, und fügen Sie ihn in das Modul ein.
VBA: Spalten zu einer Spalte stapeln
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. Drücken Sie die Taste F5, um den Code auszuführen. Es erscheint ein Dialogfeld, in dem Sie die Spalten auswählen können, die Sie zu einer einzigen Spalte zusammenführen möchten.
4. Klicken Sie auf OK und wählen Sie eine Zelle aus, in der das Ergebnis platziert werden soll.
5. Klicken Sie auf OK, um den Vorgang abzuschließen. Die ausgewählten Spalten wurden nun zu einer einzigen Spalte zusammengefasst.
Spalten Von links nach rechts mithilfe von Kutools für Excel zu einer Spalte stapeln
Falls Sie Kutools für Excel in Excel installiert haben, können Sie das Hilfsprogramm Transform Range zur Lösung dieser Aufgabe verwenden.
Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:
1. Wählen Sie die Spalten aus, die Sie stapeln möchten, und klicken Sie auf Kutools > Bereich > Transform Range.
2. Aktivieren Sie im Dialogfeld Transform Range das Kontrollkästchen Range to single row und klicken Sie auf Ok.
3. Wählen Sie im erscheinenden Dialogfeld eine Zelle aus, in der das Ergebnis platziert werden soll, und klicken Sie auf OK.
Die Spalten wurden nun in eine einzelne Zeile umgewandelt.
4. Markieren Sie die einzelne Zeile, drücken Sie Strg + C, um sie zu kopieren, wählen Sie eine andere Zelle aus, in der die gestapelte Spalte platziert werden soll, klicken Sie mit der rechten Maustaste und wählen Sie im Kontextmenü Transponieren (T) aus.
Die einzelne Zeile wurde nun in eine gestapelte Spalte umgewandelt.
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