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.
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:
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
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...
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!