Come creare nuovi fogli per ogni riga in Excel?

Immagina di avere una tabella con i nomi degli studenti nella colonna A e di voler creare un foglio separato per ogni studente, contenente i loro dati unici. In alternativa, potresti semplicemente voler creare un nuovo foglio per ogni riga della tua tabella, indipendentemente dai dati presenti in una colonna specifica. Questa guida ti mostrerà due metodi per raggiungere questo obiettivo.

Crea nuovi fogli per ogni riga con il codice VBA
Crea nuovi fogli per ogni riga con l'utilità Dividi Dati di Kutools per Excel

Crea nuovi fogli per ogni riga con il codice VBA

Con i seguenti codici, puoi creare nuovi fogli basati sui valori delle colonne o semplicemente creare nuovi fogli per ogni riga in Excel.

1. Premi contemporaneamente i tasti "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

2. Nella finestra "Microsoft Visual Basic for Applications", clicca su "Inserisci" > "Modulo". Dopodiché, incolla il seguente codice nella finestra "Modulo".

Codice VBA: crea un nuovo foglio per ogni riga basandosi sulla colonna

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

Nota: A1:C1 è l'intervallo dell'intestazione della tua tabella. Puoi modificarlo in base alle tue esigenze.

3. Premi il tasto "F5" per eseguire il codice, quindi i nuovi fogli di lavoro verranno creati dopo tutti i fogli di lavoro del workbook corrente come mostrato nello screenshot qui sotto:

Se vuoi creare direttamente nuovi fogli per ogni riga senza considerare i valori delle colonne, puoi utilizzare il seguente codice.

Codice VBA: Crea direttamente un nuovo foglio per ogni riga

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

Dopo aver eseguito il codice, ogni riga nel foglio di lavoro attivo verrà inserita in un nuovo foglio di lavoro.

Nota: Anche la riga dell'intestazione verrà inserita in un nuovo foglio con questo codice VBA.

Crea nuovi fogli per ogni riga con l'utilità Dividi Dati di Kutools per Excel

In realtà, il metodo sopra descritto è complicato e difficile da comprendere. In questa sezione, introduciamo l'utilità "Dividi Dati" di "Kutools per Excel".

1. Seleziona la tabella che devi utilizzare per creare nuovi fogli, e clicca su "Kutools Plus"> "Dividi Dati". Vedi screenshot:

2. Nella finestra di dialogo "Dividi Dati in Più Fogli di Lavoro", procedi come segue.

A. Per creare nuovi fogli basati sui valori delle colonne:

B. Per creare direttamente nuovi fogli per ogni riga:

Un nuovo workbook viene creato con tutti i nuovi fogli all'interno. Vedi gli screenshot qui sotto.

Creazione di nuovi fogli per ogni riga basandosi sui valori delle colonne:

Creazione di un nuovo foglio per ogni riga senza considerare i valori delle colonne:

Demo: Crea nuovi fogli per ogni riga con l'utilità Dividi Dati di Kutools per Excel