Wie kann man Spalten von links nach rechts in eine einzige Spalte in Excel stapeln?
Angenommen, es gibt mehrere Spalten, die Aufgabe besteht darin, die Spalten von links nach rechts in eine einzige Spalte wie im folgenden Screenshot zu stapeln. Abgesehen vom manuellen Verschieben der Spalten eine nach der anderen, gibt es Tricks, dies in Excel zu lösen?
Spalten von links nach rechts mit VBA in eine Spalte stapeln
Spalten von links nach rechts mit Kutools für Excel in eine Spalte stapeln
Spalten von links nach rechts mit VBA in eine Spalte stapeln
In Excel gibt es keine integrierte Funktion, die diese Aufgabe übernehmen kann, aber der VBA-Code kann Ihnen helfen.
1. Drücken Sie die Tasten Alt +F11, dann klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, um ein neues leeres Modul zu erstellen.
2. Kopieren und fügen Sie den folgenden Code in das Modul ein.
VBA: Spalten in eine 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 F5 , um den Code auszuführen. Ein Dialogfenster erscheint, in dem Sie die Spalten auswählen können, die Sie in eine stapeln möchten.
4. Klicken Sie OK, wählen Sie eine Zelle aus, um das Ergebnis zu platzieren.
5. Klicken Sie OK , um den Vorgang abzuschließen. Nun wurden die ausgewählten Spalten in eine einzige Spalte gestapelt.
Spalten von links nach rechts mit Kutools für Excel in eine Spalte stapeln
Wenn Sie Kutools für Excel in Excel installiert haben, können Sie das Hilfsprogramm Bereich transformieren verwenden, um diese Aufgabe zu erledigen.
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, klicken Sie auf Kutools > Bereich > Bereich transformieren.
2. Im Bereich transformieren Dialogfenster aktivieren Sie das Kontrollkästchen Bereich zu einzelner Zeile , klicken Sie auf Ok.
3. Wählen Sie im erscheinenden Dialogfenster eine Zelle aus, um das Ergebnis zu platzieren, klicken Sie auf OK.
Nun wurden die Spalten in eine einzige Zeile transformiert.
4. Wählen Sie die einzelne Zeile aus, drücken Sie Ctrl + C , um sie zu kopieren, und wählen Sie eine andere Zelle aus, die die gestapelte Spalte aufnehmen wird. Klicken Sie mit der rechten Maustaste und wählen Sie Transponieren (T) im Kontextmenü.
Nun wurde die einzelne Zeile in eine gestapelte Spalte transponiert.
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