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

• Formel verwenden
• Ein leistungsstarkes Tool verwenden - Kutools für Excel
• VBA-Code verwenden

 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.