Diviser les données en plusieurs feuilles de calcul par nombre de lignes dans Excel

Diviser efficacement une grande plage de données en plusieurs feuilles de calcul Excel sur la base d'un nombre spécifique de lignes peut rationaliser la gestion des données. Par exemple, diviser un ensemble de données tous les 5 lignes en plusieurs feuilles peut le rendre plus facile à gérer et mieux organisé. Ce guide propose deux méthodes pratiques pour accomplir cette tâche rapidement et facilement.

Diviser les données en plusieurs feuilles de calcul par nombre de lignes avec du code VBA

Diviser les données en plusieurs feuilles de calcul par nombre de lignes avec Kutools pour Excel

Diviser les données en plusieurs feuilles de calcul par nombre de lignes avec du code VBA

Le code VBA suivant peut vous aider à diviser les lignes en plusieurs feuilles de calcul selon le nombre de lignes, procédez comme suit :

1. Maintenez la touche ALT + F11 enfoncée 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 Module.

VBA : Diviser les données en feuilles de calcul par nombre de lignes dans Excel

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Ensuite, appuyez sur la touche F5, dans la boîte de dialogue qui s'affiche, sélectionnez la ligne d'en-tête, voir capture d'écran :

4. Ensuite, cliquez sur OK, et dans la deuxième boîte de dialogue, sélectionnez la plage de données que vous souhaitez diviser par nombre de lignes, voir capture d'écran :

5. Continuez en cliquant sur le bouton OK, dans la troisième boîte de dialogue, entrez le nombre de lignes selon lequel vous souhaitez diviser, voir capture d'écran :

6. Ensuite, cliquez sur le bouton OK, les données ont été divisées en plusieurs feuilles de calcul en fonction du nombre de lignes, voir capture d'écran :

Diviser les données en plusieurs feuilles de calcul par nombre de lignes avec Kutools pour Excel

Si vous trouvez que le code VBA est complexe, Kutools pour Excel offre une solution rapide et intuitive pour résoudre efficacement le problème de division des données. Cette fonctionnalité Diviser les données simplifie le processus d'opération, permettant aux utilisateurs de tout niveau de compétence de diviser facilement de grands ensembles de données en plusieurs feuilles de calcul sans nécessiter de connaissances approfondies en programmation, facilitant ainsi une gestion efficace des données.

Si vous avez installé Kutools pour Excel, procédez comme suit :

1. Sélectionnez la plage de données que vous souhaitez diviser. Ensuite, cliquez sur Kutools Plus > Diviser les données, voir capture d'écran :

3. Dans la boîte de dialogue Diviser les données en plusieurs feuilles de calcul :

• Sélectionnez Valeur fixe depuis l'option Critère de division, et entrez le nombre de lignes que vous souhaitez diviser pour chaque feuille de calcul.
• Si vos données contiennent des en-têtes et que vous souhaitez les insérer dans chaque nouvelle feuille de calcul divisée, cochez l'option Les données contiennent des en-têtes. (Astuce : vous pouvez entrer le nombre de lignes d'en-tête en fonction de vos données.)
• Vous pouvez ensuite spécifier les noms des feuilles de calcul divisées, sous la section Nom des nouvelles feuilles de calcul, sélectionnez les règles de nommage des feuilles de calcul depuis la liste déroulante Règle, vous pouvez également ajouter un Préfixe ou Suffixe pour les noms des feuilles.

4. Après avoir spécifié les paramètres, cliquez sur OK, et les données sélectionnées ont été divisées en plusieurs feuilles de calcul d'un nouveau classeur toutes les 5 lignes. Et les en-têtes sont insérés pour chaque nouvelle feuille de calcul. Voir capture d'écran :

Articles connexes :