Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Hogyan oszthatjuk meg az adatokat több munkalapon az Excel-ben lévő sorok számlájára?

Például, van egy sor adatsorom, most több sorozatra szeretnék több munkalapra osztani, ebben a példában minden 5 sorra osztom (lásd a következő screenshotokat). Vannak olyan módok, amelyek segítenek nekünk gyorsan megoldani ezt a problémát? Itt fogok bemutatni két trükköt, hogy könnyen elvégezhesse.


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

A sorok száma a VBA kóddal számolva több adatlapra oszlik

Az adatok osztását több munkalapra a sorok számolják a Kutools for Excel programmal


arrow kék jobb buborék A sorok száma a VBA kóddal számolva több adatlapra oszlik


A következő VBA-kód segíthet a sorok több munkalapon való elkülönítéséhez a sorszámok szerint, a következők szerint:

1. Tartsa lenyomva a ALT + F11 kulcs megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA: A sorok Excel-ben való számlálása a lemezekre osztott adatokat.

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. Ezután nyomja meg a gombot F5 billentyűvel futtatni a kódot, és megjelenik egy párbeszédpanel a megosztandó tartomány kiválasztásához, majd kattintson a gombra OK, és egy másik párbeszédablak, amely megadja a sorok számolását. Lásd a képernyőképet:

4. Kattints OK, és a tartomány sorszámba sorolódik több lapra.

Megjegyzések: Az osztott munkalapok a fő munkalap hátoldalán helyezkednek el.


arrow kék jobb buborék Az adatok osztását több munkalapra a sorok számolják a Kutools for Excel programmal

A fenti kód csak az adott sorok számlálásával tudja felosztani az adatokat, és nem adja hozzá az egyes munkalap adatokhoz tartozó címeket, ha az adataik címe.

De Kutools for Excel'S Adatok megosztása, akkor nemcsak a fejléceket illesztheti be minden munkalap adatába, hanem megadhatja az új osztott munkalapneveket is.

Kutools for Excel több mint 300 hasznos Excel eszközöket tartalmaz. Ingyenes az 30 napokban korlátozás nélkül. Szerezd meg most

Ha telepítette a Kutools for Excel programot, kérjük, tegye a következőket:

1. Válassza ki a felosztani kívánt adatkategóriát.

2. Kattints Vállalkozás > Munkalap-eszközök > Adatok megosztása (Vagy Vállalkozás > Adatok megosztása ), lásd a képernyőképet:

doc-split-data-by-rows6

3. Az Adatok megosztása több munkalapon párbeszédablak:

  • választ Rögzített sorok ból ből Split alapján opciót, és adja meg az egyes munkalapokhoz tartozó sorok számát. (Ha az adataid fejléceket tartalmaznak, és minden egyes új megosztott munkalapra be szeretné illeszteni őket, kérjük, ellenőrizze Az adataim fejlécekkel rendelkeznek választási lehetőség.)
  • Ezután megadhatja a megosztott munkalap nevét, a Új munkalapok neve szakaszban válassza ki a munkalapnevek szabályait a Szabályok legördülő listát, hozzáadhatja a prefix or képző a lapok nevére is. Lásd a képernyőképet:

doc-split-data-by-rows7

4. Miután megadta a beállításokat, kattintson a gombra OK, és a kiválasztott adatokat minden 5 sorban új munkafüzet több munkalapjára osztottuk. A fejléceket minden egyes új munkalapra beillesztik. Lásd a képernyőképet:

doc-split-data-by-rows8

Kattintson erre, ha többet szeretne megtudni erről a megosztott adatról.

Kapcsolódó cikk:

Hogyan oszthatjuk meg az adatokat több munkalapon Excel oszlop alapján?



Ajánlott termelékenységi eszközök

Office Tab

arany star1 Kényelmes lapokat hozhat Excel és más Office szoftverekhez, akárcsak a Chrome, a Firefox és az új Internet Explorer.

Kutools for Excel

arany star1 Elképesztő! Növelje termelékenységét 5 perc alatt. Nincs szükség különleges képességekre, kivéve két órát minden nap!

arany star1 300 Az Excel új funkciói, az Excel nagyon egyszerű és erőteljes:

  • A cella / sorok / oszlopok egyesítése adatok elvesztése nélkül.
  • Több lap és munkafüzet kombinálása és egységesítése.
  • Hasonlítsa össze a tartományokat, másolja a többszörös tartományokat, konvertálja a dátumot, a mértékegységet és a pénznemek konverzióját.
  • Számolás a Színek, a Paging Subtotals, az Advanced Sort és a Super Filter,
  • Több Select / Insert / Delete / Szöveg / Formátum / Link / Comment / Workbooks / Worksheets Tools ...

A Kutools for Excel képernyőkép

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 · 9 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?