Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Hvordan opdeles data i flere regneark ved rækker tæller i Excel?

For eksempel har jeg en række dataliste, nu vil jeg dele det i flere regneark ved rækker tæller, i dette eksempel vil jeg opdele det ved hver 5 række (se følgende skærmbilleder). Er der nogen måder at hjælpe os med hurtigt at løse dette problem på? Her vil jeg introducere to tricks for at få det gjort nemt.


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

Opdel data i flere regneark ved rækker tælle med VBA kode

Opdel data i flere regneark ved rækker tæller med Kutools for Excel


pil blå højre boble Opdel data i flere regneark ved rækker tælle med VBA kode


Følgende VBA-kode kan hjælpe dig med at opdele rækkerne i flere regneark ved at tælle rækker, gør som følger:

1. Hold nede i ALT + F11 nøgle til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA: Split data i ark ved rækker tælle 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. Tryk derefter på F5 nøglen til at køre koden, og der vises en dialog for at vælge en rækkevidde, der skal deles, og derefter klikke på OK, og en anden dialog for dig at angive rækken tæller. Se skærmbillede:

4. Klik OK, og rækken er opdelt i flere ark ved rækken tæller.

Noter: De delte regneark er placeret bag på masterarket.


pil blå højre boble Opdel data i flere regneark ved rækker tæller med Kutools for Excel

Ovennævnte kode kan kun dele dataene med de angivne rækker, og det vil ikke tilføje titlen for hver regnearkdata, hvis dine data har titlen.

Men med Kutools til Excel's Split data, kan du ikke kun indsætte overskrifterne for hver regnearksdata, men kan også angive de nye delte regnearknavne.

Kutools til Excel indeholder mere end 300 handy Excel værktøjer. Gratis at prøve uden begrænsning i 30 dage. Få det nu

Hvis du har installeret Kutools for Excel, skal du gøre følgende:

1. Vælg det udvalg af data, du vil dele.

2. Klik Enterprise > Arbejdsarkværktøjer > Split data (eller Enterprise > Split data ), se screenshot:

doc-split-data-by-rows6

3. I Opdele data i flere regneark dialog boks:

  • Type Faste rækker fra Split baseret på valg og indtast antallet af rækker, der skal deles for hver regneark. (Hvis dine data har overskrifter, og du vil indsætte dem i hvert nyt delt regneark, skal du kontrollere Mine data har overskrifter mulighed.)
  • Derefter kan du angive delte regnearknavne under Nyt regnearknavn sektion, vælg regnearknavnereglerne fra Regler drop down liste, kan du tilføje Præfiks or Suffiks for arknavne også. Se skærmbillede:

doc-split-data-by-rows7

4. Når du har angivet indstillingerne, skal du klikke på OK, og de valgte data er opdelt i flere regneark i en ny arbejdsbog ved hver 5 række. Og overskrifterne indsættes for hvert nyt regneark. Se skærmbillede:

doc-split-data-by-rows8

Klik for at vide mere om denne Split Data-funktion.

Relateret artikel:

Hvordan opdeles data i flere regneark baseret på kolonne i Excel?



Anbefalede produktivitetsværktøjer

Office-fanen

guld star1 Medbring praktiske faner til Excel og andre Office-software, ligesom Chrome, Firefox og nye Internet Explorer.

Kutools til Excel

guld star1 Fantastiske! Forøg din produktivitet i 5 minutter. Har ikke brug for særlige færdigheder, spar to timer hver dag!

guld star1 300 Nye funktioner til Excel, gør Excel meget nemt og kraftfuldt:

  • Fusionere celler / rækker / kolonner uden at miste data.
  • Kombiner og konsolidér flere ark og arbejdsbøger.
  • Sammenlign ranges, kopier flere rækker, konverter tekst til dato, enheds- og valutaomregning.
  • Tæl efter farver, Personsøgning Subtotaler, Avanceret Sort og Super Filter,
  • Mere Vælg / Indsæt / Slet / Tekst / Format / Link / Kommentar / Arbejdsbøger / Regneark Værktøjer ...

Skærmbillede af Kutools til 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 · 10 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?