Suddividi i dati in più fogli di lavoro in base al conteggio delle righe in Excel

La divisione efficiente di un ampio intervallo di dati in più fogli di lavoro Excel in base a un conteggio di righe specifico può semplificare la gestione dei dati. Ad esempio, dividere 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 attività in modo rapido e semplice.

Dividi i dati in più fogli di lavoro in base al conteggio delle righe con il codice VBA

Dividi i dati in più fogli di lavoro in base al conteggio delle righe con Kutools per Excel

Dividi i dati in più fogli di lavoro in base al conteggio delle righe con il codice VBA

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

1. Tieni premuto il ALT + F11 chiave per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.

VBA: suddividi i dati in fogli di lavoro in base al conteggio delle 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. Quindi, premere F5 chiave, nella finestra di dialogo visualizzata, seleziona la riga di intestazione, vedi screenshot:

4. Quindi, fare clic OKe nella seconda finestra di messaggio, seleziona l'intervallo di dati che desideri dividere per numero di righe, vedi screenshot:

5. Continua a fare clic OK pulsante, nella terza finestra di messaggio, inserisci il numero di righe in base alle quali desideri dividere, vedi screenshot:

6. Quindi, fare clic OK pulsante, i dati sono stati suddivisi in più fogli di lavoro in base al numero di righe, vedi screenshot:

Dividi i dati in più fogli di lavoro in base al conteggio delle righe con Kutools per Excel

Se ritieni che il codice VBA sia complesso, Kutools for Excel offre una soluzione rapida e intuitiva per affrontare in modo efficiente il problema della suddivisione dei dati. Questo Split Data La funzionalità semplifica il processo operativo, consentendo agli utenti di qualsiasi livello di competenza di dividere facilmente set di dati di grandi dimensioni in più fogli di lavoro senza la necessità di conoscenze di programmazione approfondite, facilitando una gestione efficace dei dati.

Se hai installato Kutools for Excel, si prega di fare come segue:

1. Seleziona l'intervallo di dati che desideri dividere, quindi fai clic su Kutools Plus > Split Data, vedi screenshot:

3. Nel Suddividi i dati in più fogli di lavoro la finestra di dialogo:

• Seleziona Righe fisse da Dividi in base a opzione e inserisci il numero di righe che desideri dividere per ciascun foglio di lavoro.
• Se i tuoi dati hanno intestazioni e desideri inserirle in ogni nuovo foglio di lavoro diviso, controlla I miei dati hanno intestazioni opzione. (Consiglio: puoi inserire il numero delle file del pastore in base ai tuoi dati.)
• Quindi puoi specificare i nomi dei fogli di lavoro divisi, sotto il file Nuovo nome dei fogli di lavoro sezione, seleziona le regole dei nomi dei fogli di lavoro dal file Regole elenco a discesa, è possibile aggiungere il file Prefisso or Suffisso anche per i nomi dei fogli. 

4. Dopo aver specificato le impostazioni, quindi fare clic su OKe i dati selezionati sono stati suddivisi in più fogli di lavoro di una nuova cartella di lavoro ogni 5 righe. E le intestazioni vengono inserite per ogni nuovo foglio di lavoro. Vedi screenshot:

Articoli Correlati: