Wie kann man jeweils 5 oder n Zeilen aus einer Spalte in mehrere Spalten transponieren?
Das Transponieren jeweils von 5 oder n Zeilen aus einer einzelnen Spalte in mehrere Spalten in Excel ist äußerst hilfreich, wenn Daten für Analysen oder Berichte neu strukturiert werden müssen. Angenommen, Sie haben eine lange Liste in Spalte A und möchten jeweils 5 aufeinanderfolgende Zeilen aus dieser Spalte in separate Zeilen mit mehreren Spalten transponieren – beispielsweise A1:A5 nach C6:G6, A6:A10 nach C7:G7 und so weiter, wie im linken Screenshot gezeigt. Diese Aufgabe lässt sich auf verschiedene Weise bewältigen, wobei jede Methode ihre eigenen Vorzüge bietet. Im Folgenden erhalten Sie eine detaillierte Schritt-für-Schritt-Anleitung zur Umsetzung.
Jeweils 5 oder n Zeilen aus einer Spalte in mehrere Spalten transponieren
Jeweils 5 oder n Zeilen aus einer Spalte in mehrere Spalten mit Formel transponieren
In Excel können Sie die folgende Formel verwenden, um jeweils n Zeilen aus einer Spalte in mehrere Spalten zu transponieren. Gehen Sie dazu wie folgt vor:
1. Geben Sie die folgende Formel in eine leere Zelle ein, in der das Ergebnis angezeigt werden soll.
=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
2. Ziehen Sie anschließend den Ausfüllkästchen zunächst fünf Zellen nach rechts und dann weiter nach unten über den gewünschten Zellbereich, bis 0 angezeigt wird (siehe Screenshot):
Jeweils 5 oder n Zeilen aus einer Spalte in mehrere Spalten mit Kutools für Excel transponieren
Sind Sie frustriert, weil Sie Excel-Daten aus einer Spalte in mehrere Spalten transponieren müssen? Die Funktion „Bereich transformieren“ von Kutools für Excel löst Ihr Problem! Ob Sie jeweils 5 Zeilen oder eine benutzerdefinierte Anzahl transponieren möchten – wir bieten die passende Lösung. Dank der flexiblen Zeilenumwandlung bestimmen Sie selbst, wie viele Zeilen aus einer Spalte in mehrere Spalten übertragen werden sollen. Einfach, schnell und ohne komplizierte Schritte – nur wenige Klicks genügen!
Nachdem Sie „Kutools für Excel“ installiert haben, gehen Sie wie folgt vor:
1. Markieren Sie die Daten in der Spalte und klicken Sie anschließend auf „Kutools“ > „Bereich“ > „Bereich transformieren“ (siehe Screenshot):
2. Wählen Sie im Dialogfeld „Bereich transformieren“ unter „Transformationsart“ die Option „Einzelne Spalte zu Bereich“ aus und aktivieren Sie anschließend „Fester Wert“ unter „Zeilen pro Datensatz“. Geben Sie dann im Feld „Fester Wert“ die Anzahl der Spalten an, in die Sie die Daten transponieren möchten (siehe Screenshot):
3. Klicken Sie danach auf die Schaltfläche „OK“. Wählen Sie im daraufhin geöffneten Fenster eine Zelle aus, in der das Ergebnis ausgegeben werden soll (siehe Screenshot):
4. Klicken Sie anschließend auf „OK“, und Ihre Spaltendaten werden jeweils alle 5 Zeilen transponiert – wie im folgenden Screenshot dargestellt:
Jeweils 5 oder n Zeilen aus einer Spalte in mehrere Spalten mit VBA-Code transponieren
Sollten Sie die Formel nicht korrekt anwenden können, unterstützt Sie der folgende VBA-Code.
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 Modulfenster ein.
VBA-Code: Jeweils 5 oder n Zeilen aus einer Spalte in mehrere Spalten transponieren:
Public Sub TransposeData()
'updateby Extendoffice
Dim xLRow As Long
Dim xNRow As Long
Dim i As Long
Dim xUpdate As Boolean
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count > 1) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range only contain one column", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xLRow = xRg.Rows.Count
For i = 1 To xLRow Step 5
xRg.Cells(i).Resize(5).Copy
xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
xNRow = xNRow + 1
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Nachdem Sie den Code eingefügt haben, drücken Sie die Taste „F5“, um ihn auszuführen. Anschließend erscheint ein Eingabefeld, das Sie auffordert, die zu transponierende Spalte auszuwählen (siehe Screenshot):
4. Klicken Sie dann auf „OK“ und wählen Sie im daraufhin geöffneten Fenster eine Zelle aus, in der das Ergebnis erscheinen soll (siehe Screenshot):
5. Klicken Sie auf „OK“. Die Daten aus der Spalte wurden nun erfolgreich in die gewünschten fünf Spalten aufgeteilt (siehe Screenshot):
Um jeweils 5 oder n Zeilen aus einer Spalte in mehrere Spalten in Excel zu transponieren, stellt dieser Artikel drei effektive Methoden vor. Jede dieser Methoden bietet einen anderen Ansatz zur Neuanordnung Ihrer Daten in Excel und richtet sich an Benutzer mit unterschiedlichen Erfahrungsstufen – egal, ob Sie Excel-Tools routiniert nutzen oder erste Schritte in der Programmierung wagen. Wenn Sie weitere Excel-Tipps und -Tricks entdecken möchten,bietet unsere Website Tausende von Anleitungen.
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