Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako razdeliti podatke na več delovnih listov po številu vrstic v Excelu?

Na primer, imam seznam podatkov, zdaj ga želim razdeliti na več delovnih listov po številu vrstic, v tem primeru ga bom razdelil za vsako vrstico 5 (glej naslednje posnetke zaslona). Ali lahko pomagamo rešiti ta problem hitro? Tukaj bom predstavil dva trika za vas, da boste to storili brez težav.


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

Razdelite podatke na več delovnih listov po številu vrstic s kodo VBA

Razdelite podatke na več delovnih listov po številu vrstic s Kutools za Excel


puščica modra desno mehurček Razdelite podatke na več delovnih listov po številu vrstic s kodo VBA


Naslednja VBA koda vam lahko pomaga razdeliti vrstice na več delovnih listov po številu vrstic, naredite naslednje:

1. Drži dol ALT + F11 ključ, da odprete Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

VBA: Razdelite podatke v liste po številu vrstic v Excelu.

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. Nato pritisnite F5 ključ za zagon kode in prikaže se pogovorno okno za izbiro območja, ki ga želite razdeliti, in nato kliknite OKin drugo pogovorno okno, s katerim določite število vrstic. Prikaz slike:

4. klik OKin obseg je razdeljen na več listov s številom vrstic.

Opombe: Deljeni delovni listi se nahajajo na zadnji strani glavnega delovnega lista.


puščica modra desno mehurček Razdelite podatke na več delovnih listov po številu vrstic s Kutools za Excel

Zgornja koda lahko podatke deli samo z navedenim številom vrstic in ne bo dodala naslova za posamezne podatke delovnega lista, če imajo vaši podatki naslov.

Vendar z Kutools za ExcelJe Spletni podatki, ne morete vstaviti samo glave za vsak podatek, temveč lahko tudi določite nova imena deljenih delov.

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 30 dneh. Get it now

Če ste namestili Kutools za Excel, storite naslednje:

1. Izberite obseg podatkov, ki jih želite razdeliti.

2. Kliknite Podjetje > Delovni list Orodja > Spletni podatki (ali Podjetje > Spletni podatki ), si oglejte posnetek zaslona:

doc-split-data-by-rows6

3. v Razdelite podatke v več delovnih listov pogovorno okno:

  • Izberite Fiksne vrstice iz Split temelji na možnost in vnesite število vrstic, ki jih želite razdeliti za vsak delovni list. (Če imajo vaši podatki glave in jih želite vstaviti v vsak nov delovni list, prosimo, preverite Moji podatki imajo glave možnost.)
  • Nato lahko določite imena deljenih delov del, pod Novo ime delovnega lista v razdelku izberite pravila o imenih delovnih listov Pravila spustni seznam, lahko dodate Prefiks or pripona tudi za imena plošč. Prikaz slike:

doc-split-data-by-rows7

4. Ko določite nastavitve, kliknite OK, izbrani podatki pa so razdeljeni na več delovnih listih nove delovne knjige za vsako vrstico 5. In glave se vstavijo za vsak nov delovni list. Prikaz slike:

doc-split-data-by-rows8

Kliknite, če želite izvedeti več o tej funkciji.

Povezani članek:

Kako razdeliti podatke na več delovnih listov, ki temeljijo na stolpcu v Excelu?



Priporočena orodja za produktivnost

Office Tab

zlata zvezda1 Pripeljite priročne zavihke v programsko opremo Excel in drugo programsko opremo, tako kot Chrome, Firefox in novi Internet Explorer.

Kutools za Excel

zlata zvezda1 Neverjetno! Povečajte produktivnost v minutah 5. Ne potrebujete posebnih veščin, prihranite dve uri vsak dan!

zlata zvezda1 300 Nove funkcije za Excel, naredite Excel precej enostavno in zmogljivo:

  • Spoji celice / vrstice / stolpci brez izgube podatkov.
  • Združite in konsolidirajte več listov in delovnih zvezkov.
  • Primerjajte obsege, kopiraj več razponov, pretvorite besedilo v datum, pretvorbo enote in valute.
  • Count by Colors, Paging Subtotals, Advanced Sort in Super Filter,
  • Več Izberite / Vstavi / Izbriši / Besedilo / Format / Povezava / Komentar / Delovne knjige / Delovni listi ...

Zaslonski posnetek Kutools za 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?