Hogyan hozhatunk létre új lapokat az Excel minden sorához?
Tételezzük fel, hogy van egy ponttáblázata az összes tanuló nevével az A oszlopban. Most új lapokat szeretne létrehozni az A oszlopban található nevek alapján, és a laponkénti készítés egyedi tanulói adatokat tartalmaz. Vagy egyszerűen csak hozzon létre új lapot a táblázat minden sorához anélkül, hogy figyelembe venné az A oszlopban található neveket. Ebben a videóban módszereket talál ennek elérésére.
Hozzon létre új lapokat minden sorhoz VBA kóddal
Hozzon létre új lapokat minden sorhoz a Kutools for Excel Split Data segédprogramjával
Hozzon létre új lapokat minden sorhoz VBA kóddal
A következő kódokkal új lapokat hozhat létre oszlopértékek alapján, vagy csak új lapokat hozhat létre az Excel minden sorához.
1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután illessze be a következő kódot a Modulok ablak.
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 SubMegjegyzések: A1: C1 a táblázat címtartománya. Igényei alapján megváltoztathatja.
3. nyomja meg F5 kulcs a kód futtatásához, akkor új munkalapok jönnek létre az aktuális munkafüzet összes munkalapja után, az alábbi képernyőképen:
Ha közvetlenül új lapokat szeretne létrehozni minden sorhoz, az oszlop értékének figyelembevétele nélkül, akkor a következő kódot használhatja.
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 SubA kód futtatása után az aktív munkalap minden egyes sora új munkalapba kerül.
Megjegyzések: A címsor is egy új lapba kerül ezzel a VBA kóddal.
Hozzon létre új lapokat minden sorhoz a Kutools for Excel Split Data segédprogramjával
Valójában a fenti módszer bonyolult és nehezen érthető. Ebben a részben bemutatjuk Önnek a Osztott adatok hasznossága Kutools az Excel számára.
Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.
1. Jelölje ki azt a táblázatot, amelyet új lapok létrehozásához használni kell, majd kattintson a gombra Kutools Plus> Köpésadatok. Lásd a képernyőképet:
2. Ban,-ben Az adatok felosztása több munkalapra párbeszédpanelt, kérjük, tegye a következőket.
A. Új lapok létrehozásához oszlopérték alapján:
B. Új lapok közvetlen létrehozásához minden sorhoz:
új munkafüzet jön létre, benne az összes új ívvel. Lásd az alábbi képernyőképeket.
Új lapok létrehozása minden sorhoz az oszlop értéke alapján:
Új lap létrehozása minden sorhoz az oszlop értékének figyelembevétele nélkül:
Ha szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogramból, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.
Hozzon létre új lapokat minden sorhoz a Kutools for Excel Split Data segédprogramjával
A legjobb irodai termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
Az Office fül a füles felületet hozza 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!
