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:
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
A legjobb irodai hatékonyságnövelő eszközök
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!