Salt la conținutul principal

Împărțiți datele în mai multe foi de lucru în funcție de numărul de rânduri în Excel

Împărțirea eficientă a unui interval mare de date în mai multe foi de lucru Excel bazate pe un anumit număr de rânduri poate simplifica gestionarea datelor. De exemplu, împărțirea unui set de date la fiecare 5 rânduri în mai multe foi îl poate face mai ușor de gestionat și organizat. Acest ghid oferă două metode practice pentru a realiza această sarcină rapid și ușor.

Împărțiți datele în mai multe foi de lucru pe rânduri, cu numărul VBA

Împărțiți datele în mai multe foi de lucru pe rânduri, cu Kutools pentru Excel


Împărțiți datele în mai multe foi de lucru pe rânduri, cu numărul VBA

Următorul cod VBA vă poate ajuta să împărțiți rândurile în mai multe foi de lucru după numărul de rânduri, procedați după cum urmează:

1. Țineți apăsat butonul ALT + F11 tasta pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

VBA: Împărțiți datele în foi de lucru în funcție de numărul de rânduri în Excel

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. Apoi, apăsați F5 tasta, în caseta de dialog pop-up, selectați rândul de antet, consultați captura de ecran:

4. Apoi apasa OKși, în a doua casetă de prompt, selectați intervalul de date pe care doriți să îl împărțiți după numărul de rânduri, consultați captura de ecran:

5. Continuați să faceți clic OK butonul, în a treia casetă de prompt, introduceți numărul de rânduri pe care doriți să le împărțiți, vedeți captura de ecran:

6. Apoi apasa OK butonul, datele au fost împărțite în mai multe foi de lucru în funcție de numărul de rânduri, vezi captura de ecran:


Împărțiți datele în mai multe foi de lucru pe rânduri, cu Kutools pentru Excel

Dacă credeți că codul VBA este complex, Kutools pentru Excel oferă o soluție rapidă și intuitivă pentru a aborda eficient problema împărțirii datelor. Acest Împărțiți datele caracteristica simplifică procesul de operare, permițând utilizatorilor de orice nivel de calificare să împartă cu ușurință seturi mari de date în mai multe foi de lucru fără a fi nevoie de cunoștințe aprofundate de programare, facilitând gestionarea eficientă a datelor.

Kutools pentru Excel include mai mult de 300 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile. Ia-l acum

Dacă ați instalat Kutools pentru Excel, vă rugăm să faceți următoarele:

1. Selectați intervalul de date pe care doriți să îl împărțiți. Apoi, faceți clic Kutools Plus > Împărțiți datele, vezi captura de ecran:

3. În Împărțiți datele în mai multe foi de lucru căsuță de dialog:

  • Selectați Rânduri fixe din Split pe baza opțiunea și introduceți numărul de rânduri pe care doriți să le împărțiți pentru fiecare foaie de lucru.
  • Dacă datele dvs. au antete și doriți să le inserați în fiecare nouă foaie de lucru împărțită, vă rugăm să verificați Datele mele au anteturi opțiune. (varful: puteți introduce numărul de rânduri de păstor pe baza datelor dvs.)
  • Apoi puteți specifica numele foilor de lucru împărțite, sub Numele noilor foi de lucru , selectați regulile de nume ale foii de lucru din Reguli lista derulantă, puteți adăuga fișierul Prefix or Sufix și pentru numele foilor. 

4. După ce specificați setările, faceți clic pe OK, iar datele selectate au fost împărțite în mai multe foi de lucru ale unui nou registru de lucru la fiecare 5 rânduri. Și anteturile sunt inserate pentru fiecare foaie de lucru nouă. Vedeți captura de ecran:

notițe: Pentru a aplica această caracteristică, vă rugăm descărcați și instalați Kutools pentru Excel mai întâi.

Articole pe aceeaşi temă:

  • Împărțiți datele în mai multe foi de lucru pe baza coloanei
  • Presupunând că aveți o foaie de lucru cu rânduri uriașe de date, iar acum, trebuie să împărțiți datele în mai multe foi de lucru pe baza coloanei Nume (vezi următoarea captură de ecran), iar numele sunt introduse aleatoriu. Poate le puteți sorta mai întâi, apoi le copiați și lipiți una câte una în alte foi de lucru noi. Dar acest lucru va avea nevoie de răbdare pentru a copia și lipi în mod repetat. Astăzi, voi vorbi despre câteva trucuri rapide pentru a rezolva această sarcină.
  • Combinați rânduri duplicate și suma valorilor în Excel
  • În Excel, este un scenariu comun să întâlniți un set de date cu intrări duplicat. Adesea, s-ar putea să vă aflați cu o serie de date în care provocarea cheie este să combinați eficient aceste rânduri duplicate, însumând simultan valorile într-o coloană corespunzătoare, după cum se arată următoarea captură de ecran. În acest context, vom explora câteva metode practice care vă pot ajuta să consolidați datele duplicate și să agregați valorile asociate acestora, sporind atât claritatea, cât și utilitatea registrelor de lucru Excel.
  • Îmbinați două sau mai multe tabele într-unul singur pe baza coloanelor cheie
  • Presupunând că aveți trei tabele într-un registru de lucru, acum, doriți să îmbinați aceste tabele într-un singur tabel pe baza coloanelor cheie corespunzătoare pentru a obține rezultatul așa cum este prezentat mai jos. Aceasta poate fi o sarcină supărătoare pentru majoritatea dintre noi, dar, vă rugăm să nu vă faceți griji, acest articol, voi introduce câteva metode pentru rezolvarea acestei probleme.

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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