Բաց թողնել հիմնական բովանդակությունը

 Ինչպե՞ս պատճենել թերթը և ավտոմատ կերպով վերանվանել Excel- ում:

Excel- ում ինչպե՞ս կարող եք պատճենել աշխատանքային թերթը և այն ավտոմատ կերպով վերանվանել ՝ առանց սովորական անունը մուտքագրելու: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես մեկ անգամ կամ մի քանի անգամ պատճենել թերթիկը և միանգամից տալ նրանց հատուկ անուններ:

Մի քանի անգամ պատճենեք աշխատանքային թերթը և վերանվանեք դրանք ավելացնող ներդիրների անուններով ՝ օգտագործելով VBA կոդ

Պատճենեք աշխատանքային թերթը մի քանի անգամ և վերանվանեք դրանք հատուկ անուններով ՝ օգտագործելով Excel- ի համար նախատեսված Kutools


Եթե ​​Ձեզ անհրաժեշտ է բազմակի պատճենել աշխատանքային թերթը և տալ նրանց շարքերի անվանումներ, ինչպիսիք են KTE-1, KTE-2, KTE-3, KTE-4, հետևյալ VBA կոդը կարող է ձեզ լավություն դարձնել:

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

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

VBA կոդ. Մի քանի անգամ պատճենեք աշխատանքային թերթը և միանգամից վերանվանեք.

Sub Create()
'Updateby Extendoffice
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հուշման տուփը ձեզ կհիշեցնի ընթացիկ աշխատանքային թերթի քանի օրինակ, որոնք ցանկանում եք պատճենել, տես նկարի նկարը.

փաստաթուղթը վերանվանել պատճենված թերթերը 1

4, Մուտքագրեք պատճենների քանակը դուրս եկած երկխոսության մեջ և սեղմեք OK կոճակը, ձեր ընթացիկ աշխատաթերթը կրկնօրինակվել է 5 օրինակից և վերանվանվել է հաջորդականության անունով, ինչպես ցույց է տրված հետևյալ նկարը.

փաստաթուղթը վերանվանել պատճենված թերթերը 2

ՆշումՎերոնշյալ ծածկագրում կարող եք փոխել աշխատաթերթի անվան տեքստըKTE-”Ձեր անհրաժեշտին:


Գուցե վերոհիշյալ VBA կոդերը դժվար է կիրառել ձեզ համար, այստեղ ես կներկայացնեմ հեշտ գործիք- Excel- ի համար նախատեսված գործիքներԻր Ստեղծեք հաջորդականության աշխատանքային թերթեր օգտակարություն, դուք կարող եք հասնել այս առաջադրանքին ՝ առանց ջանք գործադրելու:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

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

1: Սեղմեք Kutools Plus > Աշխատանքային թերթիկ > Ստեղծեք հաջորդականության աշխատանքային թերթեր, տես նկարի նկարը.

2, Մեջ Ստեղծեք հաջորդականության աշխատանքային թերթեր երկխոսության տուփ:

(1.) Ընտրեք աշխատաթերթի անունը, որը ցանկանում եք պատճենել այնտեղից Բազային թերթիկ բացվող ցուցակ;

(2.) Դրանից հետո նշեք այն թերթի թիվը, որի տակ ցանկանում եք պատճենել Ստեղծելու քանակը տեքստային տուփ;

(3.) Եվ հետո ստուգեք Հաջորդականության համարներ տակ Թերթի անունները հիմնված են Բաժին;

(4.) Վերջապես, ստեղծեք հաջորդականության թերթիկի անունները ձեր ցանկալի աջ պատուհանում, տես նկարի նկարը.

փաստաթուղթը վերանվանել պատճենված թերթերը 4

3. Պարամետրերն ավարտելուց հետո սեղմեք Ok կոճակը, և հատուկ աշխատանքային թերթը բազմիցս պատճենվել է և վերանվանվել ՝ հիմնվելով ձեր ստեղծած հաջորդականության վրա ՝ նոր աշխատանքային գրքում, տե՛ս նկարը.

փաստաթուղթը վերանվանել պատճենված թերթերը 5

Կտտացրեք անվճար ներբեռնման համար Kutools- ի համար Excel- ը հիմա:


Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible that you add in this code an option to also copy specific cells. For example: I have in one cell Number 1 and I would like that when I duplicate Sheet will change for +1. Thanks
This comment was minimized by the moderator on the site
Wow this saved a lot of time for me! Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations