Hoe kolommen naar rijen te transponeren en nieuwe rijen in te voegen om gegevens naar beneden te vullen in Excel?

In dit artikel introduceer ik een VBA-code om kolommen naar rijen te transponeren en nieuwe rijen in te voegen om gegevens naar beneden te vullen, zoals in de onderstaande schermafbeelding te zien is. Als je geïnteresseerd bent in deze bewerking, ga dan hieronder voor meer details.

Transponeer en voeg rijen in met VBA

Transponeer en voeg rijen in met VBA

Er is geen directe manier om een bereik te transponeren en rijen in te voegen om dezelfde gegevens naar beneden te vullen, maar hier kan ik een VBA-code introduceren om deze taak snel op te lossen.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak de onderstaande VBA-code in het Module-venster. Zie schermafbeelding:

VBA: Transponeer en voeg rijen in.

 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. Druk op F5 toets om de code uit te voeren, en selecteer vervolgens het gegevensbereik dat u wilt transponeren en waarin u rijen wilt invoegen in het pop-updialoogvenster. Zie schermafbeelding:

4. Klik op OK. En het geselecteerde bereik is als volgt geconverteerd, zoals in de onderstaande schermafbeelding te zien is.

Opmerking: voordat u de code uitvoert, kunt u het beste een kopie van de originele gegevens opslaan.

Tip. Als u snel een tweedimensionale tabel wilt omzetten in een eendimensionale tabel of vice versa, probeer dan de functie Transponeer Tabel Dimensies van Kutools voor Excel zoals in de onderstaande schermafbeelding te zien is. Het heeft volledige functionaliteit zonder beperkingen in 30 dagen, download het nu en probeer het gratis uit.