Comment transposer toutes les 5 ou n lignes d'une colonne à plusieurs colonnes?

La transposition toutes les 5 ou n lignes d'une seule colonne vers plusieurs colonnes dans Excel peut être très utile lors de la réorganisation des données à des fins d'analyse ou de reporting. Supposons que vous ayez des données longues dans la colonne A et que vous souhaitiez maintenant transposer toutes les 5 lignes de la colonne A vers plusieurs colonnes, par exemple transposer A1:A5 en C6:G6, A6:A10 en C7:G7, et ainsi de suite. capture d'écran de gauche affichée. Cette tâche peut être abordée en utilisant différentes méthodes, chacune ayant ses propres avantages. Passons en revue un guide détaillé étape par étape sur la façon d'y parvenir

Transposer toutes les 5 ou n lignes d'une colonne vers plusieurs colonnes

• Avec formule
• Avec un outil puissant - Kutools for Excel
• Avec code VBA

Transposer toutes les 5 ou n lignes d'une colonne à plusieurs colonnes avec une formule

Dans Excel, vous pouvez appliquer la formule suivante pour transposer toutes les n lignes d'une colonne à plusieurs colonnes, procédez comme suit:

1. Entrez la formule suivante dans une cellule vide où vous souhaitez placer le résultat, C1, par exemple, = INDEX ($ A: $ A, RANG (A1) * 5-5 + COLONNE (A1)), voir capture d'écran:

2. Faites ensuite glisser la poignée de remplissage vers la droite vers cinq cellules, puis continuez à faire glisser la poignée de remplissage vers le bas jusqu'à la plage de cellules jusqu'à ce que affiche 0, voir capture d'écran:

Transposez toutes les 5 ou n lignes d'une colonne à plusieurs colonnes avec Kutools for Excel

Êtes-vous frustré par la transposition de données Excel d’une colonne vers plusieurs colonnes ? Kutools for Excel's Transformer la gamme La fonctionnalité est là pour résoudre vos problèmes ! Que vous ayez besoin de transposer toutes les 5 lignes ou un nombre personnalisé de lignes, nous avons ce qu'il vous faut. La conversion flexible des lignes vous permet de choisir librement le nombre de lignes à transposer d'une colonne à plusieurs colonnes. C'est simple et rapide, ne nécessitant aucune opération complexe : quelques clics suffisent pour le réaliser.

Après l'installation de Kutools for Excel, procédez comme suit:

1. Sélectionnez les données dans la colonne, puis cliquez sur Kutools > Catégorie > Transformer la gamme, voir capture d'écran:

2. Dans le Transformer la gamme boîte de dialogue, sélectionnez Une seule colonne à la plage option sous la Type de transformation, puis vérifiez Valeur fixe sous le Lignes par enregistrement, puis spécifiez le nombre de colonnes que vous souhaitez transposer dans le Valeur fixe boîte, voir capture d'écran:

3. Et puis cliquez Ok bouton, dans la boîte pop-out, veuillez sélectionner une cellule pour afficher le résultat, voir capture d'écran:

4. Puis clique OK bouton, et vos données de colonne ont été transposées toutes les 5 lignes comme illustré ci-dessous:

Transposer toutes les 5 ou n lignes d'une colonne à plusieurs colonnes avec le code VBA

Si vous ne pouvez pas appliquer la formule correctement, le code VBA suivant peut également vous aider.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: transposez toutes les 5 ou n lignes d'une colonne à plusieurs colonnes:

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. Après avoir collé le code, veuillez appuyer sur F5 pour l'exécuter, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la colonne que vous souhaitez transposer, voir capture d'écran:

4. Puis clique OK, et sélectionnez une cellule où vous souhaitez placer le résultat dans une autre boîte pop-out, voir capture d'écran:

5. Et cliquez sur OK, les données de la colonne ont été converties en cinq colonnes dont vous avez besoin, voir capture d'écran:

Pour transposer toutes les 5 ou n lignes d'une colonne vers plusieurs colonnes dans Excel, cet article présente trois méthodes efficaces. Chacune de ces méthodes propose une approche différente de la réorganisation des données dans Excel, adaptée à différents niveaux de familiarité des utilisateurs avec les outils et la programmation Excel. Si vous souhaitez découvrir plus de trucs et astuces Excel, notre site Web propose des milliers de tutoriels.