Comment diviser une longue liste en groupes égaux dans Excel ?

Si vous avez une longue liste de données qui doit être divisée en plusieurs groupes égaux, comme le montre la capture d'écran suivante, comment pourriez-vous gérer cette tâche rapidement et facilement dans Excel ?

Diviser une longue liste en plusieurs groupes égaux avec un code VBA

Diviser une longue liste en plusieurs groupes égaux avec Kutools pour Excel

Diviser une longue liste en plusieurs groupes égaux avec un code VBA

À part copier et coller les données une par une, le code VBA suivant peut également vous aider. Suivez les étapes ci-dessous :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre du Module.

Code VBA : Diviser une longue liste en plusieurs groupes égaux

Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xOutArr As Variant
    Dim I As Long, K As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
    If I < 1 Then
        MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
    For K = 0 To xRg.Rows.Count - 1
      xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
    Next
    xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et dans la boîte de dialogue qui apparaît, sélectionnez la colonne que vous souhaitez diviser en plusieurs groupes, voir capture d'écran :

4. Cliquez sur le bouton OK, puis sélectionnez une cellule où vous souhaitez placer le résultat dans la boîte de dialogue suivante, voir capture d'écran :

5. Cliquez sur OK, puis entrez le nombre de cellules que vous souhaitez diviser par colonne dans la boîte de dialogue, voir capture d'écran :

6. Enfin, cliquez sur OK pour terminer le code, et la liste sélectionnée a été divisée en plusieurs groupes égaux selon vos besoins, voir capture d'écran :

Diviser une longue liste en plusieurs groupes égaux avec Kutools pour Excel

Si vous avez installé Kutools pour Excel, avec sa fonction Transformer la plage, vous pouvez rapidement diviser une longue liste en plusieurs colonnes et lignes. De plus, vous pouvez également combiner plusieurs colonnes en une seule longue liste.

Après avoir installé Kutools pour Excel, procédez comme suit :

1. Sélectionnez la longue liste que vous souhaitez diviser, puis cliquez sur Kutools > Plage > Transformer la plage, voir capture d'écran :

2. Dans la boîte de dialogue Transformer la plage, sélectionnez Une seule colonne vers une plage sous la section Type de transformation, puis cochez Valeur fixe et spécifiez le nombre de cellules par ligne dans la case, voir capture d'écran :

3. Cliquez ensuite sur OK, et sélectionnez une cellule où vous souhaitez placer le résultat dans la boîte de dialogue, voir capture d'écran :

4. Cliquez sur le bouton OK, et les données de la liste ont été divisées en plusieurs groupes égaux selon vos besoins.

Téléchargez et essayez gratuitement Kutools pour Excel dès maintenant !