Ugrás a tartalomra

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

Szerző: Siluvia Utolsó módosítás: 2025-04-17

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:

Egy új munkafüzetet bemutató képernyőkép az egyes sorokból az oszlopérték alapján létrehozott lapokkal

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".

Kutools for Excel több mint 300 fejlett funkciót kínál az összetett feladatok egyszerűsítésére, fokozva a kreativitást és a hatékonyságot. Itegarate AI képességekkel, Kutools precízen automatizálja a feladatokat, így az adatkezelés egyszerű. Részletes információk a következőről: Kutools for Excel...         Ingyenes próbaverzió...

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:

Egy képernyőkép az „Adatok felosztása” opcióról a Kutools Plusz fül az Excelben

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:

1). Kérjük, válassza az "Adott oszlop" lehetőséget, és a legördülő listában adja meg azt az oszlopot, amely alapján fel szeretné osztani az adatokat;
2). Ha a munkalapokat oszlopértékekkel szeretné elnevezni, kérjük, válassza ki az "Oszlop értékei" lehetőséget a "Szabályok" legördülő listából;
3). Kattintson az "OK" gombra. Lásd a képernyőképet:

Képernyőkép az "Adatok felosztása több munkalapra" párbeszédpanelről az oszlopérték szerinti felosztás beállításaival

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

1). Válassza a "Rögzített sorok" opciót, írja be az "1" számot a mezőbe;
2). A „Szabályok” legördülő listából válassza a „Sorszámok” lehetőséget;
3). Kattintson az "OK" gombra. Lásd a képernyőképet:

Képernyőkép az "Adatok felosztása több munkalapra" párbeszédpanelről a soronkénti felosztás beállításaival

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:

Egy új munkafüzetet bemutató képernyőkép az egyes sorokból az oszlopérték alapján létrehozott lapokkal

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

Képernyőkép, amely egy új munkafüzetet mutat az egyes sorokból az oszlopérték figyelembevétele nélkül létrehozott lapokkal

Kutools for Excel - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a tartósan ingyenes AI-funkciókat! Szerezd meg most

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

 
Kutools for Excel: Több mint 300 praktikus eszköz a keze ügyében! Élvezze a tartósan ingyenes AI-funkciókat! Töltse le most!

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI segéd: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  Indítsunk Kutools Funkciók...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több
Felhasználás Kutools a kívánt nyelven – támogatja az angol, spanyol, német, francia, kínai és több mint 40 másik nyelvet!

Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...


Office Tab Lapos felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!