Wie kann man Spalten in Zeilen umwandeln und neue Zeilen einfügen, um Daten in Excel nach unten auszufüllen?

In diesem Artikel stelle ich einen VBA-Code vor, mit dem Sie Spalten in Zeilen umwandeln und neue Zeilen einfügen können, um Daten wie im folgenden Screenshot gezeigt nach unten auszufüllen. Wenn Sie an dieser Berechnung interessiert sind, finden Sie weitere Details weiter unten.

Spalten umwandeln und Zeilen mit VBA einfügen

Spalten umwandeln und Zeilen mit VBA einfügen

Es gibt keinen direkten Weg, einen Bereich umzuwandeln und Zeilen einzufügen, um dieselben Daten nach unten auszufüllen, aber hier kann ich Ihnen einen VBA-Code vorstellen, der diese Aufgabe schnell löst.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden VBA-Code in das Modulfenster ein. Siehe Screenshot:

VBA: Spalten umwandeln und Zeilen einfügen.

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie F5 , um den Code auszuführen, und wählen Sie dann den Datenbereich aus, den Sie umwandeln und in den sich öffnenden Dialog einfügen möchten. Siehe Screenshot:

4. Klicken Sie auf OK. Und der ausgewählte Bereich wurde wie im folgenden Screenshot gezeigt umgewandelt.

Hinweis: Bevor Sie den Code ausführen, sollten Sie besser eine Kopie der Originaldaten speichern.

Tipp. Wenn Sie schnell eine zweidimensionale Tabelle in eine eindimensionale Tabelle oder umgekehrt umwandeln möchten, probieren Sie bitte die Funktion Transpose Table Dimensions von Kutools für Excel aus, wie im folgenden Screenshot gezeigt. Die Vollversion ist 30 Tage lang uneingeschränkt nutzbar. Laden Sie es jetzt herunter und testen Sie es kostenlos.