Ինչպե՞ս Excel- ում մեծ սեղանը բաժանել բազմաթիվ փոքր սեղանների:

Եթե ​​ունեք մեծ աշխատանքային թերթ, որը պարունակում է բազմաթիվ սյունակներ և հարյուրավոր կամ հազարավոր տողերի տվյալներ, ապա այժմ ցանկանում եք բաժանել այս մեծ աղյուսակը բազմաթիվ փոքր աղյուսակների ՝ հիմնվելով սյունակի արժեքի կամ տողերի քանակի վրա ՝ հետևյալ արդյունքները ստանալու համար: Ինչպե՞ս կարող եք գործ ունենալ Excel- ում այս խնդրի հետ:

Հիմնական սեղան		Աղյուսակը բաժանեք բազմաթիվ աղյուսակների ՝ ըստ սյունակի արժեքի	Աղյուսակը բաժանեք բազմակի սեղանների ՝ ըստ տողերի հաշվարկի

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

Մի մեծ սեղան բաժանեք բազմակի սեղանների, որոնք հիմնված են VBA կոդով տողերի որոշակի քանակի վրա

Մի մեծ սեղան բաժանեք բազմաթիվ աղյուսակների ՝ հիմնվելով սյունակի արժեքի կամ զարմանալի հատկությամբ շարքերի քանակի վրա

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

Այս մեծ աղյուսակը որոշակի սյունակի վրա հիմնված բազմաթիվ աղյուսակների բաժանելու համար հետևյալ VBA կոդը կարող է ձեզ լավություն բերել: Խնդրում եմ, արեք այսպես.

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

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

VBA կոդ. Մեծ աղյուսակը բաժանել բազմակի սեղանների ըստ հիմնական սյունակի.

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, Կոդը տեղադրելուց հետո սեղմեք F5 Այս կոդն աշխատեցնելու բանալին, և հուշման տուփ է դուրս գալիս, խնդրում ենք ձեր տվյալներից ընտրեք վերնագրի տողը, տե՛ս նկարը

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

5: Սեղմեք OK, այս մեծ աղյուսակը բաժանվել է բազմաթիվ աշխատանքային թերթերի ՝ ըստ սյունակի արժեքի, որոնք տեղակայված են հիմնական թերթից հետո: Եվ նոր աշխատանքային թերթերն անվանում են սյունակի արժեքով: Տեսեք,

Մի մեծ սեղան բաժանեք բազմակի սեղանների, որոնք հիմնված են VBA կոդով տողերի որոշակի քանակի վրա

Եթե ​​Ձեզ անհրաժեշտ է սեղանը բաժանել բազմաթիվ աղյուսակների ՝ ելնելով շարքերի քանակից, հետևյալ VBA կոդը կարող է օգնել ձեզ:

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

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

VBA կոդ. Մի մեծ սեղան բաժանեք բազմակի սեղանների ՝ ըստ շարքերի քանակի.

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 կոճակը, վարպետության աղյուսակը բաժանվել է բազմաթիվ աշխատանքային թերթերի ՝ հիմնվելով տողերի քանակի վրա, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.

Մի մեծ սեղան բաժանեք բազմաթիվ աղյուսակների ՝ հիմնվելով սյունակի արժեքի կամ զարմանալի հատկությամբ շարքերի քանակի վրա

Գուցե վերը նշված կոդերը դժվար են օգտվողների մեծամասնության համար, այստեղ ես կներկայացնեմ զարմանալի հատկություն-Տրոհված տվյալներ of Excel- ի համար նախատեսված գործիքներ, Այս օգտակար ծառայության միջոցով դուք կարող եք արագ և հեշտությամբ բաժանել մի մեծ սեղան բազմաթիվ սեղանների `առանցքային սյունակի կամ շարքերի քանակի:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

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

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

(1.) Ընտրեք Հատուկ սյունակ or Ֆիքսված շարքեր - ից Պառակտում ՝ հիմնված բաժին, որքան անհրաժեշտ է;

(2.) Նշեք նոր աշխատաթերթերի անունը ՝ Կանոններ բացվող ցուցակ, կարող եք ավելացնել Նախածանց or վերջածանց թերթի անուններին նույնպես:

3, Դրանից հետո կտտացրեք Ok կոճակը, և այժմ մեծ սեղանը բաժանվել է բազմաթիվ աշխատանքային սեղանների նոր աշխատանքային գրքում: Տեսեք սքրինշոթեր.

Աղյուսակը բաժանեք բազմաթիվ աղյուսակների ՝ ըստ սյունակի արժեքի	Աղյուսակը բաժանեք բազմակի սեղանների ՝ ըստ տողերի հաշվարկի

Կտտացրեք Excel- ի և անվճար փորձաշրջանի համար Kutools- ը ներբեռնելու համար:

Ավելի հարաբերական հոդվածներ.

---

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...

Կարդալ ավելին... Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում... Գնեք ... 

---

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

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

Կարդալ ավելին... Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում... Գնեք ...