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 !
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels