Hoppa till huvudinnehåll

Hur skapar jag nya ark för varje rad i Excel?

Författare: Siluvia Senast ändrad: 2024-11-29

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:

En skärmdump som visar en ny arbetsbok med ark skapade från varje rad baserat på kolumnvärde

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.

Kutools för Excel erbjuder över 300 avancerade funktioner för att effektivisera komplexa uppgifter, vilket ökar kreativiteten och effektiviteten. Förbättrad med AI-funktioner, Kutools automatiserar uppgifter med precision, vilket gör datahantering enkel. Detaljerad information om Kutools för Excel...         Gratis provperiod...

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:

En skärmdump av alternativet 'Dela data' under fliken Kutools Plus i Excel

2. I Dela data i flera kalkylblad dialogrutan, gör så här.

A. För att skapa nya ark baserat på kolumnvärden:

1). Välj Specifik kolumn alternativ och ange en kolumn som du vill dela data baserat på i listrutan;
2). Om du vill namnge kalkylblad med kolumnvärden, välj Värden på kolumnen i regler rullgardinsmeny
3). Klicka på OK knapp. Se skärmdump:

En skärmdump av dialogrutan "Dela upp data i flera arbetsblad" med inställningar för uppdelning efter kolumnvärde

B. För att direkt skapa nya ark för varje rad:

1). Välj Fasta rader alternativet, ange nummer 1 i lådan;
2). Välj Radnummer från regler rullgardinsmeny
3). Klicka på OK knapp. Se skärmdump:

En skärmdump av dialogrutan "Dela upp data i flera arbetsblad" med inställningar för uppdelning efter 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:

En skärmdump som visar en ny arbetsbok med ark skapade från varje rad baserat på kolumnvärde

Skapa nytt ark för varje rad utan att ta hänsyn till kolumnvärden:

En skärmdump som visar en ny arbetsbok med ark skapade från varje rad utan att ta hänsyn till kolumnvärdet

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

Kutools för Excel: Över 300 praktiska verktyg till hands! Njut av permanent gratis AI-funktioner! Ladda ner nu!

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

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!