Dela upp data i flera kalkylblad efter antal rader i Excel
Att effektivt dela upp ett stort dataintervall i flera Excel-kalkylblad baserat på ett specifikt radantal kan effektivisera datahanteringen. Att till exempel dela upp en datauppsättning var 5:e rad i flera ark kan göra den mer hanterbar och organiserad. Den här guiden erbjuder två praktiska metoder för att utföra denna uppgift snabbt och enkelt.
Dela data i flera kalkylblad efter rader räknas med VBA-kod
Dela data i flera kalkylblad efter rader räknas med Kutools för Excel
Dela data i flera kalkylblad efter rader räknas med VBA-kod
Följande VBA-kod kan hjälpa dig att dela upp raderna i flera kalkylblad efter antal rader, gör så här:
1. Håll ner ALT + F11 nyckel för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.
VBA: Dela upp data i kalkylblad efter antal rader i Excel
Sub Splitdatabyrows()
'Updated by Extendoffice
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (xIER - xRow.Row + 1) < SplitRow Then
resizeCount = (xIER - xRow.Row + 1)
End If
xRow.Resize(resizeCount).Copy
Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
If xIER > (xRow.Row + SplitRow - 1) Then
xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
ElseIf xIER = xRow.Row Then
xWs.Name = xRow.Row
Else
xWs.Name = xRow.Row & " - " & xIER
End If
Application.ActiveSheet.Range("A1").PasteSpecial
Set xNTRg = Application.ActiveSheet.Range("A1")
xTRg.Copy
xNTRg.Insert
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Tryck sedan på F5 nyckel, i popup-dialogrutan, välj rubrikraden, se skärmdump:
4. Klicka sedan OK, och i den andra rutan, välj det dataområde som du vill dela med rader, se skärmdump:
5. Fortsätt klicka OK knappen, i den tredje rutan, ange antalet rader som du vill dela med, se skärmdump:
6. Klicka sedan OK knappen, data har delats upp i flera kalkylblad baserat på antalet rader, se skärmdump:
Dela data i flera kalkylblad efter rader räknas med Kutools för Excel
Om du tycker att VBA-koden är komplex, Kutools för Excel erbjuder en snabb och intuitiv lösning för att effektivt hantera problemet med att dela upp data. Detta Split data funktionen förenklar driftprocessen, vilket gör det möjligt för användare på alla kunskapsnivåer att enkelt dela upp stora datamängder i flera kalkylblad utan behov av djupgående programmeringskunskaper, vilket underlättar effektiv datahantering.
Om du har installerat Kutools för Excel, gör så här:
1. Välj det dataintervall som du vill dela upp. Klicka sedan på Kutools Plus > Split data, se skärmdump:
3. I Dela data i flera kalkylblad dialog ruta:
- Välja Fasta rader från Dela baserat på alternativet och ange antalet rader som du vill dela upp för varje kalkylblad.
- Om dina data har rubriker och du vill infoga dem i varje nytt delat kalkylblad, kontrollera Mina data har rubriker alternativ. (Tips: du kan ange antalet herdarrader baserat på dina uppgifter.)
- Sedan kan du ange namnen på delat kalkylblad under Nytt kalkylbladets namn välj reglerna för kalkylbladets namn från regler rullgardinsmenyn kan du lägga till Prefix or Ändelse för arknamnen också.
4. När du har angett inställningarna klickar du sedan på OKoch de valda uppgifterna har delats upp i flera kalkylblad i en ny arbetsbok med var femte rad. Och rubrikerna infogas för varje nytt kalkylblad. Se skärmdump:
Relaterade artiklar:
- Dela data i flera kalkylblad baserat på kolumn
- Om du antar att du har ett kalkylblad med enorma rader av data, och nu måste du dela upp informationen i flera kalkylblad baserat på namnkolumnen (se följande skärmdump), och namnen matas in slumpmässigt. Kanske kan du sortera dem först och sedan kopiera och klistra in dem en efter en i andra nya kalkylblad. Men detta kommer att kräva ditt tålamod för att kopiera och klistra in upprepade gånger. Idag kommer jag att prata om några snabba knep för att lösa denna uppgift.
- Kombinera dubbla rader och summera värdena i Excel
- I Excel är det ett vanligt scenario att stöta på en datauppsättning med dubbla poster. Ofta kan du hitta dig själv med en rad data där huvudutmaningen är att effektivt kombinera dessa dubblettrader samtidigt som du summerar värdena i en motsvarande kolumn enligt följande skärmdump. I detta sammanhang kommer vi att fördjupa oss i flera praktiska metoder som kan hjälpa dig att konsolidera dubbletter av data och aggregera deras tillhörande värden, vilket förbättrar både tydligheten och användbarheten i dina Excel-arbetsböcker.
- Slå samman två eller flera tabeller till en baserad på nyckelkolumner
- Om du antar att du har tre tabeller i en arbetsbok, nu vill du slå samman dessa tabeller i en tabell baserat på motsvarande nyckelkolumner för att få resultatet enligt nedanstående skärmdump. Det här kan vara en besvärlig uppgift för de flesta av oss, men oroa dig inte, den här artikeln, jag kommer att introducera några metoder för att lösa detta problem.
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!
