Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako podijeliti podatke u više listova po broju redaka u Excelu?

Na primjer, imam raspon popisa podataka, sada ga želim podijeliti u više radnih listova prema broju redaka, u ovom primjeru, podijelit ću ga svakim 5 redcima (pogledajte sljedeće snimke zaslona). Postoje li načina da brzo riješimo taj problem? Ovdje ću uvesti dva trikova za vas da biste to učinili lako.


doc-Split-podaci-po-rows1


-2



doc-Split-podaci-po-rows2
doc-Split-podaci-po-rows3
doc-Split-podaci-po-rows4
doc-Split-podaci-po-rows5

Split podataka u više listova po redovima broje se s VBA kodom

Split podataka u više listova po redovima broje se s Kutools za Excel


strelica plava desna mjehurić Split podataka u više listova po redovima broje se s VBA kodom


Sljedeći VBA kôd vam može pomoći podijeliti redove u više radnih listova prema broju redaka, a učinite sljedeće:

1, Držite pritisnuto ALT + F11 ključ za otvaranje Microsoft Visual Basic for Applications prozor.

2, Klik umetak > Moduli, i zalijepite sljedeći kod u prozor modula.

VBA: Split podataka u listove prema broju redaka broji se u programu 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, Zatim pritisnite F5 tipku za pokretanje koda i pojavljuje se dijaloški okvir za odabir raspona za podjelu, a zatim kliknite OK, a drugi dijaloški okvir za određivanje brojanja redaka. Pogledajte snimak zaslona:

4. Klik OK, a raspon je podijeljen u više listova po brojanju redaka.

bilješke: Isječeni listovi nalaze se na poleđini glavnog lista.


strelica plava desna mjehurić Split podataka u više listova po redovima broje se s Kutools za Excel

Gornji kôd može podijeliti podatke samo za navedene brojeve redaka i neće dodati naslov za svaki podatak radnog lista ako vaše podatke ima naslov.

No, s Kutools za Excel'S Podijeli podatke, ne samo da možete umetnuti zaglavlja za svaki podatak radnog lista, već možete odrediti i nova imena podijeljenih radnih listova.

Kutools za Excel uključuje više od 300 zgodan Excel alata. Slobodno je pokušati bez ograničenja u 30 danima. Get It Now

Ako ste instalirali Kutools za Excel, učinite sljedeće:

1, Odaberite raspon podataka koje želite podijeliti.

2, Klik Poduzeće > Radni alati > Podijeli podatke (Ili Poduzeće > Podijeli podatke ), pogledajte snimak zaslona:

doc-Split-podaci-po-rows6

3. U Split podataka u više radnih listova dijaloški okvir:

  • odabrati Fiksni redci iz Na temelju Splita opciju i unesite broj redaka koji želite podijeliti za svaki list. (Ako vaši podaci imaju zaglavlja i želite ih umetnuti u svaki novi radni list, provjerite Moji podaci imaju zaglavlja opcija.)
  • Zatim možete odrediti nazive split radnih listova, ispod Naziv novog radnog lista odjeljak, odaberite nazive radnih listova iz Pravila padajući popis, možete dodati Prefiks or Sufiks za nazive listova. Pogledajte snimak zaslona:

doc-Split-podaci-po-rows7

4, Nakon što odredite postavke, a zatim kliknite OK, a odabrani podaci podijeljeni su u više radnih listova nove radne knjige svakih 5 redaka. I zaglavlja su umetnuta za svaki novi radni list. Pogledajte snimak zaslona:

doc-Split-podaci-po-rows8

Kliknite da biste saznali više o značajci Split Data.

Povezani članak:

Kako podijeliti podatke na više radnih listova na temelju stupca u programu Excel?



Preporučeni alati za produktivnost

Kartica sustava Office

zlato star1 Donesite praktične kartice u program Excel i drugi Office, kao što su Chrome, Firefox i novi Internet Explorer.

Kutools za Excel

zlato star1 Nevjerojatno! Povećajte produktivnost u 5 minuta. Ne trebaju nikakve posebne vještine, osim dva sata svaki dan!

zlato star1 300 nove značajke za Excel, izraditi Excel mnogo jednostavan i snažan:

  • Spoji ćeliju / retke / stupce bez gubitka podataka.
  • Kombinirajte i konsolidirajte više tablica i radnih knjiga.
  • Usporedba raspona, kopiranje više raspona, pretvaranje teksta na datum, jedinica i pretvorba valuta.
  • Count po bojama, Paging Subtotal, Advanced Sort i Super Filter,
  • Više Odabir / umetanje / brisanje / tekst / oblikovanje / veza / komentar / radne knjige / alati za radne listove ...

Screen shot tvrtke 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?