Ինչպե՞ս պատճենել և տեղադրել տողը մի քանի անգամ կամ կրկնօրինակել տողը 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 կոճակը, և ընտրված տողի տակ տեղադրվել են երեք նոր պատճենված տողեր, տես սքրինշոթը.
Հեշտությամբ պատճենեք և տեղադրեք յուրաքանչյուր տող՝ հիմնվելով որոշակի թվի վրա
Սովորաբար, տողերը բազմապատկելու և տեղադրելու լավ մեթոդ գոյություն չունի, բացառությամբ ձեռքով պատճենման և ներդիրի հետ գործ ունենալու համար: Բայց, հետ Excel- ի համար նախատեսված գործիքներ's Կրկնօրինակեք տողերը / սյունները ՝ հիմնված բջջային արժեքի վրա առանձնահատկություն, դուք կարող եք հեշտությամբ լուծել այս խնդիրը: Կտտացրեք Excel- ի համար Kutools ներբեռնելու համար:
Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 60 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:
Պատճենեք և տեղադրեք յուրաքանչյուր տող մի քանի անգամ 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 Sub3, Եվ հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, և հուշման տուփ է հայտնվում՝ հիշեցնելու համար, որ մուտքագրեք յուրաքանչյուր գրառումի համար կրկնվող անգամների քանակը, տես սքրինշոթը՝
4. Այնուհետեւ կտտացրեք OK, և յուրաքանչյուր տող պատճենվել և տեղադրվել է 3 անգամ ակտիվների տակ, տես սքրինշոթը.
|
|
|
ՆշումՎերոնշյալ ծածկագրում, A ցույց է տալիս, որ տվյալների տիրույթը սկսվում է A սյունակից, եթե ձեր տվյալները սկսվում են սյունակից Kխնդրում եմ փոխեք A դեպի K որպես ձեր կարիքը:
Պատճենեք և տեղադրեք յուրաքանչյուր տող մի քանի անգամ՝ հիմնվելով հատուկ թվի վրա՝ հիանալի հատկանիշով
Հնարավոր է, դուք ծանոթ չեք VBA կոդի հետ, կամ անհանգստացեք, որ կոդը կխափանի ձեր տվյալները: Այստեղ ես կներկայացնեմ մի օգտակար հատկություն. Excel- ի համար նախատեսված գործիքներ's Կրկնօրինակեք տողերը / սյունակները ՝ հիմնված բջիջների արժեքի վրա, այս օգտակար ծրագրի միջոցով կարող եք արագ պատճենել և տեղադրել տողերը՝ հիմնվելով ձեր նշած թվի վրա:
Հուշում.Սա կիրառելու համար Կրկնօրինակեք տողերը / սյունակները ՝ հիմնված բջիջների արժեքի վրա հատկությունը, նախ, դուք պետք է ներբեռնեք այն Excel- ի համար նախատեսված գործիքներ, ապա գործառույթը կիրառեք արագ և հեշտությամբ:
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ
1. Մուտքագրեք կրկնվող թվերը, որոնք ցանկանում եք կրկնօրինակել տողերը ձեր տվյալների կողքին գտնվող բջիջների ցանկում, տես սքրինշոթը.
2: Սեղմեք Կուտոլս > Տեղադրել > Կրկնօրինակեք տողերը / սյունակները ՝ հիմնված բջիջների արժեքի վրա, տես նկարի նկարը.
3, Մեջ Պատճենեք և տեղադրեք տողերն ու սյունակները երկխոսության տուփ, ընտրեք Պատճենել և տեղադրել տողերը տարբերակը Տիպ բաժինը, այնուհետև ընտրեք տվյալների տիրույթը, որը ցանկանում եք կրկնօրինակել, այնուհետև նշեք տողերը կրկնօրինակելու կրկնության ժամանակը, տես սքրինշոթը.
4, Դրանից հետո կտտացրեք Ok or Դիմել կոճակը, դուք կստանաք հետևյալ արդյունքը ՝ ըստ ձեզ:
|
|
 |
Կտտացրեք Excel- ի և անվճար փորձաշրջանի համար Kutools- ը ներբեռնելու համար:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
