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

Si vous avez une longue liste de données à diviser en plusieurs groupes égaux comme illustré ci-dessous, comment pourriez-vous gérer cette tâche rapidement et facilement dans Excel?

Divisez une longue liste en plusieurs groupes égaux avec le code VBA

Divisez une longue liste en plusieurs groupes égaux avec Kutools for Excel

Divisez une longue liste en plusieurs groupes égaux avec le code VBA

Sauf copier et coller les données une par une, le code VBA suivant peut également vous rendre service, veuillez suivre les étapes suivantes:

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: divisez 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. Puis appuyez F5 clé pour exécuter ce code, et dans la zone contextuelle, sélectionnez la colonne que vous souhaitez diviser en plusieurs groupes, voir capture d'écran:

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

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

6. Enfin, cliquez OK pour terminer le code, et les données de la liste sélectionnées ont été divisées en plusieurs groupes égaux selon vos besoins, voir capture d'écran:

Divisez une longue liste en plusieurs groupes égaux avec Kutools for Excel

Si vous avez installé Kutools for Excel, Avec son Transformer la gamme fonctionnalité, vous pouvez rapidement diviser une longue liste en plusieurs colonnes et lignes.De plus, vous pouvez également combiner plusieurs colonnes dans une longue liste.

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

1. Sélectionnez la longue liste que vous souhaitez fractionner, 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 sous le Type de transformation section, puis vérifiez Valeur fixe et spécifiez le nombre de cellules par ligne dans la boîte, voir capture d'écran:

3. Puis clique Ok, et sélectionnez une cellule où vous souhaitez localiser le résultat dans la boîte de dialogue, voir capture d'écran:

4. Et cliquez OK bouton, les données de la liste ont été divisées en plusieurs groupes égaux selon vos besoins.

Téléchargez et essayez gratuitement Kutools for Excel Now!