Բաց թողնել հիմնական բովանդակությունը

Տվյալները բաժանեք մի քանի աշխատաթերթերի՝ Excel-ում տողերի հաշվարկով

Տվյալների մեծ տիրույթը արդյունավետորեն բաժանելով Excel-ի մի քանի աշխատաթերթերի՝ հիմնված որոշակի տողերի քանակի վրա, կարող է հեշտացնել տվյալների կառավարումը: Օրինակ, տվյալների բազան յուրաքանչյուր 5 տող բաժանելը մի քանի թերթերի կարող է այն ավելի կառավարելի և կազմակերպված դարձնել: Այս ուղեցույցը առաջարկում է երկու գործնական մեթոդ այս առաջադրանքն արագ և հեշտությամբ կատարելու համար:

Տվյալները բաժանեք բազմաթիվ աշխատանքային թերթերի ՝ ըստ շարքերի հաշվարկի ՝ VBA կոդով

Excel- ի համար Kutools- ի հետ տվյալների բաժանում բազմակի աշխատանքային թերթերի ըստ տողերի


Տվյալները բաժանեք բազմաթիվ աշխատանքային թերթերի ՝ ըստ շարքերի հաշվարկի ՝ VBA կոդով

Հաջորդ VBA կոդը կարող է օգնել ձեզ տողերը բաժանել բազմաթիվ աշխատանքային թերթերի ըստ տողերի հաշվարկի, արեք հետևյալը.

1, Պահեք պահեք ALT + F11 բանալին բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA. Տվյալները բաժանել աշխատանքային թերթերի՝ ըստ տողերի հաշվառման 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, Հետո, սեղմեք F5 ստեղնը, դուրս եկած երկխոսության վանդակում ընտրեք վերնագրի տողը, տես նկարի նկարը.

4, Դրանից հետո կտտացրեք OK, և երկրորդ հուշման վանդակում ընտրեք տվյալների տիրույթը, որը ցանկանում եք բաժանել տողերի հաշվով, տես նկարի նկարը.

5, Անցեք կտտացնելով OK կոճակը, երրորդ հուշման վանդակում, մուտքագրեք տողերի քանակը, որոնց միջոցով ցանկանում եք բաժանել, տես նկարի նկարը.

6, Դրանից հետո կտտացրեք OK կոճակը, տվյալները բաժանվել են մի քանի աշխատաթերթերի՝ ելնելով տողերի քանակից, տես սքրինշոթը.


Excel- ի համար Kutools- ի հետ տվյալների բաժանում բազմակի աշխատանքային թերթերի ըստ տողերի

Եթե ​​կարծում եք, որ VBA կոդը բարդ է, Excel- ի համար նախատեսված գործիքներ առաջարկում է արագ և ինտուիտիվ լուծում՝ տվյալների պառակտման խնդիրը արդյունավետորեն լուծելու համար: Սա Տրոհված տվյալներ Հատկանիշը հեշտացնում է շահագործման գործընթացը՝ թույլ տալով ցանկացած հմտության մակարդակի օգտատերերին հեշտությամբ բաժանել տվյալների մեծ հավաքածուները մի քանի աշխատաթերթերի՝ առանց խորը ծրագրավորման գիտելիքների անհրաժեշտության՝ հեշտացնելով տվյալների արդյունավետ կառավարումը:

Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now

Եթե ​​տեղադրեք Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1. Ընտրեք տվյալների շրջանակը, որը ցանկանում եք բաժանել: Այնուհետև սեղմեք Kutools Plus > Տրոհված տվյալներ, տես նկարի նկարը.

3, Մեջ Տվյալները բաժանեք մի քանի աշխատանքային թերթերի երկխոսության տուփ:

  • ընտրել Ֆիքսված շարքեր - ից Պառակտում ՝ հիմնված տարբերակը և մուտքագրեք տողերի քանակը, որոնք ցանկանում եք բաժանել յուրաքանչյուր աշխատաթերթի համար:
  • Եթե ​​ձեր տվյալները վերնագրեր ունեն, և դուք ցանկանում եք դրանք տեղադրել յուրաքանչյուր նոր բաժանված աշխատաթերթում, խնդրում ենք ստուգել Իմ տվյալներն ունեն վերնագրեր տարբերակ. (ԱկնարկԴուք կարող եք մուտքագրել հովիվների տողերի քանակը ձեր տվյալների հիման վրա:)
  • Դրանից հետո կարող եք բաժանել բաժանված աշխատաթերթի անունները ՝ Նոր աշխատաթերթերի անվանում բաժնում, ընտրեք աշխատաթերթի անվանումների կանոնները Կանոններ բացվող ցուցակ, կարող եք ավելացնել Նախածանց or վերջածանց սավանի անունների համար նույնպես: 

4, Պարամետրերը նշելուց հետո կտտացրեք OK, և ընտրված տվյալները յուրաքանչյուր 5 տողերի բաժանվել են նոր աշխատանքային գրքի բազմաթիվ աշխատանքային թերթերի: Եվ վերնագրերը տեղադրվում են յուրաքանչյուր նոր աշխատանքային թերթի համար: Տեսեք,

ՆշումԱյս հատկությունը կիրառելու համար խնդրում ենք ներբեռնեք և տեղադրեք Kutools Excel-ի համար առաջին.

Related Articles:

  • Տվյալները բաժանեք սյունակի վրա հիմնված բազմաթիվ աշխատանքային թերթերի
  • Ենթադրենք, որ դուք ունեք տվյալների հսկայական շարքերով աշխատաթերթ, և այժմ, դուք պետք է տվյալները բաժանեք մի քանի աշխատաթերթերի՝ հիմնվելով Անուն սյունակի վրա (տես հետևյալ սքրինշոթը), և անունները մուտքագրվում են պատահականորեն: Գուցե դուք կարող եք սկզբում տեսակավորել դրանք, այնուհետև պատճենել և տեղադրել դրանք մեկ առ մեկ այլ նոր աշխատաթերթերում: Բայց սա ձեր համբերության կարիքն ունի՝ բազմիցս պատճենելու և տեղադրելու համար: Այսօր ես կխոսեմ այս խնդիրը լուծելու մի քանի արագ հնարքների մասին:
  • Միավորել կրկնօրինակ տողերը և Excel- ում ամփոփել արժեքները
  • Excel-ում սովորական սցենար է կրկնօրինակ գրառումներով տվյալների բազայի հետ հանդիպելը: Հաճախ դուք կարող եք գտնել մի շարք տվյալների, որտեղ հիմնական խնդիրն է արդյունավետ կերպով համատեղել այս կրկնօրինակ տողերը՝ միաժամանակ արժեքները համապատասխան սյունակում ամփոփելով, ինչպես ցույց է տրված հետևյալ սքրինշոթը: Այս համատեքստում մենք կխորանանք մի քանի գործնական մեթոդների մեջ, որոնք կարող են օգնել ձեզ համախմբել կրկնօրինակ տվյալները և համախմբել դրանց հարակից արժեքները՝ բարելավելով ձեր Excel-ի աշխատանքային գրքերի և՛ պարզությունը, և՛ օգտակարությունը:
  • Միավորել երկու կամ ավելի աղյուսակներ մեկի մեջ՝ հիմնվելով հիմնական սյունակների վրա
  • Ենթադրելով, որ աշխատանքային գրքում ունեք երեք աղյուսակ, այժմ դուք ցանկանում եք միաձուլել այս աղյուսակները համապատասխան աղյուսակի վրա հիմնված մեկ աղյուսակի մեջ ՝ արդյունքը ստանալու համար, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը: Սա գուցե մեզանից շատերի համար տհաճ խնդիր է, բայց խնդրում եմ մի անհանգստացեք, այս հոդվածում ես կներկայացնեմ այս խնդրի լուծման որոշ մեթոդներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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