Hur delar jag data i flera kalkylblad efter antal rader i Excel?
Till exempel har jag en rad datalistor, nu vill jag dela upp den i flera kalkylblad efter antal rader, i det här exemplet delar jag den med var femte rad (se följande skärmdumpar). Finns det några sätt att hjälpa oss att lösa problemet snabbt? Här kommer jag att introducera två knep för att du ska få det gjort enkelt.
 |
 |
 |
 |
||
 |
||
 |
Dela data i flera kalkylblad efter rader räknas med VBA-kod
Dela upp data i flera kalkylblad efter rader räknas med Kutools for 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 data i ark efter antal rader i Excel.
Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
xRow.Resize(resizeCount).Copy
Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
Application.ActiveSheet.Range("A1").PasteSpecial
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Tryck sedan på F5 för att köra koden och en dialogruta dyker upp för att välja ett område som ska delas och klicka sedan på OKoch en annan dialogruta där du kan ange antalet rader. Se skärmdump:
 |
|
 |
4. Klicka OK, och intervallet delas upp i flera ark efter antalet rader.
Anmärkningar: Delade kalkylblad placeras på baksidan av huvudkalkylbladet.
Dela upp data i flera kalkylblad efter rader räknas med Kutools for Excel
Ovanstående kod kan bara dela upp data med det angivna antalet rader, och det kommer inte att lägga till titeln för varje kalkylbladsdata om dina data har titeln.
Men med Kutools for ExcelÄr Split data, du kan inte bara infoga rubrikerna för varje kalkylbladsdata utan också ange de nya delade kalkylarknamnen.
Kutools for Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu
Om du har installerat Kutools for Excel, gör så här:
1. Välj det dataområde som du vill dela.
2. Klicka Företag > Verktyg för kalkylblad > Split data (eller Företag > Split data ), se skärmdump:
3. I Dela data i flera kalkylblad dialog ruta:
- Välja Fasta rader från Dela baserat på och ange antalet rader som du vill dela 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.)
- 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å. Se skärmdump:
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:
Klicka för att lära dig mer om denna Split Data-funktion.
Relaterad artikel:
Hur delar jag data i flera kalkylblad baserat på kolumn i Excel?
De bästa Office-produktivitetsverktygen
Kutools for 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.
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!
