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