Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

Hur delas data i flera kalkylblad genom rader räknas i Excel?

Till exempel har jag en rad datalista, nu vill jag dela upp den i flera kalkylblad genom räkna räkning, i det här exemplet delas det med varje 5-rad (se följande skärmdumpar). Finns det några sätt att hjälpa oss att lösa detta problem snabbt? Här kommer jag presentera två knep för att du ska få det enkelt gjort.


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

Dela data i flera kalkylblad med rader räknas med VBA-kod

Dela data i flera kalkylblad med rader räknas med Kutools for Excel


pilblå höger bubbla Dela data i flera kalkylblad med rader räknas med VBA-kod


Följande VBA-kod kan hjälpa dig att dela raderna i flera kalkylblad genom att räkna räkna, 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 Infoga > Modulerna, och klistra in följande kod i modulfönstret.

VBA: Dela data i ark med rader räknas 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 nyckeln 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å OK, och en annan dialog för dig att ange raden räkna. Se skärmdump:

4. Klick OK, och intervallet är uppdelat i flera ark genom räknarantalet.

Anmärkningar: Uppdelade kalkylblad placeras på baksidan av masterkalkylbladet.


pilblå höger bubbla Dela data i flera kalkylblad med rader räknas med Kutools for Excel

Ovanstående kod kan bara dela upp data med angivna raderräkning, och det lägger inte till titeln för varje arbetsbladdata om dina data har titeln.

Men med Kutools för ExcelÄr Split data, du kan inte bara lägga in rubrikerna för varje kalkylbladsdata, men kan även ange de nya delade kalkylbladens namn.

Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att försöka utan begränsning i 30 dagar. Hämta nu

Om du har installerat Kutools for Excel gör du så här:

1. Välj det antal data som du vill dela upp.

2. Klicka Företag > Arbetsblad Verktyg > Split data (eller Företag > Split data ), se skärmdump:

doc-split-data-by-rows6

3. I Dela data till flera kalkylblad dialog ruta:

  • Välja Fasta rader från Split 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 arbetsblad, kolla Mina data har rubriker alternativ.)
  • Då kan du ange delade kalkylarknamnen, under Nytt arbetsblad namn avsnittet, välj regnearknamnsreglerna från regler listrutan, du kan lägga till Prefix or Ändelse för arknamnen också. Se skärmdump:

doc-split-data-by-rows7

4. När du har angett inställningarna klickar du på OK, och de valda uppgifterna har delats i flera arbetsblad i en ny arbetsbok med varje 5-rad. Och rubrikerna läggs in för varje nytt arbetsblad. Se skärmdump:

doc-split-data-by-rows8

Klicka för att veta mer om denna Split Data-funktionen.

Relaterad artikel:

Hur delas data i flera kalkylblad baserat på kolumn i Excel?



Rekommenderade produktivitetsverktyg

Fliken Office

guld star1 Hämta praktiska flikar till Excel och annan Office-programvara, precis som Chrome, Firefox och ny Internet Explorer.

Kutools för Excel

guld star1 Fantastiskt! Öka din produktivitet i 5 minuter. Behöver inte några speciella färdigheter, spara två timmar varje dag!

guld star1 300 Nya funktioner för Excel, gör Excel mycket enkelt och kraftfullt:

  • Sammanfoga cell / rader / kolumner utan att förlora data.
  • Kombinera och konsolidera flera ark och arbetsböcker.
  • Jämför rader, kopiera flera rader, konvertera text till datum, enhet och valutaomvandling.
  • Räkna med färger, personsökande subtotaler, avancerad sortering och superfilter,
  • Mer Välj / Infoga / Radera / Text / Format / Länk / Kommentar / Arbetsböcker / Arbetsblad Verktyg ...

Skärmdump av Kutools för Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 9 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?