Wie transponiert oder konvertiert man Spalten und Zeilen in eine einzelne Zeile?
Wie verknüpfen Sie mehrere Zeilen und Spalten zu einer einzigen, langen Zeile? Vielleicht erscheint Ihnen das einfach – schließlich könnten Sie die Daten einzeln kopieren und manuell zu einer Zeile zusammenfügen. Doch bei Hunderten von Zeilen und Spalten wird das schnell zeitaufwändig und mühsam. Im Folgenden stelle ich Ihnen einige schnelle Methoden vor, um dieses Problem effizient zu lösen.
Spalten und Zeilen mithilfe einer Formel in eine einzelne Zeile transponieren / konvertieren
Spalten und Zeilen mithilfe von VBA-Code in eine einzelne Zeile transponieren / konvertieren
Spalten und Zeilen mithilfe einer Formel in eine einzelne Zeile transponieren / konvertieren
Angenommen, Sie verfügen über einen Datenbereich wie im folgenden Screenshot dargestellt – dann können Sie diese Bereichsdaten mithilfe einer langen Formel in eine einzelne Zeile auf einem neuen Arbeitsblatt umwandeln.
Wenden Sie bitte die folgende Formel an:
1. Klicken Sie in einem neuen Arbeitsblatt der aktuellen Arbeitsmappe auf Zelle A1 und fügen Sie dort folgende Formel ein:=OFFSET(Sheet1!$A$1,((ZEILE()-1)*5)+(GANZZAHL((SPALTE()-1)/4)),(SPALTE()-1)-(GANZZAHL((SPALTE()-1)/4)))
Hinweis: Sheet1!$A$1 ist der Arbeitsblatt- und Bereichsbezug, den Sie verwenden möchten.
ZEILE()-1)*5 in der obigen Formel steht die 5 für die Zeilennummer; und bei SPALTE()-1,4)/4 steht die 4 für die Spaltennummer. Passen Sie diese Werte einfach entsprechend Ihren Anforderungen an.
2. Ziehen Sie anschließend das Ausfüllkästchen nach rechts, bis die Zahl 0 angezeigt wird. In diesem Fall wurden alle Daten aus dem Bereich in eine einzelne Zeile eines neuen Arbeitsblatts transponiert. Siehe Screenshot:
Spalten und Zeilen mithilfe von VBA-Code in eine einzelne Zeile transponieren / konvertieren
Auch der folgende VBA-Code hilft Ihnen dabei, einen Datenbereich in eine einzelne Zeile umzuwandeln.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
InputRng.Rows(i).Copy OutRng
Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub3. Drücken Sie anschließend die Taste F5, um den Code auszuführen. Es erscheint ein Dialogfeld, in dem Sie einen Bereich mit den Inhalten auswählen können, die Sie in eine Zeile konvertieren möchten. Klicken Sie auf OK. Daraufhin öffnet sich ein weiteres Dialogfeld, in dem Sie eine einzelne Zelle auswählen können, in der das Ergebnis ausgegeben werden soll. Siehe Screenshots:
 |
 |
 |
Klicken Sie dann auf OK, um die Inhalte aus dem Bereich „Auswählen“ in eine Zeile zu konvertieren. Siehe Screenshot:
 |
|
 |
Hinweis: In Set OutRng = OutRng.Offset(0, xCols + 0) können Sie 0 durch eine beliebige Zahl ersetzen, um Ihre Anforderungen zu erfüllen.
Möchten Sie die Ergebnisse beispielsweise entsprechend den ursprünglichen Zeilen durch eine Spalte trennen, ändern Sie Set OutRng = OutRng.Offset(0, xCols + 0)in Set OutRng = OutRng.Offset(0, xCols + 1). Die Ergebnisse sehen dann wie folgt aus:
Spalten und Zeilen mithilfe von Kutools für Excel in eine einzelne Zeile transponieren / konvertieren
Die beiden oben genannten Methoden mögen für Excel-Anfänger etwas schwierig erscheinen – daher stellen wir Ihnen jetzt ein praktisches Tool vor: Kutools für Excel.
Kutools für Excel umfasst mehr als 300 praktische Excel-Tools – testen Sie es jetzt kostenlos und ohne Einschränkungen 30 Tage lang! Jetzt herunterladen
Mithilfe des Tools Bereich transformieren aus Kutools für Excel können Sie schnell einen Bereich in eine einzelne Zeile umwandeln. Gehen Sie dazu wie folgt vor:
1. Wählen Sie den Bereich aus, den Sie transponieren möchten.
2. Klicken Sie auf Kutools > Bereich > Bereich transformieren.
3. Wählen Sie im Dialogfeld Bereich transformieren die Option Bereich zu einzelner Zeile aus. Siehe Screenshot:
4. Klicken Sie anschließend auf OK und wählen Sie im erscheinenden Dialogfeld eine Zelle aus, in der das Ergebnis platziert werden soll.
5. Klicken Sie auf OK, und die Daten aus dem Bereich werden in eine einzelne Zeile transponiert. Siehe Screenshots:
|
|
 |
Weitere Informationen zu dieser Funktion finden Sie unter Bereich transformieren.
Verwandte Artikel:
Wie wandelt man eine Zeile in eine Spalte in Excel um?
Wie transponiert oder wandelt man eine einzelne Spalte in mehrere Spalten in Excel um?
Wie kann man Spalten und Zeilen in eine einzelne Spalte transponieren oder umwandeln?
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