Hur skapar jag nya ark för varje rad i Excel?
Föreställ dig att du har en tabell med elevnamn i kolumn A och du vill skapa ett separat ark för varje elev som innehåller deras unika data. Alternativt kanske du helt enkelt vill skapa ett nytt blad för varje rad i din tabell, oavsett data i någon specifik kolumn. Den här guiden visar dig två metoder för att uppnå detta.
Skapa nya ark för varje rad med VBA-kod
Skapa nya ark för varje rad med verktyget Split Data för Kutools för Excel
Skapa nya ark för varje rad med VBA-kod
Med följande koder kan du skapa nya ark baserat på kolumnvärden, eller bara skapa nya ark för varje rad i Excel.
1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Och klistra sedan in följande kod i Modulerna fönster.
VBA-kod: skapa ett nytt ark för varje rad baserat på kolumn
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
Anmärkningar: A1:C1 är rubrikområdet för ditt bord. Du kan ändra det utifrån dina behov.
3. Tryck F5 nyckel för att köra koden, sedan skapas nya kalkylblad efter alla kalkylblad i den aktuella arbetsboken som nedan skärmdump:
Om du direkt vill skapa nya ark för varje rad utan att ta hänsyn till kolumnvärdena kan du använda följande kod.
VBA-kod: Skapa direkt ett nytt ark för varje rad
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
Efter att ha kört koden kommer varje rad i det aktiva kalkylbladet att placeras i ett nytt kalkylblad.
Anmärkningar: Rubrikraden kommer också att placeras i ett nytt ark med denna VBA-kod.
Skapa nya ark för varje rad med verktyget Split Data för Kutools för Excel
Egentligen är ovanstående metod komplicerad och svår att förstå. I det här avsnittet presenterar vi Split data nytta av Kutools för Excel.
1. Välj den tabell du behöver använda för att skapa nya ark och klicka Kutools Plus> Split data. Se skärmdump:
2. I Dela data i flera kalkylblad dialogrutan, gör så här.
A. För att skapa nya ark baserat på kolumnvärden:
B. För att direkt skapa nya ark för varje rad:
En ny arbetsbok skapas med alla nya ark inuti. Se skärmdumpar nedan.
Skapa nya ark för varje rad baserat på kolumnvärden:
Skapa nytt ark för varje rad utan att ta hänsyn till kolumnvärden:
Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av permanent gratis AI-funktioner! Hämta den nu
Demo: Skapa nya ark för varje rad med verktyget Split Data i Kutools för Excel
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!