Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að skipta gögnum í margar vinnublöð með raðum telja í Excel?

Til dæmis, ég hef úrval af gögnum lista, nú vil ég að skipta því í margar vinnublöð með því að raða telja, í þessu dæmi mun ég kljúfa það eftir hverri 5 röð (sjá eftirfarandi skjámyndir). Eru einhverjar leiðir til að hjálpa okkur að leysa þetta vandamál fljótt? Hér mun ég kynna tvær bragðarefur fyrir þig til að fá það gert auðveldlega.


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

Skiptu gögnum í margar vinnublöð með raðum með VBA kóða

Skiptu gögnum í margar vinnublöð með raðum með Kutools fyrir Excel


ör blár hægri kúla Skiptu gögnum í margar vinnublöð með raðum með VBA kóða


Eftirfarandi VBA kóða getur hjálpað þér að skipta um raðirnar í margar vinnublöð með því að raða telja, gerðu eftirfarandi:

1. Haltu niður ALT + F11 lykill til að opna Microsoft Visual Basic fyrir forrit gluggi.

2. Smelltu Setja > Mát, og líma eftirfarandi kóða í Module glugganum.

VBA: Skiptu gögnum í blöð með raðum í 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. Ýttu síðan á F5 lykillinn að því að keyra kóðann og gluggi birtist til að velja svið til að skipta, og smelltu síðan á OK, og annar valmynd fyrir þig til að tilgreina raðirnar telja. Sjá skjámynd:

4. Smellur OK, og sviðin eru skipt í margar blöð með því að raða telja.

Athugaðu: Verkalistarnir eru settir á bak við aðalvinnublaðið.


ör blár hægri kúla Skiptu gögnum í margar vinnublöð með raðum með Kutools fyrir Excel

Ofangreind kóða getur aðeins skipt gögnum með tilgreindum röðum, og það mun ekki bæta við titlinum fyrir hvert skjalagögn ef gögnin þín hafa titilinn.

En með Kutools fyrir Excel'S Split Gögn, ekki aðeins er hægt að setja fyrirsagnirnar fyrir hverja vinnublaðsgögn, en einnig er hægt að tilgreina nýju heiti vinnuskilunnar.

Kutools fyrir Excel inniheldur meira en 300 handvirka Excel verkfæri. Frjáls til að reyna án takmörkunar á 30 daga. Náðu í það núna

Ef þú hefur sett upp Kutools fyrir Excel skaltu gera eftirfarandi:

1. Veldu fjölda gagna sem þú vilt skipta.

2. Smelltu Enterprise > Verkstæði Verkfæraskúr > Split Gögn (Eða Enterprise > Split Gögn ), sjá skjámynd:

doc-split-data-by-rows6

3. Í Skiptu gögnum í marga vinnuskilta valmynd:

  • Veldu Fastir raðir frá Split byggt á valkostur og sláðu inn fjölda raða telja sem þú vilt skipta fyrir hverja reiknivél. (Ef gögnin þín eru með haus og þú vilt setja þær inn í hvert nýtt verkaskil, vinsamlegast athugaðu Gögnin mín eru með fyrirsagnir valkostur.)
  • Þá er hægt að tilgreina skipt heiti vinnublaðsins, undir Nýr vinnublaðsheiti kafla, veldu reglureiknistafnareglur frá Reglur falla niður lista, þú getur bætt við Forskeyti or viðskeyti fyrir lak nöfn eins og heilbrigður. Sjá skjámynd:

doc-split-data-by-rows7

4. Eftir að tilgreina stillingar skaltu smella á OK, og völdu gögnin hafa verið skipt í margar vinnublöð af nýjum vinnubók eftir hverri 5 röð. Og hausarnir eru settir inn fyrir hvert nýtt verkstæði. Sjá skjámynd:

doc-split-data-by-rows8

Smelltu til að vita meira um þennan Gögn Gögn.

Tengd grein:

Hvernig á að skipta gögnum í margar vinnublöð byggt á dálki í Excel?



Ráðlögð framleiðni verkfæri

Office flipi

gull star1 Komdu með handan flipa í Excel og önnur Office hugbúnaður, eins og Króm, Firefox og nýjan Internet Explorer.

Kutools fyrir Excel

gull star1 Ótrúlegt! Auka framleiðni þína á 5 mínútum. Ekki þörf á sérstökum hæfileikum, spara tvær klukkustundir á hverjum degi!

gull star1 300 Nýjar eiginleikar fyrir Excel, Gera Excel mjög auðvelt og öflugt:

  • Sameina Cell / Rows / dálka án þess að tapa gögnum.
  • Sameina og sameina margar töflur og vinnubækur.
  • Bera saman sviðum, afritaðu margar línur, umbreyta texta í dag, einingar og gjaldmiðil viðskipta.
  • Fjöldi með litum, síðuskiptafjölda, háþróaður flokkur og frábær sía,
  • Meira Veldu / Setja / Eyða / Texti / Snið / Link / Athugasemd / Vinnubækur / Verkstæði Verkfæri ...

Skjár skot af Kutools fyrir 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?