Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Ինչպես բաժանել տվյալների բազմակի աշխատաթերթեր Excel- ում տողերի հաշվարկով:

Օրինակ, ես ունեմ մի շարք տվյալների ցանկ, հիմա ուզում եմ բաժանել մի քանի աշխատաթերթեր, տողերի հաշվարկով, այս օրինակում, կտեսնեմ այն ​​յուրաքանչյուր 5 շարքով (տես հետեւյալ սցենարները): Հնարավոր է արդյոք արագ լուծել այս խնդիրը: Այստեղ ես կներկայացնեմ երկու հնարքներ `հեշտությամբ ստանալու համար:


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- ը

Առանձին տվյալների բազմապատկերի մեջ բաժանեք տողերով, VBA կոդի հետ

Առանձին տվյալները բազմապատկել են շարքերում `Excel- ի համար Kutools- ով


arrow կապույտ աջ փուչիկ Առանձին տվյալների բազմապատկերի մեջ բաժանեք տողերով, VBA կոդի հետ


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

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

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

VBA: Split տվյալները աղյուսակների միջոցով շարքերում հաշվել Excel- ում:

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. Այնուհետեւ սեղմեք F5 բանալին գործարկել կոդը, եւ երկխոսությունը դուրս է գալիս մի շարք ընտրելու համար, ապա կտտացրեք OK, եւ մեկ այլ երկխոսություն, որում նշեք տողերի հաշվարկը: Տեսեք,

4. Սեղմել OK, եւ շարքը բաժանվում է բազմակի թերթերի շարքերում:

Նշում: Պառակտված աշխատաթերթերը տեղադրված են վարպետի աշխատանքային էջի ետեւում:


arrow կապույտ աջ փուչիկ Առանձին տվյալները բազմապատկել են շարքերում `Excel- ի համար Kutools- ով

Վերոհիշյալ կոդը կարող է միայն տվյալներ բաժանել նշված տողերի հաշվարկով, եւ այն չի ավելացնի յուրաքանչյուր աշխատաթերթի անվանումը, եթե ձեր տվյալները ունեն վերնագիր:

Սակայն Excel- ի համար Excel- ում'S Սպլիտ տվյալներ, դուք ոչ միայն կարող եք տեղադրեք վերնագրերը յուրաքանչյուր աշխատանքային էջի համար, այլեւ կարող է սահմանել նոր պառակտված աշխատաթերթերի անունները:

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

Եթե ​​դուք տեղադրեցիք Kutools Excel- ի համար, խնդրում ենք կատարել հետեւյալը.

1. Ընտրեք այն տվյալների շարքը, որը ցանկանում եք բաժանվել:

2: Սեղմեք ձեռնարկություն > Worksheet գործիքներ > Սպլիտ տվյալներ (Կամ ձեռնարկություն > Սպլիտ տվյալներ ), տեսեք,

doc-split-data-by-rows6- ը

3, Մեջ Տարածել տվյալներ բազմապատիկ գործադիրներում երկխոսության տուփ:

  • ընտրել Հաստատված տողեր - ից Սպլիտ հիման վրա տարբերակը եւ մուտքագրեք տողերի քանակը, որոնք ցանկանում եք բաժանել յուրաքանչյուր աշխատանքային թերթիկի համար: (Եթե ձեր տվյալները գոյություն ունեն վերնագրերը եւ ցանկանում եք դրանք տեղավորել յուրաքանչյուր նոր պառակտված աշխատանքային թերթի մեջ, խնդրում ենք ստուգել Իմ տվյալները ունի վերնագրեր տարբերակ):
  • Այնուհետեւ դուք կարող եք նշել split worksheet անունները, տակ Նոր աշխատաթերթերի անունը բաժնում ընտրեք աշխատաթերթի անունների կանոնները Կանոններ թողնել ցանկը, կարող եք ավելացնել Նախածանց or վերջածանց ինչպես նաեւ թերթիկների անունները: Տեսեք,

doc-split-data-by-rows7- ը

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

doc-split-data-by-rows8- ը

Սեղմեք այս Split Data առանձնահատկության մասին ավելին իմանալու համար:

Առնչվող հոդված:

Ինչպես բաժանել տվյալների բազմակի աշխատաթերթերը Excel- ում սյունակում հիմնված:



Առաջարկված արտադրողականության գործիքներ

Գրասենյակի էջանշանը

ոսկի star1 Հասանելի էջանիշեր բերեք Excel- ում եւ Office- ի այլ ծրագրերում, ինչպես Chrome- ի, Firefox- ի եւ նոր Internet Explorer- ի:

Excel- ի համար Excel- ում

ոսկի star1 Զարմանալի է: Բարձրացրեք ձեր արտադրողականությունը 5 րոպեում: Անհրաժեշտ է հատուկ հմտություններ, օրական երկու ժամ տեւողությամբ:

ոսկի star1 300- ի նոր առանձնահատկությունները Excel- ում, կատարել Excel շատ հեշտ եւ հզոր:

  • Միավորել բջիջը / շարքերը / սյունակները առանց կորցնելու տվյալների:
  • Միավորել եւ միավորել բազմակի թերթիկները եւ աշխատանքային տետրերը:
  • Համեմատեք միջակայքերը, պատճենեք բազմակի ընդգրկույթներ, փոխեք տեքստային ամսաթիվը, միավորը եւ արտարժույթի փոխակերպումը:
  • Count by Colors, Paging Subtotals, Ընդլայնված Sort եւ Super Filter,
  • Լրացուցիչ Ընտրել / Ներդիր / Ջնջել / Տեքստային / Ֆորմատ / ՈՒղեցույց / Մեկնաբանություն / Աշխատանքային տետրեր / Գործիքներ գործիքներ ...

Excel ստեղնաշարի կրկնօրինակը Excel- ում

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?