Comment diviser un grand tableau en plusieurs petits tableaux dans Excel ?

Si vous avez un grand tableau Excel avec plusieurs colonnes et des centaines ou des milliers de lignes, vous pourriez vouloir le diviser en tableaux plus petits et plus faciles à gérer. Par exemple, vous pourriez avoir besoin de séparer les données en fonction des valeurs spécifiques d'une colonne ou de les diviser en blocs contenant un nombre fixe de lignes. Ce tutoriel fournit des méthodes étape par étape pour accomplir cette tâche efficacement.

Tableau principal		Diviser un tableau en plusieurs tableaux selon les valeurs d'une colonne	Diviser un tableau en plusieurs tableaux selon le nombre de lignes

Diviser un grand tableau en plusieurs tableaux en fonction des valeurs d'une colonne avec du code VBA

Diviser un grand tableau en plusieurs tableaux en fonction d'un nombre spécifique de lignes avec du code VBA

Diviser un grand tableau en plusieurs tableaux en fonction des valeurs d'une colonne ou du nombre de lignes avec Kutools pour Excel

Diviser un grand tableau en plusieurs tableaux en fonction des valeurs d'une colonne avec du code VBA

Pour diviser ce grand tableau en plusieurs tableaux basés sur une valeur spécifique d'une colonne, le code VBA suivant peut vous aider. Veuillez procéder comme suit :

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 "Module".

Code VBA : Diviser un grand tableau en plusieurs tableaux par colonne clé :

Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. Après avoir collé le code, appuyez sur la touche "F5" pour exécuter ce code, et une boîte de dialogue apparaît, veuillez sélectionner la ligne d'en-tête de vos données, voir capture d'écran :

4. Ensuite, cliquez sur "OK", et une autre boîte de dialogue apparaît, veuillez sélectionner les données de la colonne sur laquelle vous souhaitez diviser le tableau, voir capture d'écran :

5. Cliquez sur "OK". Le grand tableau a maintenant été divisé en plusieurs feuilles de calcul basées sur les valeurs de la colonne, les nouvelles feuilles de calcul étant situées après la feuille principale. Les nouvelles feuilles de calcul sont nommées avec la valeur de la colonne. Voir capture d'écran :

Diviser un grand tableau en plusieurs tableaux en fonction d'un nombre spécifique de lignes avec du code VBA

Si vous devez diviser le tableau en plusieurs tableaux en fonction du nombre de lignes, le code VBA suivant peut vous aider.

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 "Module".

Code VBA : Diviser un grand tableau en plusieurs tableaux par nombre de lignes :

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. Puis, continuez en cliquant sur le bouton "OK", dans la troisième boîte de dialogue, entrez le nombre de lignes par lequel vous souhaitez diviser, voir capture d'écran :

6. Ensuite, cliquez sur le bouton "OK", le tableau principal a été divisé en plusieurs feuilles de calcul en fonction du nombre de lignes comme le montre la capture d'écran ci-dessous :

Diviser un grand tableau en plusieurs tableaux en fonction des valeurs d'une colonne ou du nombre de lignes avec Kutools pour Excel

Les codes ci-dessus pourraient être difficiles pour la plupart des utilisateurs, voici donc une fonctionnalité étonnante - "Diviser les données" de "Kutools pour Excel". Avec cet outil, vous pouvez rapidement et facilement diviser un grand tableau en plusieurs tableaux par colonne clé ou par nombre de lignes.

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

2. Dans la boîte de dialogue "Diviser les données en plusieurs feuilles de calcul", spécifiez les paramètres selon vos besoins :

(1.) Sélectionnez "Colonne spécifique" ou "Nombre fixe de lignes" dans la section "Critère de division" selon vos besoins ;

(2.) Spécifiez le nom des nouvelles feuilles de calcul à partir de la liste déroulante "Règle", vous pouvez également ajouter un "Préfixe" ou un "Suffixe" aux noms des feuilles.

3. Ensuite, cliquez sur le bouton "Ok", et maintenant, le grand tableau a été divisé en plusieurs petits tableaux dans un nouveau classeur. Voir captures d'écran :

Diviser un tableau en plusieurs tableaux selon les valeurs d'une colonne	Diviser un tableau en plusieurs tableaux selon le nombre de lignes

Plus d'articles connexes :