Wie kann man alle 5 oder n Zeilen von einer Spalte in mehrere Spalten transponieren?
Das Transponieren von jeweils 5 oder n Zeilen aus einer einzelnen Spalte in mehrere Spalten in Excel kann sehr nützlich sein, wenn Daten für die Analyse oder Berichterstellung neu organisiert werden müssen. Angenommen, Sie haben lange Daten in Spalte A und möchten nun alle 5 Zeilen aus Spalte A in mehrere Spalten transponieren, z. B. A1:A5 nach C6:G6, A6:A10 nach C7:G7 und so weiter, wie im linken Screenshot dargestellt. Diese Aufgabe kann mit verschiedenen Methoden angegangen werden, jede mit ihren eigenen Vorteilen. Gehen wir durch eine detaillierte Schritt-für-Schritt-Anleitung, um dies zu erreichen.
Jeweils 5 oder n Zeilen von einer Spalte in mehrere Spalten transponieren
Jeweils 5 oder n Zeilen von einer Spalte in mehrere Spalten mit Formel transponieren
In Excel können Sie die folgende Formel anwenden, um jeweils n Zeilen von einer Spalte in mehrere Spalten zu transponieren. Bitte gehen Sie wie folgt vor:
1. Geben Sie die folgende Formel in eine leere Zelle ein, wo Sie das Ergebnis anzeigen möchten.
=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
2. Ziehen Sie dann den Ausfüllkursor nach rechts zu fünf Zellen und ziehen Sie den Ausfüllkursor weiter nach unten über den Zellbereich, bis 0 angezeigt wird, siehe Screenshot:
Jeweils 5 oder n Zeilen von einer Spalte in mehrere Spalten mit Kutools für Excel transponieren
Sind Sie frustriert darüber, Excel-Daten von einer Spalte in mehrere Spalten zu transponieren? Die Funktion "Bereich transformieren" von "Kutools für Excel" ist hier, um Ihre Probleme zu lösen! Ob Sie alle 5 Zeilen oder eine benutzerdefinierte Anzahl von Zeilen transponieren müssen, wir haben Sie abgedeckt. Flexible Zeilenkonvertierung ermöglicht es Ihnen, die Anzahl der Zeilen frei zu wählen, die Sie von einer Spalte in mehrere Spalten transponieren möchten. Es ist einfach und schnell, erfordert keine komplexen Operationen – nur ein paar Klicks, um es zu erledigen.
Nach der Installation von "Kutools für Excel" gehen Sie bitte wie folgt vor:
1. Wählen Sie die Daten in der Spalte aus und klicken Sie dann auf "Kutools" > "Bereich" > "Bereich transformieren", siehe Screenshot:
2. Wählen Sie im Dialogfeld "Bereich transformieren" die Option "Einzelne Spalte zu Bereich" unter "Transformationsart" aus und aktivieren Sie dann "Fester Wert" unter "Zeilen pro Datensatz". Geben Sie anschließend die Anzahl der Spalten, in die Sie transponieren möchten, im Feld "Fester Wert" an, siehe Screenshot:
3. Klicken Sie dann auf die Schaltfläche "OK". Im daraufhin erscheinenden Fenster wählen Sie bitte eine Zelle aus, um das Ergebnis auszugeben, siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche "OK" und Ihre Spaltendaten wurden alle 5 Zeilen wie im folgenden Screenshot gezeigt transponiert:
Jeweils 5 oder n Zeilen von einer Spalte in mehrere Spalten mit VBA-Code transponieren
Wenn Sie die Formel nicht korrekt anwenden können, kann Ihnen der folgende VBA-Code ebenfalls helfen.
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 im Fenster "Modul" ein.
VBA-Code: Jeweils 5 oder n Zeilen von 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 bitte die Taste "F5", um ihn auszuführen, und ein Eingabefenster wird erscheinen, das Sie auffordert, die Spalte auszuwählen, die Sie transponieren möchten, siehe Screenshot:
4. Klicken Sie dann auf "OK" und wählen Sie in einem weiteren Fenster eine Zelle aus, in der Sie das Ergebnis anzeigen möchten, siehe Screenshot:
5. Klicken Sie auf "OK" und die Daten in der Spalte wurden in fünf Spalten konvertiert, die Sie benötigen, siehe Screenshot:
Um alle 5 oder n Zeilen von 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 von Daten in Excel und berücksichtigt unterschiedliche Vertrautheitsgrade der Benutzer mit Excel-Tools und Programmierung. Wenn Sie daran interessiert sind, weitere Excel-Tipps und -Tricks zu erkunden, bietet unsere Website Tausende von Tutorials.
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