Hogyan lehet felosztani egy nagy táblázatot több kis táblára az Excelben?

Ha van egy nagy munkalapja, amely több oszlopot és több száz vagy ezer soros adatot tartalmaz, akkor ezt a nagy táblázatot több kis táblára szeretné felosztani az oszlop értéke vagy a sorok száma alapján, hogy a következő eredményeket kapja. Hogyan tudta kezelni ezt a feladatot az Excel programban?

Fő táblázat		Osztja a táblázatot oszlopérték alapján több táblára	Táblázat felosztása több táblára sorok szerint

Feloszt egy nagy táblázatot több táblára VBA kóddal ellátott oszlopérték alapján

Vágjon egy nagy táblázatot több táblára a VBA kóddal ellátott sorok meghatározott száma alapján

Osztjon egy nagy táblázatot több táblára oszlopérték vagy csodálatos funkcióval rendelkező sorok száma alapján

Feloszt egy nagy táblázatot több táblára VBA kóddal ellátott oszlopérték alapján

Ha ezt a nagy táblázatot több táblára kívánja osztani egy adott oszlopérték alapján, akkor a következő VBA-kód kedvezhet Önnek. Kérjük, tegye a következőket:

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

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

VBA-kód: A nagy táblák felosztása több táblázatra kulcsoszlopok szerint:

Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, kérjük, válassza ki az adatok fejlécsorát, lásd a képernyőképet:

4. Ezután kattints a gombra OK, és egy újabb párbeszédpanel jelenik meg, válassza ki azokat az oszlopadatokat, amelyek alapján fel akarja osztani a táblázatot, lásd a képernyőképet:

5. Kattints OK, ezt a nagy táblázatot több munkalapra osztotta az oszlopérték, amely a törzslap után található. Az új munkalapokat pedig az oszlop értékével nevezik el. Lásd a képernyőképet:

Vágjon egy nagy táblázatot több táblára a VBA kóddal ellátott sorok meghatározott száma alapján

Ha a táblákat több táblára kell felosztania a sorok száma alapján, akkor a következő VBA-kód segíthet.

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

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

VBA kód: A nagy táblák felosztása több táblára sorok száma 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. Ezután folytassa a kattintással 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 gombra, a főtábla több munkalapra lett felosztva a sorok száma alapján, az alábbi képernyőképen:

Osztjon egy nagy táblázatot több táblára oszlopérték vagy csodálatos funkcióval rendelkező sorok száma alapján

Lehet, hogy a fenti kódok a legtöbb felhasználó számára nehézek, itt egy csodálatos funkciót mutatok be-Osztott adatok of Kutools az Excel számára. Ezzel a segédprogrammal gyorsan és egyszerűen feloszthat egy nagy táblázatot több oszlopra kulcsoszlop vagy sorok száma szerint.

Telepítése után 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, majd kattintson a gombra Kutools Plus > Osztott adatok, lásd a képernyőképet:

2. Az Az adatok felosztása több munkalapra párbeszédpanelen adja meg a kívánt beállításokat:

(1.) Válassza ki Konkrét oszlop or Fix sorok tól Felosztása alapján szakasz, amire szüksége van;

(2.) Adja meg az új munkalapok nevét a Szabályok legördülő listából felveheti a prefix or képző a lapnevekre is.

3. Ezután kattints a gombra Ok gombra, és most a nagy táblát több kis táblára osztották fel egy új munkafüzetben. Képernyőképek megtekintése:

Osztja a táblázatot oszlopérték alapján több táblára	Táblázat felosztása több táblára sorok szerint

Kattintson a Kutools for Excel letöltéséhez és az ingyenes próbaverzióhoz most!

Relatívabb cikkek:

---

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80%-kal növeli a termelékenységet

• Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...

Tovább ... Teljes funkciók 30 napos ingyenes próba ... Vásárlás... 

---

Office Tab – füles felületet hoz az Office-ba, és jelentősen megkönnyíti 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!

Tovább ... Teljes funkciók 30 napos ingyenes próba ... Vásárlás...