Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum se împart datele în mai multe foi de lucru prin numărul de rânduri în Excel?

De exemplu, am o listă de date, acum vreau să o împărțim în mai multe foi de lucru prin numărul de rânduri, în acest exemplu, o voi împărți pe fiecare rând 5 (a se vedea imaginile următoare). Există vreo modalitate de a ne ajuta să rezolvăm rapid această problemă? Aici vă voi prezenta două trucuri pentru a vă face ușor.


doc-split-date-de-rows1


-2



doc-split-date-de-rows2
doc-split-date-de-rows3
doc-split-date-de-rows4
doc-split-date-de-rows5

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

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


săgeată albastru dreapta bule Împărțiți datele în mai multe foi de lucru prin numărul de rânduri cu codul VBA


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

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

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

VBA: divizați datele în foi după numărul de rânduri din Excel.

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Apoi apăsați F5 cheia pentru a rula codul și o fereastră de dialog pentru selectarea unui interval de împărțire, apoi faceți clic pe OK, și un alt dialog pentru a specifica numărul de rânduri. Vedeți captura de ecran:

4. Clic OK, iar intervalul este împărțit în mai multe coli de numărul de rânduri.

notițe: Foile de lucru separate sunt plasate în partea din spate a foii de lucru principale.


săgeată albastru dreapta bule Împărțiți datele în mai multe foi de lucru prin rânduri cu Kutools pentru Excel

Codul de mai sus poate împărți datele numai după numărul de rânduri specificat și nu va adăuga titlul pentru fiecare fișă de lucru dacă datele dvs. au titlul.

Dar cu Kutools pentru Excel'S Datele Split, nu numai că puteți insera anteturile pentru fiecare fișă de lucru, dar puteți specifica și numele noilor foi de lucru divizate.

Kutools pentru Excel include mai mult decât instrumente 300 la îndemână Excel. Gratuit pentru a încerca fără limitări în zilele 30. 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ă le împărțiți.

2. Clic Afacere > Foaie de lucru Unelte > Datele Split (Sau Afacere > Datele Split ), a se vedea captura de ecran:

doc-split-date-de-rows6

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 ș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 anteturi și doriți să le inserați în fiecare foaie de lucru nouă, vă rugăm să verificați Datele mele au anteturi opțiune.)
  • Apoi, puteți specifica numele foii de lucru divizate, în secțiunea Nume de foi de lucru noi secțiune, selectați regulile de nume ale foii de lucru din Reguli lista derulantă, puteți adăuga Prefix or Sufix pentru numele de foi, de asemenea. Vedeți captura de ecran:

doc-split-date-de-rows7

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 de către fiecare rânduri 5. Și anteturile sunt inserate pentru fiecare foaie de lucru nouă. Vedeți captura de ecran:

doc-split-date-de-rows8

Faceți clic pentru a afla mai multe despre această caracteristică Split Data.

Articol asociat:

Cum se împart datele în mai multe foi de lucru bazate pe coloană în Excel?



Instrumente de productivitate recomandate

Tab-ul Office

aur star1 Aduceți file la îndemână Excel și alte programe Office, la fel ca Chrome, Firefox și noul Internet Explorer.

Kutools pentru Excel

aur star1 Uimitor! Sporiți productivitatea în minute 5. Nu aveți nevoie de abilități speciale, cu excepția a două ore în fiecare zi!

aur star1 300 Caracteristici noi pentru Excel, Make Excel mult mai ușor și mai puternic:

  • Mergeți celule / rânduri / coloane fără a pierde date.
  • Combină și consolidează mai multe coli și foi de lucru.
  • Comparați intervale, copiați mai multe intervale, convertiți textul în data, conversia unității și monedelor.
  • Numărați după culori, subtotalări pentru pagini, sortare avansată și filtru super,
  • Mai mult Selectați / Inserați / Ștergeți / Text / Format / Link / Comment / Workbooks / Foi de lucru Instrumente ...

Ecranul lui Kutools pentru Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 10 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?