Ինչպե՞ս ստեղծել Excel- ում յուրաքանչյուր տողի համար նոր թերթեր:
Ենթադրենք, որ դուք ունեք միավորների աղյուսակ՝ A սյունակում բոլոր ուսանողի անուններով: Այժմ դուք ցանկանում եք ստեղծել նոր թերթիկներ՝ հիմնվելով A սյունակի այս անունների վրա, և յուրաքանչյուր թերթիկը պարունակում է եզակի ուսանողի տվյալներ: Կամ պարզապես աղյուսակի յուրաքանչյուր տողի համար ստեղծեք նոր թերթ՝ առանց հաշվի առնելու Ա սյունակի անունները: Այս վեդիոյում դուք կստանաք դրան հասնելու մեթոդներ:
Յուրաքանչյուր շարքի համար ստեղծեք նոր թերթեր VBA կոդով
Յուրաքանչյուր շարքի համար ստեղծեք նոր թերթեր Excel- ի համար Kutools- ի Split Data օգտակար ծառայության միջոցով
Յուրաքանչյուր շարքի համար ստեղծեք նոր թերթեր VBA կոդով
Հետևյալ կոդերով դուք կարող եք ստեղծել նոր թերթ `հիմնվելով սյունակի արժեքների վրա, կամ պարզապես Excel- ում յուրաքանչյուր տողի համար պարզապես ստեղծել նոր թերթեր:
1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Եվ հետո տեղադրեք հետևյալ կոդը ՝ Մոդուլներ պատուհան.
VBA կոդ. Սյունակի հիման վրա յուրաքանչյուր շարքի համար ստեղծեք նոր թերթ
Sub parse_data()
'Update by Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 2 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End Sub
Նշում: A1: C1- ը ձեր սեղանի վերնագրի տիրույթն է: Կարող եք փոխել ՝ ելնելով ձեր կարիքներից:
3. Մամուլ F5 Կոդը գործարկելու բանալին, ապա ստեղծվում են նոր աշխատանքային թերթեր ընթացիկ աշխատանքային գրքի բոլոր աշխատանքային թերթերից հետո, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.
Եթե ցանկանում եք յուրաքանչյուր շարքի համար ուղղակիորեն ստեղծել նոր թերթեր ՝ առանց սյունակի արժեքը հաշվի առնելու, կարող եք օգտագործել հետևյալ ծածկագիրը:
VBA կոդ. Յուրաքանչյուր տողի համար ուղղակիորեն ստեղծեք նոր թերթ
Sub RowToSheet()
Dim xRow As Long
Dim I As Long
With ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
.Rows(I).Copy Sheets("Row " & I).Range("A1")
Next I
End With
End Sub
Կոդը գործարկելուց հետո յուրաքանչյուր աշխատանքային տողը ակտիվ աշխատաթերթում կտեղադրվի նոր աշխատանքային թերթում:
ՆշումՎերնագրի տողը նույնպես կտեղադրվի այս VBA կոդով նոր թերթի մեջ:
Յուրաքանչյուր շարքի համար ստեղծեք նոր թերթեր Excel- ի համար Kutools- ի Split Data օգտակար ծառայության միջոցով
Իրականում, վերոնշյալ մեթոդը բարդ է և դժվար է հասկանալ: Այս բաժնում մենք ձեզ ներկայացնում ենք Տրոհված տվյալներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ.
Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.
1. Ընտրեք աղյուսակը, որը դուք պետք է օգտագործեք նոր թերթեր ստեղծելու համար, և այնուհետև կտտացրեք Kutools Plus> Թքել տվյալները, Տեսեք,
2. Մեջ Տվյալները բաժանեք մի քանի աշխատանքային թերթերի երկխոսության տուփ, խնդրում ենք անել հետևյալ կերպ.
A. Սյունակի արժեքի հիման վրա նոր թերթեր ստեղծելու համար.
B. Յուրաքանչյուր շարքի համար նոր թերթեր ուղղակիորեն ստեղծելու համար.
ստեղծվում է նոր աշխատանքային գրքույկ, որի ներսում կան բոլոր նոր թերթերը: Տեսեք սքրինշոթերը ստորև:
Յուրաքանչյուր տողի համար սյունակի արժեքի հիման վրա նոր թերթերի ստեղծում.
Յուրաքանչյուր շարքի համար նոր թերթի ստեղծում ՝ առանց սյունակի արժեքը հաշվի առնելու.
Եթե ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:
Յուրաքանչյուր շարքի համար ստեղծեք նոր թերթեր Excel- ի համար Kutools- ի Split Data օգտակար ծառայության միջոցով
Գրասենյակի արտադրողականության լավագույն գործիքները
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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:





























