Preskoči na glavno vsebino

Razdelite podatke na več delovnih listov glede na število vrstic v Excelu

Učinkovita razdelitev velikega obsega podatkov na več Excelovih delovnih listov na podlagi določenega števila vrstic lahko poenostavi upravljanje podatkov. Če na primer razdelite nabor podatkov vsakih 5 vrstic na več listov, ga lahko naredite bolj obvladljivega in organiziranega. Ta priročnik ponuja dve praktični metodi za hitro in enostavno izvedbo te naloge.

Podatke razdelite na več delovnih listov po številu vrstic s kodo VBA

Razdelite podatke na več delovnih listov po številu vrstic s programom Kutools za Excel


Podatke razdelite na več delovnih listov po številu vrstic s kodo VBA

Naslednja koda VBA vam lahko pomaga razdeliti vrstice na več delovnih listov po številu vrstic, naredite naslednje:

1. Držite tipko ALT + F11 ključ, da odprete Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

VBA: Razdelite podatke v delovne liste glede na število vrstic 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. Nato pritisnite F5 v pojavnem pogovornem oknu izberite vrstico glave in si oglejte posnetek zaslona:

4. Nato kliknite OKin v drugem pozivnem polju izberite obseg podatkov, ki ga želite razdeliti po številu vrstic, glejte posnetek zaslona:

5. Pojdi na klik OK v tretje pozivno polje vnesite število vrstic, ki jih želite razdeliti, glejte posnetek zaslona:

6. Nato kliknite OK gumb, so bili podatki razdeljeni na več delovnih listov glede na število vrstic, glejte posnetek zaslona:


Razdelite podatke na več delovnih listov po številu vrstic s programom Kutools za Excel

Če menite, da je koda VBA zapletena, Kutools za Excel ponuja hitro in intuitivno rešitev za učinkovito reševanje težave z delitvijo podatkov. to Razdeljeni podatki funkcija poenostavi postopek delovanja in uporabnikom vseh stopenj znanja omogoča enostavno razdelitev velikih naborov podatkov na več delovnih listov brez potrebe po poglobljenem znanju programiranja, kar olajša učinkovito upravljanje podatkov.

Kutools za Excel vključuje več kot 300 priročnih orodij Excel. Brezplačno poskusite brez omejitev v 30 dneh. Get it now

Če ste namestili Kutools za Excel, naredite naslednje:

1. Izberite obseg podatkov, ki jih želite razdeliti. Nato kliknite Kutools Plus > Razdeljeni podatki, glej posnetek zaslona:

3. v Razdelite podatke na več delovnih listov pogovorno okno:

  • Izberite Fiksne vrstice iz Razdeljeno na podlagi možnost in vnesite število vrstic, ki jih želite razdeliti za vsak delovni list.
  • Če imajo vaši podatki glave in jih želite vstaviti v vsak nov razdeljeni delovni list, preverite Moji podatki imajo glave možnost. (Nasvet: na podlagi vaših podatkov lahko vnesete število pastirjev.)
  • Nato lahko pod imenom deljeni delovni list podate imena Ime novega delovnega lista v razdelku izberite pravila za imena delovnih listov v Pravila spustni seznam, lahko dodate Prefiks or pripona tudi za imena listov. 

4. Ko določite nastavitve, kliknite OK, izbrani podatki pa so bili razdeljeni na več delovnih listov novega delovnega zvezka za vsakih 5 vrstic. In glave so vstavljene za vsak nov delovni list. Oglejte si posnetek zaslona:

Opombe: Če želite uporabiti to funkcijo, prosim prenesite in namestite Kutools za Excel najprej.

Sorodni članki:

  • Razdelite podatke na več delovnih listov glede na stolpec
  • Recimo, da imate delovni list z ogromnimi vrsticami podatkov, zdaj pa morate podatke razdeliti na več delovnih listov glede na stolpec Ime (glejte naslednji posnetek zaslona), imena pa so vnesena naključno. Morda jih lahko najprej razvrstite, nato pa enega za drugim kopirate in prilepite v druge nove delovne liste. Toda to bo zahtevalo vašo potrpežljivost za večkratno kopiranje in lepljenje. Danes bom govoril o nekaj hitrih trikih za rešitev te naloge.
  • Združite podvojene vrstice in seštejte vrednosti v Excelu
  • V Excelu je pogost scenarij, da naletite na nabor podatkov s podvojenimi vnosi. Pogosto se lahko znajdete z vrsto podatkov, pri katerih je ključni izziv učinkovito združiti te podvojene vrstice in hkrati sešteti vrednosti v ustreznem stolpcu, kot je prikazano na naslednjem posnetku zaslona. V tem kontekstu se bomo poglobili v več praktičnih metod, ki vam lahko pomagajo konsolidirati podvojene podatke in združiti njihove povezane vrednosti, s čimer izboljšate jasnost in uporabnost vaših Excelovih delovnih zvezkov.
  • Združite dve ali več tabel v eno na podlagi ključnih stolpcev
  • Recimo, da imate v delovnem zvezku tri tabele, jih želite združiti v eno tabelo na podlagi ustreznih stolpcev s ključi, da dobite rezultat, kot je prikazano spodaj. To je lahko za večino od nas težavna naloga, toda, ne skrbite, v tem članku bom predstavil nekaj metod za reševanje te težave.

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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