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

Om du antar att du har en poängtabell med alla elevers namn i kolumn A. Nu vill du skapa nya ark baserat på dessa namn i kolumn A, och göra per ark innehåller en unik elevs data. Eller skapa bara ett nytt ark för bara varje rad i tabellen utan att ta hänsyn till namnen i kolumn A. I den här videon får du metoder för att uppnå det.

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 ett nytt 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 titelområdet för din tabell. Du kan ändra det baserat på 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 vill skapa nya ark direkt för varje rad utan att ta hänsyn till kolumnvärdet 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 placeras varje rad i det aktiva kalkylbladet 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 dig Split data nytta av Kutools för Excel.

1. Välj den tabell som du behöver använda för att skapa nya ark och klicka sedan på Kutools Plus> Spitdata. 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ärde:

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ärde:

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

Skapa nya ark för varje rad med verktyget Split Data för Kutools för Excel

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

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!

Läs mer... Gratis nedladdning... Köp...