Ինչպե՞ս ստեղծել 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- ի համար նախատեսված գործիքներ.

1. Ընտրեք աղյուսակը, որը դուք պետք է օգտագործեք նոր թերթեր ստեղծելու համար, և այնուհետև կտտացրեք Kutools Plus> Թքել տվյալները, Տեսեք,

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

A. Սյունակի արժեքի հիման վրա նոր թերթեր ստեղծելու համար.

B. Յուրաքանչյուր շարքի համար նոր թերթեր ուղղակիորեն ստեղծելու համար.

ստեղծվում է նոր աշխատանքային գրքույկ, որի ներսում կան բոլոր նոր թերթերը: Տեսեք սքրինշոթերը ստորև:

Յուրաքանչյուր տողի համար սյունակի արժեքի հիման վրա նոր թերթերի ստեղծում.

Յուրաքանչյուր շարքի համար նոր թերթի ստեղծում ՝ առանց սյունակի արժեքը հաշվի առնելու.

Յուրաքանչյուր շարքի համար ստեղծեք նոր թերթեր 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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

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