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:
Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora
Demo: Crea nuovi fogli per ogni riga con l'utilità Dividi Dati di Kutools per Excel
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, invece che in nuove finestre.
- Aumenta la tua produttività del50% e riduce centinaia di clic del mouse ogni giorno!