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

Ինչպե՞ս մի քանի անգամ պատճենել բազմաթիվ թերթեր Excel- ում:

Երբեմն կարող է անհրաժեշտ լինել, որ աշխատանքային գրքում պատրաստենք պատճեն կամ նշված աշխատաթերթերի բազմակի պատճեններ: Ահա մի քանի արագ եղանակներ, որոնք կօգնեն ձեզ Excel- ում մի քանի անգամ հեշտությամբ պատճենել մեկ աշխատանքային թերթ կամ բազմաթիվ աշխատաթերթեր:


Տեղափոխել կամ Պատճենել հրամանի միջոցով մի քանի անգամ կատարեք մի քանի աշխատանքային թերթերի մեկ օրինակ ակտիվ աշխատանքային գրքում կամ մեկ այլ աշխատանքային գրքում

Հետ Տեղափոխեք կամ պատճենեք հրամանը Excel- ում, միաժամանակ կարող եք կատարել աշխատանքային թերթի մեկ օրինակ, բազմաթիվ հատուկ աշխատանքային թերթեր կամ բոլոր աշխատանքային թերթերը ակտիվ աշխատանքային գրքի կամ այլ աշխատանքային գրքի:

1, Որոշակի աշխատանքային գրքում, որտեղ դուք կպատճենեք աշխատանքային թերթերը, ընտրեք մի քանի աշխատանքային թերթ թերթիկի ներդիրի տողում:
ՆշումՀոլդինգ Ctrl ստեղնը, դուք կարող եք ընտրել բազմաթիվ ոչ հարակից թերթիկների ներդիրներ ՝ դրանք մեկ առ մեկ կտտացնելով Թերթի ներդիրի բարում; անցկացնելը Պահե q Shift ստեղնը, դուք կարող եք ընտրել բազմաթիվ հարակից թերթիկների ներդիրներ ՝ կտտացնելով առաջին թերթիկի ներդիրին և վերջինին ՝ Թերթի ներդիրի տողի վրա:

2, Աջ կտտացրեք ընտրված թերթիկի ներդիրին Թերթի ներդիրի տողի վրա և ընտրեք Տեղափոխեք կամ պատճենեք համատեքստային ընտրացանկից: Տեսեք,
փաստաթուղթ պատճենել բազմաթիվ թերթեր 01

3, Մեջ Տեղափոխեք կամ պատճենեք երկխոսության տուփ, խնդրում ենք նշել հետևյալ կարգավորումները.
(1) Խնդրում ենք նշեք նպատակակետի աշխատանքային գիրքը, որը դուք պատճենելու եք աշխատանքային թերթերը Պատվիրել բացվող ցուցակ: Անհրաժեշտության դեպքում կարող եք ընտրել ակտիվ աշխատանքային գիրք, մեկ այլ բաց աշխատանքային գրքույկ կամ նոր աշխատանքային տետր:
(2) Նշեք պատճենված թերթերի դիրքը Թերթի ներդիրի գծի վրա, դուք կարող եք ընտրել առկա բոլոր թերթերից հետո:
(3) Ստուգեք Ստեղծեք կրկնօրինակ տարբերակը, եթե չեք ստուգում այս տարբերակը, ընտրված աշխատանքային թերթերը կտեղափոխվեն նպատակակետի աշխատանքային գրքույկ:
(4) Կտտացրեք այն կոճակին OK կոճակը:

Այժմ այն ​​կդարձնի միայն մեկ օրինակ ընտրված աշխատաթերթերը նշված աշխատանքային գրքում: Այս աշխատաթերթերի բազմակի պատճեններ ստեղծելու համար կարող եք բազմիցս կրկնել գործողությունը:

Միայն մի քանի կտտոց `ակտիվ աշխատանքային գրքում բազմաթիվ աշխատաթերթերի բազմակի պատճեններ կատարելու համար

Ընդհանուր առմամբ, մենք կարող ենք պատճենել բազմաթիվ աշխատանքային թերթեր հետ Տեղափոխեք կամ պատճենեք առանձնահատկություն Excel- ում: Այնուամենայնիվ, այս հատկությունը կարող է միաժամանակ կատարել միայն մեկ օրինակ: Այստեղ, Excel- ի համար Kutools- ի հետ Պատճենել թերթերը օգտակար, դուք կարող եք հեշտությամբ կատարել բազմաթիվ աշխատաթերթերի այնքան պատճեն, որքան ձեզ հարկավոր է ակտիվ աշխատանքային գրքում ՝ միայն մի քանի կտտոցով:


գովազդը պատճենում է բազմաթիվ աշխատաթերթեր 01

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now

Կատարեք մեկ նշված աշխատանքային թերթի բազմաթիվ օրինակներ VBA կոդով ակտիվ աշխատանքային գրքում

Եթե ​​ցանկանում եք կատարել նշված աշխատաթերթի 10 օրինակ, ապա Տեղափոխեք կամ պատճենեք հրամանը կլինի ժամանակատար միջոց, և դուք պետք է բազմիցս կրկնեք գործողությունը: Բայց հետևյալ VBA կոդով դուք կարող եք արագ պատճենել աշխատանքային թերթը միանգամից 10 անգամ:

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

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

VBA. Կազմեք որոշակի աշխատանքային թերթերի բազմաթիվ օրինակներ ակտիվ աշխատանքային գրքում

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

ՆշումՎերոհիշյալ ծածկագրում փոխարինեք »Sheet1«պատճենվող թերթիկի անվան հետ:

3, Դրանից հետո սեղմեք F5 Կոդը գործարկելու համար բանալին հայտնվում է հուշման տուփ, որը հարցնում է ձեզ համար ցանկալի թերթերի պատճենները:

4. Այնուհետեւ կտտացրեք OK, նշված աշխատանքային թերթը պատճենվել է 100 անգամ ակտիվ աշխատանքային գրքում:


Excel- ի համար Kutools- ի հետ մի քանի աշխատանքային թերթերի բազմակի պատճենեք ակտիվ աշխատանքային գրքում

Չնայած Excel- ում բազմակի աշխատաթերթերի պատճեն պատրաստելը պարզ է, եթե ընթացիկ աշխատանքային գրքում ցանկանում եք կատարել բազմաթիվ աշխատաթերթերի բազմակի պատճեններ, գուցե հարկ լինի օգտագործել Տեղափոխեք կամ պատճենեք հրամանի կետ կրկին ու կրկին: Likeանկանու՞մ եք գործն ավարտել մեկ կտտոցով: Հետ Պատճենել թերթերը երրորդ կողմի հավելվածի օգտակարություն Excel- ի համար նախատեսված գործիքներ, դուք կարող եք կատարել Excel- ում մի կտտոցով բազմաթիվ աշխատաթերթերի բազմակի պատճեններ:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now

1: Սեղմեք Kutools Plus > Պատճենել թերթերը, Տեսեք,

Նշում՝ կտտացնելով Kutools Plus > Աշխատանքային թերթիկ > Պատճենել թերթերը կստանա նաև այս հատկությունը:

2, Կիրառել պարամետրերը Պատճենել բազմաթիվ աշխատանքային թերթեր երկխոսության տուփ:
(1) Ստուգեք այն աշխատաթերթերը, որոնցից ցանկանում եք պատճենել Պատճենեք ընտրված աշխատանքային թերթերը բաժնում:
(2) Նշեք Պատճենների քանակը.
(3) Որոշեք պատճենված թերթերի դիրքը, օրինակ, բոլոր աշխատանքային թերթիկներից առաջ կամ հետո, ընթացիկ աշխատանքային թերթից առաջ կամ հետո:
(4) Կտտացրեք այն կոճակին Ok կոճակը:

3, Հայտնվում է արագ տուփ ՝ հիշեցնելու համար, որ ստուգված աշխատաթերթերը պատճենվել են մի քանի անգամ, որքան ձեզ հարկավոր է, խնդրում ենք սեղմել OK դրանից դուրս գալու կոճակը: Տեսեք,

այս Պատճենել բազմաթիվ աշխատանքային թերթեր առանձնահատկությունը Excel- ի համար նախատեսված գործիքներ միայն մի քանի կտտոցով կստիպի ակտիվ աշխատանքային գրքում մի քանի նշված աշխատանքային թերթերի բազմակի պատճեններ: Անցկացրեք անվճար փորձություն:


Բազմաթիվ աշխատանքային գրքերից մի քանի աշխատանքային թերթերի մեկական օրինակ պատրաստեք նորի

Եթե ​​Excel- ի համար տեղադրել եք Kutools, կարող եք նաև կիրառել այն Միավորել աշխատանքային թերթերը առանձնահատկությունը `բազմաթիվ աշխատանքային թերթերի մեկ պատճենը բազմաթիվ փակ աշխատանքային գրքերից միայն Excel- ում մի քանի կտտոցով նոր աշխատանքային գրքի վերածելու համար:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now

1: Սեղմեք Kutools Plus > Միավորել համատեղել Worksheets հատկությունը:

2, Միավորել աշխատաթերթերում - 1-րդ կախարդի քայլ 3-ը, խնդրում ենք ստուգել Միացրեք աշխատանքային գրքերից բազմաթիվ աշխատանքային թերթեր մեկ աշխատանքային թերթի մեջ տարբերակը եւ սեղմեք հաջորդ կոճակ Տեսեք,

3, Միավորել աշխատաթերթերում - 2-րդ կախարդի քայլ 3-ը, խնդրում ենք արեք, ինչպես ցույց է տրված հետևյալ նկարը.
(1) Սեղմեք Ավելացնել > Ֆայլ or Թղթապանակ աշխատանքային գրքեր ավելացնելու համար, որոնցից դուք պատճենելու եք աշխատանքային թերթերը:
(2) Իսկ Աշխատանքային տետրերի ցուցակ բաժնում, ստուգեք այն աշխատանքային գիրքը, որի աշխատանքային թերթերը կպատճենեք.
(3) Իսկ Աշխատաթերթի ցուցակ բաժնում, ստուգեք ձեր աշխատած պատճենները.
(4) Կրկնեք վերևում (2) և (3) այլ աշխատանքային գրքերից աշխատանքային էջեր ընտրելու համար, որոնք դուք պատճենելու եք:
(5) Կտտացրեք այն կոճակին հաջորդ կոճակը:

4, Միավորել աշխատաթերթերում - 3-րդ հրաշագործի քայլ 3-ը, խնդրում ենք կազմաձևել պատճենման պարամետրերը, ինչպես ձեզ հարկավոր է, և կտտացրեք Ավարտել կոճակը:

5, Այժմ նոր երկխոսության մեջ նշեք նպատակակետի պանակը ՝ նոր աշխատանքային գիրքը պահելու համար, և անվանեք նոր աշխատանքային գրքում ՝ Ֆայլի անուն տուփը և սեղմել Փրկել կոճակ Տեսեք,

Այժմ դուրս կգան ևս երկու երկխոսության տուփեր և կխնդրեն ձեզ բացել նոր աշխատանքային գրքույկը և պահպանել համադրման սցենարը: Մինչ այժմ այն ​​միաժամանակ պատճենել է բոլոր նշված աշխատանքային թերթերը բազմաթիվ աշխատանքային գրքերից:

Այս Միավորել (աշխատանքային թերթեր) օգտակար, դուք կարող եք հեշտությամբ պատճենել և միավորել աշխատանքային թերթերը և աշխատանքային գրքերը, ինչպես ցույց է տրված հետևյալ ցուցակը: Անցկացրեք անվճար փորձություն:
(1) արագորեն համատեղել բազմաթիվ աշխատանքային թերթեր / աշխատանքային տետրերից մեկ աշխատանքային թերթի մեջ.
(2) Արագ միաձուլեք / միացրեք աշխատանքային գրքերի համանուն բոլոր աշխատանքային թերթերը մեկ աշխատանքային թերթի մեջ.
(3) Արագ միաձուլեք / միացրեք աշխատանքային թերթերը կամ աշխատանքային գրքերը մեկ աշխատանքային գրքի մեջ.
(4) Արագ ամփոփեք / հաշվարկեք բազմաթիվ աշխատանքային թերթերից ստացված տվյալները մեկ աշխատանքային թերթի մեջ:

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

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

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

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (25)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.
This comment was minimized by the moderator on the site
Working Code

Sub Copier()
Dim s As String
Dim numtimes As Integer
Dim numCopies As Integer
numCopies = InputBox("How many copies do you need?")
s = InputBox("Enter the name of the Worksheet you want to copy")
For numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Next
End Sub

copy the entire line from ActiveWorkbook.Sheets...... that was the problem, and some spaces

Have a great day
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Here is the exact code you want to use: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
Thank you, the last one saved my life :)
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Double check your code and make sure you don't have a space at ActiveWorkbook. Sheets(s).Copy _ or at Sheets(Worksheets.Cou nt)
This comment was minimized by the moderator on the site
Fantastic VBA code - really helped
This comment was minimized by the moderator on the site
When I first tried it, I got the error message because I didn't change the name Sheet1. After I realized what caused the error, I researched a little further, as I did not want to be manually entering the sheet name into the macro. And when I need this feature, it is almost always for the current sheet. I added the line a = activesheet.name And revised the line after:=activeworkbook.sheets("sheet1") to activeworkbook.sheets(a).copy _ That worked very well, but I did notice the numbering was reversed ... that didn't bother me as I was going to manually rename the new sheets anyway. When I saw Schuyler's post, I further revised the line activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count) I am now satisfied with the result. My finished macro: Sub copies() Dim x As Integer x = InputBox("Enter number of times to copy Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub --- All the best, Barry
This comment was minimized by the moderator on the site
i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


but i dunno whats wrong... Can u help me please?
This comment was minimized by the moderator on the site
Thank you so much Barry. Your finished macro is the only thing that worked for me.
This comment was minimized by the moderator on the site
where i will insert this above code in vba should i create common button then inside ?? regards.
This comment was minimized by the moderator on the site
Follow the below steps:
1. Copy the above code
2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
4.Then press F5 key to run the code
5.A prompt box appears to ask you the number of sheet copies you want.
This comment was minimized by the moderator on the site
I get an error that 'numtimes' is not defined...?
This comment was minimized by the moderator on the site
I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
This comment was minimized by the moderator on the site
[quote]I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)By Debbi[/quote] Can you include your complete code to make it easier to debug? A "subscript error out of range" usually means that the code references something that doesn't exist. I find this in my own code when I've got a typo or something of that nature.
This comment was minimized by the moderator on the site
how to copy with same column widths
This comment was minimized by the moderator on the site
Same column widths as the original Worksheet or do you want all of the column widths to be the same?
This comment was minimized by the moderator on the site
yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
This comment was minimized by the moderator on the site
Search for word "After" and change it to "Before". This will create copies in right order "Before" Sheet1. The only thing to rememeber is that numbering will always start from (2) as the original sheet will always be counted as 1st copy. Also you can replace "Sheet1" with name of the tab you are trying to copy.
This comment was minimized by the moderator on the site
[quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By MichaelTadashi[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!
This comment was minimized by the moderator on the site
[quote][quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By juan[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!By MichaelTadashi[/quote]e] If you want the sheet copies to be in sequential order instead of backwards, change the following line... After:=ActiveWorkbook.Sheets("Sheet1") to this... After:=ActiveWorkbook.Sheets(Worksheets.Count) My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name.. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
How do i get the coppies continuous numbered. If the sheet i want to copy is named I002, and i want the next to be named I003,I004,I005 an so on.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations