Come creare nuovi fogli per ogni riga in Excel?
Supponendo di avere una tabella dei punteggi con tutti i nomi degli studenti nella colonna A. Ora si desidera creare nuovi fogli basati su questi nomi nella colonna A e fare per foglio contenga i dati di uno studente univoco. Oppure crea semplicemente un nuovo foglio per ogni riga della tabella senza considerare i nomi nella colonna A. In questo vedio, otterrai i metodi per ottenerlo.
Crea nuovi fogli per ogni riga con codice VBA
Crea nuovi fogli per ogni riga con l'utilità Dividi dati di Kutools per Excel
Crea nuovi fogli per ogni riga con codice VBA
Con i seguenti codici, puoi creare un nuovo foglio in base ai valori delle colonne o semplicemente creare nuovi fogli per ogni riga in Excel.
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. E poi incolla il seguente codice nel file Moduli finestra.
Codice VBA: crea un nuovo foglio per ogni riga in base alla 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
Note:: A1: C1 è l'intervallo di titoli della tabella. Puoi modificarlo in base alle tue esigenze.
3. Stampa F5 chiave per eseguire il codice, quindi vengono creati nuovi fogli di lavoro dopo tutti i fogli di lavoro della cartella di lavoro corrente come nell'immagine sottostante:
Se vuoi creare direttamente nuovi fogli per ogni riga senza considerare il valore della colonna, puoi usare 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.
Note:: La riga di intestazione verrà anche 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 è complicato e difficile da capire. In questa sezione, ti presentiamo il Split Data utilità di Kutools for Excel.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. Selezionare la tabella da utilizzare per creare nuovi fogli, quindi fare clic su Kutools Plus> Sputare dati. Vedi screenshot:
2. Nel Suddividi i dati in più fogli di lavoro finestra di dialogo, eseguire le seguenti operazioni.
A. Per creare nuovi fogli in base al valore della colonna:
B.Per creare direttamente nuovi fogli per ogni riga:
viene creata una nuova cartella di lavoro con tutti i nuovi fogli all'interno. Guarda gli screenshot qui sotto.
Creazione di nuovi fogli per ogni riga in base al valore della colonna:
Creazione di un nuovo foglio per ogni riga senza considerare il valore della colonna:
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
Crea nuovi fogli per ogni riga con l'utilità Dividi dati di Kutools per Excel
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!