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.
| Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
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!
Démo : divisez une longue liste en plusieurs groupes égaux avec Kutools for Excel
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition 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é de 50% et réduit des centaines de clics de souris chaque jour!
