Dividi i dati in più fogli di lavoro per numero di righe in Excel

Dividere un ampio intervallo di dati in più fogli di lavoro Excel in base a un conteggio specifico di righe può semplificare la gestione dei dati. Ad esempio, suddividere un set di dati ogni 5 righe in più fogli può renderlo più gestibile e organizzato. Questa guida offre due metodi pratici per eseguire questa operazione rapidamente e facilmente.

Dividi i dati in più fogli di lavoro per numero di righe con codice VBA

Dividi i dati in più fogli di lavoro per numero di righe con Kutools per Excel

Dividi i dati in più fogli di lavoro per numero di righe con codice VBA

Il seguente codice VBA può aiutarti a dividere le righe in più fogli di lavoro in base al conteggio delle righe; procedi come segue:

1. Tieni premuto il tasto ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

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

VBA: Dividi i dati in fogli di lavoro per numero di righe in 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. Successivamente, premi il tasto F5, nella finestra di dialogo che appare, seleziona la riga dell'intestazione, vedi screenshot:

4. Quindi, clicca su OK, e nella seconda finestra di dialogo, seleziona l'intervallo di dati che desideri dividere per numero di righe, vedi screenshot:

5. Continua a cliccare sul pulsante OK, nella terza finestra di dialogo, inserisci il numero di righe in base al quale vuoi effettuare la divisione, vedi screenshot:

6. Poi, clicca sul pulsante OK, i dati sono stati divisi in più fogli di lavoro in base al numero di righe, vedi screenshot:

Dividi i dati in più fogli di lavoro per numero di righe con Kutools per Excel

Se ritieni che il codice VBA sia complesso, Kutools per Excel offre una soluzione rapida e intuitiva per affrontare efficacemente il problema della suddivisione dei dati. La funzione Suddividi Dati semplifica il processo operativo, consentendo agli utenti di qualsiasi livello di abilità di dividere facilmente grandi set di dati in più fogli di lavoro senza la necessità di conoscenze approfondite di programmazione, facilitando una gestione efficace dei dati.

Se hai installato Kutools per Excel, procedi come segue:

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

3. Nella finestra di dialogo Dividi Dati in Più Fogli di Lavoro:

• Seleziona Righe fisse dall'opzione Dividi in base a, e inserisci il numero di righe che desideri dividere per ciascun foglio di lavoro.
• Se i tuoi dati contengono intestazioni e desideri inserirle in ogni nuovo foglio di lavoro diviso, spunta l'opzione I dati contengono intestazioni. (Suggerimento: puoi inserire il numero di righe delle intestazioni in base ai tuoi dati.)
• Successivamente, puoi specificare i nomi dei fogli di lavoro divisi, sotto la sezione Nome nuovi fogli di lavoro, seleziona le regole per i nomi dei fogli di lavoro dall'elenco a discesa Regole, puoi aggiungere anche Prefisso o Suffisso per i nomi dei fogli. 

4. Dopo aver specificato le impostazioni, clicca su OK, e i dati selezionati sono stati divisi in più fogli di lavoro di una nuova cartella di lavoro ogni 5 righe. E le intestazioni sono state inserite per ciascun nuovo foglio di lavoro. Vedi screenshot:

Articoli Correlati: