Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

Jak rozdělit data do více pracovních listů podle řádků počítat v aplikaci Excel?

Mám například řadu datových seznamů, nyní je chci rozdělit do několika listů podle počtu řádků, v tomto příkladu rozděluji každý řádek 5 (viz následující screenshoty). Existují nějaké způsoby, jak nám tento problém rychle vyřešit? Zde vám představím dva triky, abyste to mohli udělat snadno.


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

Rozdělit data do více pracovních listů podle počtu řádků s kódem VBA

Rozdělit data do více pracovních listů podle počtu řádků s programem Kutools for Excel


arrow modrá pravá bublina Rozdělit data do více pracovních listů podle počtu řádků s kódem VBA


Následující kód VBA vám může pomoci rozdělit řádky na více listů podle počtu řádků:

1. Podržte stisknuté tlačítko ALT + F11 klávesa pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do okna Modul.

VBA: Rozdělit data do listů řádky počítat v aplikaci 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. Pak stiskněte tlačítko F5 klávesu pro spuštění kódu a zobrazí dialog pro výběr rozdělení, které chcete rozdělit, a potom klepněte na tlačítko OK, a další dialog pro zadání počtu řádků. Zobrazit screenshot:

4. klikněte OK, a rozsah je rozdělen na více listů podle počtu řádků.

Poznámka: Rozdělené listy jsou umístěny na zadní straně hlavního listu.


arrow modrá pravá bublina Rozdělit data do více pracovních listů podle počtu řádků s programem Kutools for Excel

Výše uvedený kód může data rozdělit pouze podle zadaného počtu řádků a nebude přidávat název každého datového listu dat, pokud mají vaše údaje název.

Ale s Kutools pro ExcelJe Split Data, můžete nejen vložit záhlaví pro jednotlivé listy dat, ale také můžete zadat nové názvy rozdělených listů.

Kutools pro Excel obsahuje více než 300 šikovné nástroje Excel. Můžete zkusit bez omezení v 30 dnech. Získat nyní

Pokud jste nainstalovali program Kutools pro aplikaci Excel, postupujte takto:

1. Vyberte rozsah dat, které chcete rozdělit.

2, klikněte Podnik > Nástroje pracovního listu > Split Data (nebo Podnik > Split Data ), viz screenshot:

doc-split-data-by-rows6

3. V Rozdělit data do více pracovních listů dialogové okno:

  • vybrat Pevné řádky od Rozdělit na základě a zadejte počet řádků, které chcete rozdělit pro jednotlivé pracovní listy. (Pokud mají vaše data záhlaví a chcete je vložit do každého nového rozděleného listu, zkontrolujte prosím Moje data mají záhlaví volba.)
  • Poté můžete zadat názvy rozdělených listů pod Název nového listu , vyberte pravidla názvů pracovního listu pravidla rozbalovací seznam můžete přidat Předpona or Přípona pro názvy listů také. Zobrazit screenshot:

doc-split-data-by-rows7

4. Po zadání nastavení klepněte na tlačítko OK, a vybrané údaje byly rozděleny do více pracovních listů nového sešitu každým řádkem 5. A hlavičky jsou vloženy pro každý nový list. Zobrazit screenshot:

doc-split-data-by-rows8

Klepnutím se dozvíte více o této funkci Split Data.

Související článek:

Jak rozdělit data na více listů na základě sloupce v aplikaci Excel?



Doporučené nástroje pro produktivitu

Karta Office

zlatá hvězda1 Přiveďte praktické karty do aplikace Excel a jiného softwaru Office, stejně jako Chrome, Firefox a nový Internet Explorer.

Kutools pro Excel

zlatá hvězda1 Úžasný! Zvyšte svou produktivitu v minutách 5. Nepotřebujete žádné speciální dovednosti, kromě dvou hodin denně!

zlatá hvězda1 300 Nové funkce pro aplikaci Excel, Značka Excel je velmi snadná a výkonná:

  • Sloučit buňky / řádky / sloupce bez ztráty dat.
  • Kombinovat a konsolidovat více listů a sešitů.
  • Srovnání rozsahů, kopírování více rozsahů, převod textu na datum, konverzi jednotek a měn.
  • Počet podle barvy, dílčí součty stránkování, třídění podle rozšířeného třídění a super filtru,
  • Více Vyberte / Vložit / Odstranit / Text / Formát / Odkaz / Komentář / Workbooks / Worksheets Nástroje ...

Snímka obrazovky Kutools pro 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?