Ugrás a tartalomra

Az adatok felosztása több munkalapra a sorok számának megfelelően az Excelben

Egy nagy adattartomány hatékony felosztása több Excel munkalapra egy adott sorszám alapján egyszerűsítheti az adatkezelést. Például, ha egy adatkészletet 5 soronként több lapra oszt fel, kezelhetőbbé és szervezettebbé teheti azt. Ez az útmutató két gyakorlati módszert kínál ennek a feladatnak a gyors és egyszerű elvégzésére.

Az adatokat több munkalapra oszthatja sorok szerint, VBA kóddal számolva

Ossza fel az adatokat több munkalapra a sorok számának megfelelően a Kutools for Excel segítségével


Az adatokat több munkalapra oszthatja sorok szerint, VBA kóddal számolva

A következő VBA-kód segíthet a sorok több munkalapra osztásában a sorok száma szerint, tegye a következőket:

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: Az adatok felosztása munkalapokra az Excelben sorszám szerint

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. Ezután nyomja meg a gombot F5 gomb, a felbukkanó párbeszédpanelen válassza ki a fejléc sort, lásd a képernyőképet:

4. Ezután kattints a gombra OK, és a második prompt dobozban válassza ki azt az adattartományt, amelyet sorok szerint kíván felosztani, lásd a képernyőképet:

5. Kattintson a gombra OK gomb, a harmadik prompt mezőbe írja be a felosztani kívánt sorok számát, lásd a képernyőképet:

6. Ezután kattints a gombra OK gombot, az adatok több munkalapra lettek felosztva a sorok száma alapján, lásd a képernyőképet:


Ossza fel az adatokat több munkalapra a sorok számának megfelelően a Kutools for Excel segítségével

Ha úgy gondolja, hogy a VBA kód bonyolult, Kutools az Excel számára gyors és intuitív megoldást kínál az adatfelosztás problémájának hatékony kezelésére. Ez Osztott adatok A funkció leegyszerűsíti a műveleti folyamatot, lehetővé téve a bármilyen képzettségi szintű felhasználó számára, hogy nagy adatkészleteket könnyen feloszthasson több munkalapra anélkül, hogy mélyreható programozási ismeretekre lenne szüksége, ami megkönnyíti a hatékony adatkezelést.

Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most

Ha telepítve van Kutools az Excel számára, kérjük, tegye a következőket:

1. Válassza ki a felosztani kívánt adattartományt. Ezután kattintson a gombra Kutools Plus > Osztott adatok, lásd a képernyőképet:

3. Az Az adatok felosztása több munkalapra párbeszédablak:

  • választ Fix sorok ból ből Felosztása alapján opciót, és adja meg az egyes munkalapokhoz felosztani kívánt sorok számát.
  • Ha az adatoknak vannak fejlécek, és minden egyes új felosztott munkalapba szeretné beilleszteni őket, ellenőrizze Adataim fejléceket tartalmaznak választási lehetőség. (típus: adatai alapján megadhatja a pásztorsorok számát.)
  • Ezután megadhatja az osztott munkalap nevét a Új munkalapok neve szakaszban válassza ki a munkalap nevének szabályait a Szabályok legördülő listából felveheti a prefix or képző a lapnevekhez is. 

4. Miután megadta a beállításokat, majd kattintson a gombra OK, és a kiválasztott adatokat minden öt sorban egy új munkafüzet több munkalapjára osztotta fel. És a fejléceket minden új munkalaphoz beillesztjük. Lásd a képernyőképet:

Megjegyzések: A funkció alkalmazásához kérjük töltse le és telepítse a Kutools for Excel alkalmazást először.

Kapcsolódó cikkek:

  • Oszlopok alapján ossza fel az adatokat több munkalapra
  • Tegyük fel, hogy van egy munkalapja hatalmas adatsorokkal, és most több munkalapra kell felosztania az adatokat a Név oszlop alapján (lásd a következő képernyőképet), és a nevek véletlenszerűen kerülnek beírásra. Lehet, hogy először rendezheti őket, majd egyenként másolja és illessze be őket más új munkalapokra. Ehhez azonban türelmedre lesz szükséged ahhoz, hogy ismételten másolhasd és illessz be. Ma néhány gyors trükkről fogok beszélni ennek a feladatnak a megoldására.
  • Kombinálja a duplikált sorokat, és összegezze az értékeket az Excelben
  • Az Excelben gyakran előfordul, hogy ismétlődő bejegyzéseket tartalmazó adatkészlettel találkozik. Gyakran előfordulhat, hogy számos adattal találkozhat, ahol a fő kihívás az, hogy hatékonyan kombinálja ezeket az ismétlődő sorokat, miközben egyidejűleg összegzi az értékeket egy megfelelő oszlopban, a következő képernyőképen látható módon. Ebben az összefüggésben számos olyan gyakorlati módszert vizsgálunk meg, amelyek segíthetnek az ismétlődő adatok konszolidálásában és a hozzájuk tartozó értékek összesítésében, javítva az Excel-munkafüzetek átláthatóságát és hasznosságát.
  • Egyesítsen két vagy több táblázatot egybe a kulcsoszlopok alapján
  • Ha feltételezzük, hogy három táblázata van egy munkafüzetben, akkor ezeket a táblázatokat egy táblába kívánja egyesíteni a megfelelő kulcsoszlopok alapján, hogy az eredményt az alábbi képernyőképen láthatja. Ez a legtöbbünk számára problémás feladat lehet, de, ne aggódjon, ez a cikk bemutat néhány módszert a probléma megoldására.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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