Comment transposer des colonnes en lignes et insérer de nouvelles lignes pour remplir les données vers le bas dans Excel ?

Dans cet article, je vous présente un code VBA pour transposer des colonnes en lignes et insérer de nouvelles lignes afin de remplir les données vers le bas, comme illustré dans la capture d'écran ci-dessous. Si cette opération vous intéresse, veuillez consulter les détails ci-dessous.

Transposer et insérer des lignes avec VBA

Transposer et insérer des lignes avec VBA

Il n'y a pas de méthode directe pour transposer une plage et insérer des lignes pour remplir les mêmes données vers le bas, mais ici, je peux vous présenter un code VBA pour résoudre rapidement cette tâche.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans la fenêtre Module. Voir la capture d'écran :

VBA : Transposer et insérer des lignes.

 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. Appuyez sur F5 pour exécuter le code, puis sélectionnez la plage de données que vous souhaitez transposer et dans laquelle insérer des lignes dans la boîte de dialogue qui apparaît. Voir la capture d'écran :

4. Cliquez sur OK. Et la plage sélectionnée a été convertie comme le montre la capture d'écran ci-dessous.

Remarque : avant d'exécuter le code, il est préférable de sauvegarder une copie des données originales.

Astuce. Si vous souhaitez rapidement transposer un tableau bidimensionnel en tableau unidimensionnel ou vice versa, essayez d'utiliser Transposer la dimension du tableau de Kutools pour Excel, comme illustré dans la capture d'écran suivante. Il est entièrement fonctionnel sans limitation pendant 30 jours, téléchargez-le et essayez-le gratuitement dès maintenant.