Ինչպե՞ս պատճենել և տեղադրել տողը մի քանի անգամ կամ կրկնօրինակել տողը x անգամ Excel- ում:

Ձեր ամենօրյա աշխատանքում երբևէ փորձե՞լ եք պատճենել տող կամ յուրաքանչյուր տող, այնուհետև մի քանի անգամ տեղադրել ընթացիկ տվյալների շարքում ներքևում աշխատաթերթում: Օրինակ, ես ունեմ մի շարք բջիջներ, այժմ ուզում եմ պատճենել յուրաքանչյուր տող և դրանք 3 անգամ կպցնել հաջորդ շարքում, ինչպես ցույց է տրված հետևյալ նկարը: Ինչպե՞ս կարող էիք գործ ունենալ Excel- ում:

• Պատճենեք և տեղադրեք հատուկ տող մի քանի անգամ VBA կոդով
• Պատճենեք և տեղադրեք յուրաքանչյուր տող մի քանի անգամ VBA կոդով
• Պատճենեք և տեղադրեք յուրաքանչյուր շարքը բազմակի անգամ ՝ հիմնվելով որոշակի համարի վրա ՝ զարմանալի հատկությամբ

Պատճենեք և տեղադրեք հատուկ տող մի քանի անգամ VBA կոդով

Եթե ​​ցանկանում եք կրկնօրինակել միայն մեկ հատուկ տող x անգամ, հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

1, Նշեք մի տող, որը ցանկանում եք պատճենել և տեղադրել բազմաթիվ անգամներ, ապա պահել այն ALT + F11 ստեղները, ապա այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

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

VBA կոդ. Կրկնօրինակեք մեկ հատուկ տող մի քանի անգամ.

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3, Կոդի տեղադրումից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հուշվում է տուփը, որը կհիշեցնի ձեզ մուտքագրել քանի անգամ եք ցանկանում կրկնօրինակել, տես նկարի նկարը.

4. Այնուհետեւ կտտացրեք OK կոճակը, և երեք նոր պատճենված շարքեր են տեղադրվել ընտրված շարքի տակ, տես նկարի նկարը.

Պատճենեք և տեղադրեք յուրաքանչյուր տող մի քանի անգամ VBA կոդով

Յուրաքանչյուր տող բազմակի բազմապատկելու համար մի տիրույթում կարող եք կիրառել հետևյալ VBA կոդը, արեք հետևյալը.

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

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

VBA կոդ. Կրկնօրինակեք յուրաքանչյուր շարքը բազմիցս.

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3, Եվ հետո սեղմեք F5 Այս ծածկագիրը գործարկելու համար ստեղն է, և դուրս է գալիս հուշման տուփ ՝ հիշեցնելու համար, որ մուտքագրեք այն անգամների քանակը, որոնք ցանկանում եք կրկնօրինակել յուրաքանչյուր գրառման համար, տես նկարի նկարը.

4. Այնուհետեւ կտտացրեք OK, և յուրաքանչյուր տող պատճենվել և տեղադրվել է ակտիվներից 3 անգամ ներքևում, տես նկարի նկարը.

Պատճենեք և տեղադրեք յուրաքանչյուր շարքը բազմակի անգամ ՝ հիմնվելով որոշակի համարի վրա ՝ զարմանալի հատկությամբ

Միգուցե դուք ծանոթ չեք VBA կոդին, կամ անհանգստանում եք, որ ծածկագիրը կկոտրի ձեր տվյալները: Այստեղ ես կներկայացնեմ մի օգտակար հատկություն, Excel- ի համար նախատեսված գործիքներ's Կրկնօրինակեք տողերը / սյունակները ՝ հիմնված բջիջների արժեքի վրա, այս օգտակար ծառայության միջոցով դուք կարող եք արագ պատճենել և տեղադրել տողերը ՝ ելնելով ձեր նշած համարից:

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

1, Մուտքագրեք այն համարները, որոնք ցանկանում եք կրկնօրինակել տողերը, ձեր տվյալների կողքին գտնվող բջիջների ցուցակում: Տեսեք,

2: Սեղմեք Կուտոլս > Տեղադրել > Կրկնօրինակեք տողերը / սյունակները ՝ հիմնված բջիջների արժեքի վրա, տես նկարի նկարը.

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

4, Դրանից հետո կտտացրեք Ok or Դիմել կոճակը, դուք կստանաք հետևյալ արդյունքը ՝ ըստ ձեզ:

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

---

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

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

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