Ինչպե՞ս ստեղծել Excel- ում յուրաքանչյուր տողի համար նոր թերթեր:
Ենթադրենք, որ դուք ունեք միավորների աղյուսակ՝ A սյունակում բոլոր ուսանողի անուններով: Այժմ դուք ցանկանում եք ստեղծել նոր թերթիկներ՝ հիմնվելով A սյունակի այս անունների վրա, և յուրաքանչյուր թերթիկը պարունակում է եզակի ուսանողի տվյալներ: Կամ պարզապես աղյուսակի յուրաքանչյուր տողի համար ստեղծեք նոր թերթ՝ առանց հաշվի առնելու Ա սյունակի անունները: Այս վեդիոյում դուք կստանաք դրան հասնելու մեթոդներ:
Յուրաքանչյուր շարքի համար ստեղծեք նոր թերթեր VBA կոդով
Ստեղծեք նոր թերթեր յուրաքանչյուր տողի համար Split Data-ի օգտակար օգնությամբ Kutools for Excel
Յուրաքանչյուր շարքի համար ստեղծեք նոր թերթեր 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 կոդով նոր թերթի մեջ:
Ստեղծեք նոր թերթեր յուրաքանչյուր տողի համար Split Data-ի օգտակար օգնությամբ Kutools for Excel
Իրականում, վերոնշյալ մեթոդը բարդ է և դժվար է հասկանալ: Այս բաժնում մենք ձեզ ներկայացնում ենք Տրոհված տվյալներ օգտակարությունը Kutools for Excel.
Նախքան դիմելը Kutools for Excel, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.
1. Ընտրեք աղյուսակը, որը դուք պետք է օգտագործեք նոր թերթեր ստեղծելու համար, և այնուհետև կտտացրեք Kutools Plus> Թքել տվյալները, Տեսեք,
2. Մեջ Տվյալները բաժանեք մի քանի աշխատանքային թերթերի երկխոսության տուփ, խնդրում ենք անել հետևյալ կերպ.
A. Սյունակի արժեքի հիման վրա նոր թերթեր ստեղծելու համար.
B. Յուրաքանչյուր շարքի համար նոր թերթեր ուղղակիորեն ստեղծելու համար.
ստեղծվում է նոր աշխատանքային գրքույկ, որի ներսում կան բոլոր նոր թերթերը: Տեսեք սքրինշոթերը ստորև:
Յուրաքանչյուր տողի համար սյունակի արժեքի հիման վրա նոր թերթերի ստեղծում.
Յուրաքանչյուր շարքի համար նոր թերթի ստեղծում ՝ առանց սյունակի արժեքը հաշվի առնելու.
Եթե ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:
Ստեղծեք նոր թերթեր յուրաքանչյուր տողի համար Split Data-ի օգտակար օգնությամբ Kutools for Excel
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
