Wie transponiere / konvertiere ich Spalten und Zeilen in einzelne Zeilen?
Wie füge ich mehrere Zeilen und Spalten zu einer einzigen langen Zeile zusammen? Vielleicht scheint es Ihnen einfach zu sein, weil Sie sie einzeln kopieren und manuell zu einer Reihe zusammenfügen können. Es ist jedoch zeitaufwändig und langwierig, wenn Hunderte von Zeilen und Spalten vorhanden sind. Hier werde ich über einige schnelle Tricks sprechen, um es zu lösen.
Transponieren / Konvertieren von Spalten und Zeilen in eine einzelne Zeile mit Formel
Transponieren / Konvertieren von Spalten und Zeilen in eine einzelne Zeile mit VBA-Code
Transponieren / Konvertieren von Spalten und Zeilen in einzelne Zeilen mit Kutools for Excel
Transponieren / Konvertieren von Spalten und Zeilen in eine einzelne Zeile mit Formel
Angenommen, Sie haben einen Datenbereich, wie der folgende Screenshot zeigt, können Sie die Bereichsdaten in eine Zeile in einem neuen Arbeitsblatt mit einer langen Formel konvertieren.
Bitte wenden Sie die Formel wie folgt an:
1. Klicken Sie in einem neuen Arbeitsblatt der aktiven Arbeitsmappe auf Zelle A1, kopieren Sie diese Formel und fügen Sie sie ein: =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
Note: Sheet1! $ A $ 1 ist das Arbeitsblatt und die Bereichsreferenzen, die Sie verwenden möchten.
REIHE () - 1) * 5 in der obigen Formel 5 steht für die Zeilennummer; und SPALTE () - 1,4) / 4, der 4 steht für die Spaltennummer. Sie können sie nach Bedarf ändern.
2. Ziehen Sie dann den Füllgriff nach rechts, bis die Nummer 0 angezeigt wird. In diesem Fall wurden alle Daten im Bereich in einem neuen Arbeitsblatt in eine einzelne Zeile übertragen. Siehe Screenshot:
Transponieren / Konvertieren von Spalten und Zeilen in eine einzelne Zeile mit VBA-Code
Der folgende VBA-Code kann Ihnen auch dabei helfen, einen Datenbereich in eine Zeile zu konvertieren.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
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 Sub
3. Drücken Sie dann F5 Mit der Taste zum Ausführen des Codes wird ein Dialogfeld geöffnet, in dem Sie einen Inhaltsbereich auswählen können, den Sie in eine Zeile konvertieren möchten, und auf klicken OkIn einem weiteren Dialogfeld können Sie eine einzelne Zelle auswählen, um das Ergebnis zu veröffentlichen. Siehe Screenshots:
Dann klick Okwird der Inhalt im ausgewählten Bereich in eine Zeile konvertiert. Siehe Screenshot:
Note: Im Setze OutRng = OutRng.Offset (0, xCols + 0), du kannst ändern 0 zu einer beliebigen Anzahl, um Ihren Bedarf zu decken.
Wenn Sie beispielsweise die Ergebnisse der ursprünglichen Zeilen durch eine Spalte trennen möchten, können Sie sie ändern Setze OutRng = OutRng.Offset (0, xCols + 0) zu Setze OutRng = OutRng.Offset (0, xCols + 1)werden die Ergebnisse wie folgt gezeigt:
Transponieren / Konvertieren von Spalten und Zeilen in einzelne Zeilen mit Kutools for Excel
Es scheint, dass die beiden oben genannten Methoden für uns Excel-Anfänger etwas schwierig sind. Hier werde ich über ein praktisches Tool sprechen - Kutools für Excel für Sie.
Kutools for Excel Enthält mehr als 300 praktische Excel-Tools. Kostenlos ohne Einschränkung in 30 Tagen zu versuchen. Starten Sie jetzt
Mit dem Dienstprogramm Bereich transformieren of Kutools for ExcelWenn Sie einen Bereich schnell in eine einzelne Zeile umwandeln können, gehen Sie wie folgt vor:
1. Wählen Sie den Bereich aus, den Sie transponieren möchten.
2 Klicken Kutoolen > Entfernungsmesser > Bereich transformieren, siehe Screenshot:
3. In dem Bereich transformieren Dialogfeld auswählen Bereich bis einzelne Zeile Option, siehe Screenshot:
4. Dann klick OKKlicken Sie auf eine Zelle, um das Ergebnis aus dem Popup-Feld einzufügen.
5 Klicken OKund die Daten in dem Bereich wurden in eine einzelne Zeile transponiert. Siehe Screenshots:
Wenn Sie mehr über diese Funktion erfahren möchten, besuchen Sie bitte Bereich transformieren.
In Verbindung stehende Artikel:
Wie ändere ich eine Zeile in eine Spalte in Excel?
Wie transponiere / konvertiere ich eine einzelne Spalte in mehrere Spalten in Excel?
Wie transponiere / konvertiere ich Spalten und Zeilen in einzelne Spalten?
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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!