Hogyan hozhatunk létre új lapokat az Excel minden sorához?

Képzelje el, hogy az A oszlopban van egy táblázat a tanulók neveiről, és minden tanuló számára külön lapot szeretne létrehozni, amely tartalmazza az egyedi adatokat. Alternatív megoldásként egyszerűen létrehozhat egy új lapot a táblázat minden sorához, függetlenül az adott oszlop adataitól. Ez az útmutató két módszert mutat be ennek elérésére.

Hozzon létre új lapokat minden sorhoz VBA kóddal
Hozzon létre új lapot minden sorhoz az Adatok felosztása segédprogramjával Kutools for Excel

Hozzon létre új lapokat minden sorhoz VBA kóddal

A következő kódokkal új lapokat hozhat létre az oszlopértékek alapján, vagy egyszerűen csak új lapokat hozhat létre minden sorhoz az Excelben.

1. Nyomja meg egyszerre az "Alt" + "F11" billentyűket a "Microsoft Visual Basic for Applications" ablak megnyitásához.

2. A "Microsoft Visual Basic for Applications" ablakban kattintson a "Beszúrás" > "Modul" elemre. Ezután illessze be a következő kódot a "Modul" ablakba.

VBA kód: hozzon létre új lapot minden sorhoz az oszlop alapján

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

Megjegyzés: Az A1:C1 a táblázat fejléctartománya. Igényei szerint módosíthatja.

3. Nyomja meg az "F5" billentyűt a kód futtatásához, majd új munkalapok jönnek létre az aktuális munkafüzet összes munkalapja után, az alábbi képernyőkép szerint:

Ha közvetlenül szeretne új lapot létrehozni minden sorhoz, anélkül, hogy figyelembe venné az oszlopértékeket, használhatja a következő kódot.

VBA kód: Minden sorhoz közvetlenül hozzon létre új lapot

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

A kód futtatása után az aktív munkalap minden sora egy új munkalapba kerül.

Megjegyzés: A fejléc sor is egy új lapra kerül ezzel a VBA-kóddal.

Hozzon létre új lapot minden sorhoz az Adatok felosztása segédprogramjával Kutools for Excel

Valójában a fenti módszer bonyolult és nehezen érthető. Ebben a szakaszban bemutatjuk a "Split Data" segédprogramját.Kutools for Excel".

1. Jelölje ki az új lapok létrehozásához használni kívánt táblázatot, majd kattintson a "Kutools Plusz"> "Adatok felosztása". Lásd a képernyőképet:

2. Az "Adatok felosztása több munkalapra" párbeszédpanelen tegye a következőket.

V. Új lapok létrehozásához oszlopértékek alapján:

B. Új lapok közvetlen létrehozásához minden sorhoz:

Létrejön egy új munkafüzet, benne az összes új lappal. Lásd alább a képernyőképeket.

Új lapok létrehozása minden sorhoz oszlopértékek alapján:

Új lap létrehozása minden sorhoz az oszlopértékek figyelembevétele nélkül:

Demó: Hozzon létre új lapokat minden sorhoz a Split Data segédprogrammal Kutools for Excel