Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan deles data i flere regneark ved rader teller i Excel?

For eksempel har jeg en rekke dataliste, nå vil jeg dele den i flere regneark ved å telle rader, i dette eksempelet vil jeg dele det med hver 5-rad (se følgende skjermbilder). Er det noen måter å hjelpe oss med å løse dette problemet raskt? Her presenterer jeg to triks for å få det gjort enkelt.


doc-split-data-for-rows1


-2



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

Del data i flere regneark ved rader telle med VBA-kode

Del data i flere regneark ved å telle med Kutools for Excel


pil blå høyre boble Del data i flere regneark ved rader telle med VBA-kode


Følgende VBA-kode kan hjelpe deg å dele radene i flere regneark ved å telle rader, gjør som følger:

1. Hold nede ALT + F11 nøkkel for å åpne Microsoft Visual Basic for Applications vinduet.

2. Klikk innfelt > Modules, og lim inn følgende kode i modulvinduet.

VBA: Delt data i ark ved rader telle 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. Trykk deretter på F5 nøkkel for å kjøre koden, og en dialogboks vises for å velge et område som skal deles, og deretter klikker du OK, og en annen dialog for deg å spesifisere rekke telling. Se skjermbilde:

4. Klikk OK, og rekkevidden er delt inn i flere ark ved radtellingen.

Merknader: Delte regneark er plassert bak på hovedarket.


pil blå høyre boble Del data i flere regneark ved å telle med Kutools for Excel

Ovennevnte kode kan bare dele dataene med den angitte raden, og det vil ikke legge til tittelen for hvert regnearkdata hvis dataene har tittelen.

Men med Kutools for Excel'S Split data, du kan ikke bare legge inn overskriftene for hvert regnearksdata, men kan også angi de nye delte regnearknavnene.

Kutools for Excel inneholder mer enn 300 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. Få den nå

Hvis du har installert Kutools for Excel, gjør du som følger:

1. Velg datafeltet du vil dele.

2. Klikk Enterprise > Arbeidsarkverktøy > Split data (eller Enterprise > Split data ), se skjermbilde:

doc-split-data-for-rows6

3. på Del data i flere regneark dialogboks:

  • Plukke ut Faste rader fra Split basert på alternativ, og skriv inn antall rader som du vil dele for hver regneark. (Hvis dataene dine har overskrifter og du vil sette dem inn i hvert nytt delt regneark, vennligst sjekk Mine data har overskrifter alternativ.)
  • Deretter kan du angi delt regnearknavn, under Nytt regnearknavn delen, velg regnearknavnreglene fra Regler rullegardinliste, du kan legge til Prefix or suffiks for arknavnene også. Se skjermbilde:

doc-split-data-for-rows7

4. Etter angi innstillingene, klikk deretter OK, og de valgte dataene er delt inn i flere regneark i en ny arbeidsbok ved hver 5-rad. Og topptekstene er satt inn for hvert nytt regneark. Se skjermbilde:

doc-split-data-for-rows8

Klikk for å vite mer om denne Split Data-funksjonen.

Relatert artikkel:

Hvordan dele data i flere regneark basert på kolonne i Excel?



Anbefalte produktivitetsverktøy

Office-fanen

gull star1 Ta med praktiske faner til Excel og annen Office-programvare, akkurat som Chrome, Firefox og ny Internet Explorer.

Kutools for Excel

gull star1 Fantastisk! Øk produktiviteten din i 5 minutter. Trenger ikke noen spesielle ferdigheter, lagre to timer hver dag!

gull star1 300 Nye funksjoner for Excel, gjør Excel veldig enkelt og kraftig:

  • Slett Cell / Rows / Columns uten å miste data.
  • Kombinere og konsolidere flere ark og arbeidsbøker.
  • Sammenlign Ranges, Kopier flere ranger, Konverter tekst til dato, Enhet og Valutaomregning.
  • Telling av farger, personsøkende subtotaler, avansert sortering og superfilter,
  • Mer Velg / Sett inn / Slett / Tekst / Format / Link / Kommentar / Arbeidsbøker / Regneark Verktøy ...

Skjermbilde av Kutools for 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?