Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Dans cet article, je présente un code VBA pour transposer des colonnes en lignes et insérer de nouvelles lignes pour remplir les données comme ci-dessous capture d'écran, si vous êtes intéressé par cette opération, veuillez aller ci-dessous pour plus de détails.
doc transpose des rangées d'insertion 1

Transposez et insérez des lignes avec VBA


flèche bleue droite bulle Transposez et insérez des lignes avec VBA


Il n'y a pas de moyen direct de transposer une plage et d'insérer des lignes pour remplir les mêmes données, mais ici je peux introduire un code VBA pour résoudre rapidement cette tâche.

1. presse Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez sous le code VBA dans la fenêtre Module. Voir la capture d'écran:

VBA: Transposez et insérez 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

doc transpose des rangées d&#39;insertion 2

3. presse F5 clé pour exécuter le code, puis sélectionnez la plage de données que vous souhaitez transposer et insérer des lignes dans la boîte de dialogue popping. Voir la capture d'écran:
doc transpose des rangées d&#39;insertion 3

4. Cliquez OK. Et la gamme sélectionnée a été convertie comme ci-dessous capture d'écran montré.
doc transpose des rangées d&#39;insertion 4

Note: avant d'exécuter le code, il est préférable d'enregistrer une copie des données d'origine.

Pointe.Si vous voulez transposer rapidement une table croisée à une table de liste ou vice versa, essayez d'utiliser Kutools for Excel Transposer les dimensions de la table comme indiqué dans la capture d'écran suivante. C'est pleine fonction sans limitation dans les jours 60, s'il vous plaît télécharger et avoir un essai gratuit maintenant.

doc transpose cross à la liste


Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Val · 1 years ago
    how would i change the VBA code so that it will keep more of the columns the same? for example instead of the first two columns staying the same it will be the first 4?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      I am not sure, may be you can try to change x = xRg(1, 1).Column + 2 to x = xRg(1, 1).Column + 4.
  • To post as a guest, your comment is unpublished.
    Chasles · 1 years ago
    If my cross table's informations come from formulas, those formulas don't always follow when the macro is applied. How could I fix this to make sure that the formulas are kept in the cells?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, thank u for ur message. For solving your problem, you can apply Kutools' Convert Formula to Text before you running the macro, then after transposing thetable, apply Kutools' Convert Text to Formula. Please Let me know if it works. Thank u.