Tip: Iné jazyky sú Google preložené. Môžete navštíviť English verziu tohto odkazu.
Prihlásiť sa
x
or
x
x
Registrovať
x

or

Ako rozdeliť dáta do viacerých pracovných hárkov pomocou riadkov počítať v programe Excel?

Napríklad, mám rad zoznamu údajov, teraz chcem rozdeliť do viacerých hárkov podľa počtu riadkov, v tomto príklade rozdelím ho do každého riadku 5 (pozri nasledujúce screenshoty). Existujú nejaké spôsoby, ako nám pomôcť rýchlo vyriešiť tento problém? Tu vám predstavím dva triky, aby ste to urobili ľahko.


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

Rozdeľte údaje do viacerých pracovných hárkov podľa počtu riadkov pomocou kódu VBA

Rozdeľte údaje do viacerých hárkov podľa počtu riadkov pomocou programu Kutools for Excel


arrow modrá pravá bublina Rozdeľte údaje do viacerých pracovných hárkov podľa počtu riadkov pomocou kódu VBA


Nasledujúci kód VBA vám môže pomôcť rozdeliť riadky do viacerých hárkov podľa počtu riadkov, postupujte takto:

1, Podržte stlačené tlačidlo ALT + F11 kľúč na otvorenie Microsoft Visual Basic pre aplikácie okno.

2, kliknite Vložiť > Modulya vložte nasledujúci kód do okna Modul.

VBA: Rozdeľte dáta do hárkov podľa riadkov počítaných v programe 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, Potom stlačte tlačidlo F5 kľúč na spustenie kódu a zobrazí dialógové okno pre výber rozsahu rozdelenia a potom kliknite na tlačidlo OK, a ďalšie dialógové okno pre zadanie počtu riadkov. Pozri snímku obrazovky:

4. kliknite OK, a rozsah je rozdelený do viacerých hárkov podľa počtu riadkov.

Poznámky: Rozdelené pracovné hárky sú umiestnené na zadnej strane hlavného listu.


arrow modrá pravá bublina Rozdeľte údaje do viacerých hárkov podľa počtu riadkov pomocou programu Kutools for Excel

Vyššie uvedený kód môže rozdeliť údaje iba o zadaný počet riadkov a pridaním názvu pre každý údaj v pracovnom hárku, ak má vaša dáta názov.

Ale s Kutools pre Excel'S Split Data, môžete nielen vložiť záhlavie pre jednotlivé dáta pracovného hárka, ale môžete tiež špecifikovať nové názvy rozdelených listov.

Kutools pre Excel obsahuje viac ako 300 užitočné nástroje Excel. Bezplatne vyskúšať bez obmedzenia v dňoch 30. Získať teraz

Ak máte nainštalovaný program Kutools for Excel, postupujte nasledovne:

1, Vyberte rozsah údajov, ktoré chcete rozdeliť.

2, kliknite podnik > Nástroje pracovného hárka > Split Data (Alebo podnik > Split Data ), pozri snímku obrazovky:

doc-split-Data-by-rows6

3. V Rozdeliť údaje do viacerých pracovných hárkov dialógové okno:

  • vybrať Pevné riadky z Rozdelenie na základe a zadajte počet riadkov, ktorý chcete rozdeliť pre jednotlivé pracovné hárky. (Ak majú vaše dáta hlavičky a chcete ich vložiť do každého nového rozdeleného pracovného hárka, skontrolujte ich Moje údaje majú hlavičky voľba).
  • Potom môžete zadať názvy rozdelených hárkov pod Názov nového pracovného hárka , vyberte pravidlá názvov pracovných hárkov z Pravidlá rozbaľovací zoznam, môžete pridať Predpona or prípona pre názvy tabuliek. Pozri snímku obrazovky:

doc-split-Data-by-rows7

4, Po zadaní nastavení kliknite na tlačidlo OK, a vybrané údaje boli rozdelené do viacerých pracovných hárkov nového zošitu každým riadkom 5. A hlavičky sú vložené pre každý nový pracovný list. Pozri snímku obrazovky:

doc-split-Data-by-rows8

Kliknutím získate viac informácií o tejto funkcii Split Data.

Súvisiaci článok:

Ako rozdeliť údaje do viacerých hárkov na základe stĺpca v programe Excel?



Odporúčané nástroje produktivity

Karta Office

zlatá hviezdička1 Prinášajte užitočné karty do programu Excel a iného softvéru balíka Office, rovnako ako Chrome, Firefox a nový Internet Explorer.

Kutools pre Excel

zlatá hviezdička1 Úžasný! Zvýšte svoju produktivitu za minúty 5. Nepotrebujú žiadne špeciálne schopnosti, okrem dvoch hodín denne!

zlatá hviezdička1 300 Nové funkcie pre program Excel, robiť Excel veľmi ľahké a výkonné:

  • Zlúčiť bunky / riadky / stĺpce bez straty dát.
  • Kombinácia a konsolidácia viacerých hárkov a pracovných kníh.
  • Porovnanie rozsahov, kopírovanie viacerých rozsahov, prevod textu na dátum, konverzia jednotiek a mien.
  • Počet podľa farieb, Medzisúčty stránkovania, Rozšírené triedenie a Super filter,
  • Viac Vyberte / Vložiť / Odstrániť / Text / Formát / Odkaz / Komentár / Pracovné zošity / pracovné listy Nástroje ...

Obraz obrazovky Kutools pre 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?