Přejít k hlavnímu obsahu

Rozdělte data do více listů podle počtu řádků v aplikaci Excel

Efektivní rozdělení velkého rozsahu dat do více listů aplikace Excel na základě konkrétního počtu řádků může zefektivnit správu dat. Například rozdělení datové sady každých 5 řádků do více listů ji může učinit lépe spravovatelnou a organizovanou. Tato příručka nabízí dvě praktické metody, jak tento úkol provést rychle a snadno.

Rozdělte data do několika pracovních listů podle počtu řádků pomocí kódu VBA

Rozdělte data do několika pracovních listů podle počtu řádků pomocí programu Kutools pro Excel


Rozdělte data do několika pracovních listů podle počtu řádků pomocí kódu VBA

Následující kód VBA vám pomůže rozdělit řádky do více listů podle počtu řádků, postupujte následovně:

1. Podržte 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 modulu.

VBA: Rozdělte data do listů podle počtu řádků v Excelu

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Poté stiskněte tlačítko F5 klíč, v rozevíracím dialogovém okně vyberte řádek záhlaví, viz screenshot:

4. Potom klepněte na tlačítko OKa v druhém řádku výzvy vyberte rozsah dat, který chcete rozdělit podle počtu řádků, viz screenshot:

5. Pokračujte kliknutím OK Tlačítko, ve třetím řádku výzvy, zadejte počet řádků, které chcete rozdělit, viz screenshot:

6. Potom klepněte na tlačítko OK tlačítko, data byla rozdělena do více listů na základě počtu řádků, viz snímek obrazovky:


Rozdělte data do několika pracovních listů podle počtu řádků pomocí programu Kutools pro Excel

Pokud si myslíte, že kód VBA je složitý, Kutools pro Excel nabízí rychlé a intuitivní řešení pro efektivní řešení problému dělení dat. Tento Rozdělit data Tato funkce zjednodušuje provozní proces a umožňuje uživatelům jakékoli úrovně dovedností snadno rozdělit velké datové sady do více listů bez nutnosti hlubokých znalostí programování, což usnadňuje efektivní správu dat.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní

Pokud jste nainstalovali Kutools pro Excel, postupujte následovně:

1. Vyberte rozsah dat, který chcete rozdělit. Potom klepněte Kutools Plus > Rozdělit data, viz screenshot:

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

  • vybrat Opravené řádky od Rozdělit na základě a zadejte počet řádků, které chcete rozdělit pro každý list.
  • Pokud vaše data mají záhlaví a chcete je vložit do každého nového rozděleného listu, zkontrolujte Moje data mají záhlaví volba. (Tip: můžete zadat počet řádků pastevců na základě vašich údajů.)
  • Poté můžete určit názvy dělených listů pod položkou Název nového listu V části vyberte pravidla pro názvy listů z okna pravidla z rozevíracího seznamu můžete přidat Předpona or Přípona i pro názvy listů. 

4. Po zadání nastavení klikněte na OKa vybraná data byla rozdělena do několika pracovních listů nového sešitu každých 5 řádků. A záhlaví se vloží pro každý nový list. Viz screenshot:

Poznámka: Chcete-li použít tuto funkci, prosím stáhnout a nainstalovat Kutools pro Excel jako první.

Související články:

  • Rozdělte data do více listů na základě sloupců
  • Předpokládejme, že máte list s velkými řadami dat a nyní potřebujete rozdělit data do více listů na základě sloupce Název (viz následující snímek obrazovky) a názvy jsou zadávány náhodně. Možná je můžete nejprve seřadit a pak je zkopírovat a vložit jeden po druhém do jiných nových listů. To však bude vyžadovat vaši trpělivost, abyste je mohli opakovaně kopírovat a vkládat. Dnes budu mluvit o několika rychlých tricích, jak tento úkol vyřešit.
  • Zkombinujte duplicitní řádky a sečtěte hodnoty v aplikaci Excel
  • V Excelu je běžným scénářem setkání s datovou množinou s duplicitními položkami. Často se můžete ocitnout s řadou dat, kde je klíčovou výzvou efektivně zkombinovat tyto duplicitní řádky a současně sečíst hodnoty v odpovídajícím sloupci, jak je znázorněno na následujícím snímku obrazovky. V této souvislosti se ponoříme do několika praktických metod, které vám mohou pomoci konsolidovat duplicitní data a agregovat jejich přidružené hodnoty, čímž se zvýší jak přehlednost, tak užitečnost vašich excelových sešitů.
  • Sloučit dvě nebo více tabulek do jedné na základě klíčových sloupců
  • Předpokládejme, že máte v sešitu tři tabulky, nyní chcete tyto tabulky sloučit do jedné tabulky na základě odpovídajících klíčových sloupců, abyste získali výsledek, jak je znázorněno níže. To může být pro většinu z nás obtížný úkol, ale nebojte se, tento článek, představím některé metody řešení tohoto problému.

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (25)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Very useful thank u so much
This comment was minimized by the moderator on the site
Its awesome!
Rated 5 out of 5
This comment was minimized by the moderator on the site
But header is not retaining in the output. Please guide me if any solution.
This comment was minimized by the moderator on the site
Can we split this same data but by using a code in php?
This comment was minimized by the moderator on the site
U are the savior my brother. Take love from Bangladesh <3 
This comment was minimized by the moderator on the site
Is there a way to keep the header across all worksheet?
For example, row 1 is the column names and row 2 to row 51 are my data. When I split it into 10 worksheets, I hope to have row 1 be the header and row 2-6 be the data.
This comment was minimized by the moderator on the site
this was very helpful. thank you
This comment was minimized by the moderator on the site
I have 20 million data in excel. I need to segregate it with first 2500 rows followed by 250 data so on. How can I do it quickly.
This comment was minimized by the moderator on the site
Minmatar detected :O
This comment was minimized by the moderator on the site
thank you. saved a lot of my time.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations