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

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

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

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

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

Եթե ​​ցանկանում եք արագ և ինքնաբերաբար բաժանել սյունակի արժեքի վրա հիմնված տվյալները, հետևյալ VBA կոդը լավ ընտրություն է: Խնդրում եմ, արեք այսպես.

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

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

Sub Splitdatabycol()
'updateby 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
Dim xWS 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
Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count))
xWS.Name = myarr(i) & ""
Else
xWS.Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
xWS.Paste Destination:=xWS.Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.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, և ակտիվ աշխատաթերթի բոլոր տվյալները սյունակի արժեքով բաժանվում են բազմաթիվ աշխատանքային թերթերի: Եվ պառակտված աշխատանքային թերթերն անվանում են պառակտված բջիջների անուններ: Տեսեք,

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

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

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

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

2: Սեղմեք Kutools Plus > Աշխատանքային թերթիկ > Տրոհված տվյալներ, տես նկարի նկարը.

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

1) Ընտրեք Հատուկ սյունակ տարբերակը Պառակտում ՝ հիմնված բաժինը և ընտրեք սյունակի արժեքը, որի վրա ցանկանում եք բաժանել տվյալները `հիմնվելով բացվող ցուցակում: (Եթե ձեր տվյալներն ունեն վերնագրեր, և ցանկանում եք դրանք տեղադրել յուրաքանչյուր նոր բաժանված աշխատանքային թերթում, խնդրում ենք ստուգել Իմ տվյալներն ունեն վերնագրեր տարբերակ):

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

3) Սեղմիր OK կոճակ Տեսեք,

4, Այժմ տվյալները բաժանվում են բազմաթիվ աշխատանքային թերթերի նոր աշխատանքային գրքում:

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

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

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

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

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

---

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

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...