Տվյալները բաժանեք մի քանի աշխատաթերթերի՝ 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- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1. Ընտրեք տվյալների շրջանակը, որը ցանկանում եք բաժանել: Այնուհետև սեղմեք Kutools Plus > Տրոհված տվյալներ, տես նկարի նկարը.
3, Մեջ Տվյալները բաժանեք մի քանի աշխատանքային թերթերի երկխոսության տուփ:
- ընտրել Ֆիքսված շարքեր - ից Պառակտում ՝ հիմնված տարբերակը և մուտքագրեք տողերի քանակը, որոնք ցանկանում եք բաժանել յուրաքանչյուր աշխատաթերթի համար:
- Եթե ձեր տվյալները վերնագրեր ունեն, և դուք ցանկանում եք դրանք տեղադրել յուրաքանչյուր նոր բաժանված աշխատաթերթում, խնդրում ենք ստուգել Իմ տվյալներն ունեն վերնագրեր տարբերակ. (ԱկնարկԴուք կարող եք մուտքագրել հովիվների տողերի քանակը ձեր տվյալների հիման վրա:)
- Դրանից հետո կարող եք բաժանել բաժանված աշխատաթերթի անունները ՝ Նոր աշխատաթերթերի անվանում բաժնում, ընտրեք աշխատաթերթի անվանումների կանոնները Կանոններ բացվող ցուցակ, կարող եք ավելացնել Նախածանց or վերջածանց սավանի անունների համար նույնպես:
4, Պարամետրերը նշելուց հետո կտտացրեք OK, և ընտրված տվյալները յուրաքանչյուր 5 տողերի բաժանվել են նոր աշխատանքային գրքի բազմաթիվ աշխատանքային թերթերի: Եվ վերնագրերը տեղադրվում են յուրաքանչյուր նոր աշխատանքային թերթի համար: Տեսեք,
Related Articles:
- Տվյալները բաժանեք սյունակի վրա հիմնված բազմաթիվ աշխատանքային թերթերի
- Ենթադրենք, որ դուք ունեք տվյալների հսկայական շարքերով աշխատաթերթ, և այժմ, դուք պետք է տվյալները բաժանեք մի քանի աշխատաթերթերի՝ հիմնվելով Անուն սյունակի վրա (տես հետևյալ սքրինշոթը), և անունները մուտքագրվում են պատահականորեն: Գուցե դուք կարող եք սկզբում տեսակավորել դրանք, այնուհետև պատճենել և տեղադրել դրանք մեկ առ մեկ այլ նոր աշխատաթերթերում: Բայց սա ձեր համբերության կարիքն ունի՝ բազմիցս պատճենելու և տեղադրելու համար: Այսօր ես կխոսեմ այս խնդիրը լուծելու մի քանի արագ հնարքների մասին:
- Միավորել կրկնօրինակ տողերը և Excel- ում ամփոփել արժեքները
- Excel-ում սովորական սցենար է կրկնօրինակ գրառումներով տվյալների բազայի հետ հանդիպելը: Հաճախ դուք կարող եք գտնել մի շարք տվյալների, որտեղ հիմնական խնդիրն է արդյունավետ կերպով համատեղել այս կրկնօրինակ տողերը՝ միաժամանակ արժեքները համապատասխան սյունակում ամփոփելով, ինչպես ցույց է տրված հետևյալ սքրինշոթը: Այս համատեքստում մենք կխորանանք մի քանի գործնական մեթոդների մեջ, որոնք կարող են օգնել ձեզ համախմբել կրկնօրինակ տվյալները և համախմբել դրանց հարակից արժեքները՝ բարելավելով ձեր Excel-ի աշխատանքային գրքերի և՛ պարզությունը, և՛ օգտակարությունը:
- Միավորել երկու կամ ավելի աղյուսակներ մեկի մեջ՝ հիմնվելով հիմնական սյունակների վրա
- Ենթադրելով, որ աշխատանքային գրքում ունեք երեք աղյուսակ, այժմ դուք ցանկանում եք միաձուլել այս աղյուսակները համապատասխան աղյուսակի վրա հիմնված մեկ աղյուսակի մեջ ՝ արդյունքը ստանալու համար, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը: Սա գուցե մեզանից շատերի համար տհաճ խնդիր է, բայց խնդրում եմ մի անհանգստացեք, այս հոդվածում ես կներկայացնեմ այս խնդրի լուծման որոշ մեթոդներ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: