Cum se creează foi noi pentru fiecare rând în Excel?

Imaginați-vă că aveți un tabel cu numele elevilor în coloana A și doriți să creați o foaie separată pentru fiecare student, care să conțină datele lor unice. Alternativ, este posibil să doriți pur și simplu să creați o foaie nouă pentru fiecare rând din tabelul dvs., indiferent de datele din orice coloană specifică. Acest ghid vă va arăta două metode pentru a realiza acest lucru.

Creați foi noi pentru fiecare rând cu cod VBA
Creați foi noi pentru fiecare rând cu utilitarul Split Data din Kutools pentru Excel

Creați foi noi pentru fiecare rând cu cod VBA

Cu următoarele coduri, puteți crea foi noi pe baza valorilor coloanelor sau pur și simplu puteți crea foi noi pentru fiecare rând în Excel.

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Și apoi lipiți următorul cod în Module fereastră.

Cod VBA: creați o foaie nouă pentru fiecare rând pe baza coloanei

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

notițe: A1:C1 este domeniul de antet al tabelului dvs. Îl poți schimba în funcție de nevoile tale.

3. presa F5 tasta pentru a rula codul, apoi se creează noi foi de lucru după toate foile de lucru din registrul de lucru curent, ca mai jos captura de ecran:

Dacă doriți să creați direct foi noi pentru fiecare rând fără a lua în considerare valorile coloanei, puteți utiliza următorul cod.

Cod VBA: creați direct o foaie nouă pentru fiecare rând

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

După rularea codului, fiecare rând din foaia de lucru activă va fi plasat într-o nouă foaie de lucru.

notițe: Rândul antetului va fi de asemenea plasat într-o foaie nouă cu acest cod VBA.

Creați foi noi pentru fiecare rând cu utilitarul Split Data din Kutools pentru Excel

De fapt, metoda de mai sus este complicată și greu de înțeles. În această secțiune, vă prezentăm Împărțiți datele utilitatea Kutools pentru Excel.

1. Selectați tabelul pe care trebuie să îl utilizați pentru a crea foi noi și faceți clic Kutools Plus> Împărțiți datele. Vedeți captura de ecran:

2. În Împărțiți datele în mai multe foi de lucru caseta de dialog, vă rugăm să procedați după cum urmează.

A. Pentru crearea de foi noi pe baza valorilor coloanelor:

B. Pentru crearea directă a foilor noi pentru fiecare rând:

Este creat un nou registru de lucru cu toate foile noi înăuntru. Vedeți mai jos capturile de ecran.

Crearea de noi foi pentru fiecare rând pe baza valorilor coloanei:

Crearea unei noi foi pentru fiecare rând fără a lua în considerare valorile coloanei:

Demo: Creați foi noi pentru fiecare rând cu utilitarul Split Data din Kutools pentru Excel