Come dividere una grande tabella in più tabelle più piccole in Excel?

Se hai una grande tabella Excel con più colonne e centinaia o migliaia di righe, potresti volerla dividere in tabelle più piccole e gestibili. Ad esempio, potresti dover separare i dati in base ai valori di una colonna specifica o dividerli in blocchi di un numero fisso di righe. Questo tutorial fornisce metodi passo-passo per eseguire questa operazione in modo efficiente.

Tabella principale		Dividi la tabella in più tabelle in base al valore della colonna	Dividi la tabella in più tabelle in base al conteggio delle righe

Dividi una grande tabella in più tabelle in base al valore della colonna con il codice VBA

Dividi una grande tabella in più tabelle in base a un numero specifico di righe con il codice VBA

Dividi una grande tabella in più tabelle in base al valore della colonna o al numero di righe con Kutools per Excel

Dividi una grande tabella in più tabelle in base al valore della colonna con il codice VBA

Per dividere questa grande tabella in più tabelle in base a un valore di colonna specifico, il seguente codice VBA può esserti utile. Procedi come segue:

1. Tieni premuti i tasti "ALT" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

2. Clicca su "Inserisci" > "Modulo", e incolla il seguente codice nella finestra "Modulo".

Codice VBA: Dividi una grande tabella in più tabelle in base alla colonna chiave:

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. Dopo aver incollato il codice, premi il tasto "F5" per eseguirlo, e apparirà una finestra di dialogo; seleziona la riga dell'intestazione dai tuoi dati, vedi screenshot:

4. Poi, clicca su "OK", e apparirà un'altra finestra di dialogo; seleziona i dati della colonna in base ai quali vuoi dividere la tabella, vedi screenshot:

5. Clicca su "OK". La grande tabella è ora stata divisa in più fogli di lavoro in base ai valori della colonna, con i nuovi fogli posizionati dopo il foglio principale. I nuovi fogli sono nominati con il valore della colonna. Vedi screenshot:

Dividi una grande tabella in più tabelle in base a un numero specifico di righe con il codice VBA

Se hai bisogno di dividere la tabella in più tabelle in base al numero di righe, il seguente codice VBA può aiutarti.

1. Tieni premuti i tasti "ALT" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

2. Clicca su "Inserisci" > "Modulo", e incolla il seguente codice nella finestra "Modulo".

Codice VBA: Dividi una grande tabella in più tabelle in base al numero di righe:

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. Poi, premi il tasto "F5", nella finestra di dialogo che appare, seleziona la riga dell'intestazione, vedi screenshot:

4. Poi, clicca su "OK", e nella seconda finestra di dialogo, seleziona l'intervallo di dati che vuoi dividere in base al conteggio delle righe, vedi screenshot:

5. Dopodiché, continua a cliccare sul pulsante "OK", nella terza finestra di dialogo, inserisci il numero di righe in base al quale vuoi dividere, vedi screenshot:

6. Poi, clicca sul pulsante "OK", la tabella principale è stata divisa in più fogli di lavoro in base al numero di righe come mostrato nello screenshot qui sotto:

Dividi una grande tabella in più tabelle in base al valore della colonna o al numero di righe con Kutools per Excel

I codici sopra potrebbero essere difficili per la maggior parte degli utenti, qui ti presenterò una funzione straordinaria - "Suddividi dati" di "Kutools per Excel". Con questo strumento, puoi dividere rapidamente e facilmente una grande tabella in più tabelle in base alla colonna chiave o al numero di righe.

1. Seleziona l'intervallo di dati che desideri dividere, quindi clicca su "Kutools Plus" > "Suddividi dati", vedi screenshot:

2. Nella finestra di dialogo "Suddividi dati in più schede", specifica le impostazioni secondo le tue esigenze:

(1.) Seleziona "Specifica colonna" o "Valore fisso" dalla sezione "Base di suddivisione" come necessario;

(2.) Specifica il nome dei nuovi fogli di lavoro dall'elenco a discesa "Regola", puoi aggiungere anche un "Prefisso" o un "Suffisso" ai nomi dei fogli.

3. Poi, clicca sul pulsante "Ok", e ora, la grande tabella è stata divisa in più tabelle più piccole in una nuova cartella di lavoro. Vedi screenshot:

Dividi la tabella in più tabelle in base al valore della colonna	Dividi la tabella in più tabelle in base al conteggio delle righe

Altri articoli correlati: