Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

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

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


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

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

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

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

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

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

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

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

Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel- ի համար: 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- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel- ի համար: 30 օրյա անվճար փորձնական ամբողջական հնարավորություն, վարկային քարտ չի պահանջվում: Get It Now

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

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

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

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

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


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

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

Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel- ի համար: 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) Արագ ամփոփեք / հաշվարկեք բազմաթիվ աշխատանքային թերթերից ստացված տվյալները մեկ աշխատանքային թերթի մեջ:


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

Excel- ի համար նախատեսված Kutools- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր առանձնահատկություններ, Աջակցում է Office / Excel 2007-2019 և 365. Աջակցում է բոլոր լեզուները: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հատկություններ ՝ 30-օրյա անվճար փորձաշրջան: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tyler Dempsey · 3 years ago
    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.
    • To post as a guest, your comment is unpublished.
      Jorge · 1 years ago
      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
    • To post as a guest, your comment is unpublished.
      Schuyler · 3 years ago
      [quote name="Tyler Dempsey"]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.[/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
      • To post as a guest, your comment is unpublished.
        Belva · 2 months ago
        Thank you, the last one saved my life :)
    • To post as a guest, your comment is unpublished.
      Schuyler · 3 years ago
      [quote name="Tyler Dempsey"]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.[/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)
  • To post as a guest, your comment is unpublished.
    Simon · 4 years ago
    Fantastic VBA code - really helped
  • To post as a guest, your comment is unpublished.
    Barry · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      MJ · 2 years ago
      i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


      but i dunno whats wrong... Can u help me please?
    • To post as a guest, your comment is unpublished.
      Kate · 3 years ago
      Thank you so much Barry. Your finished macro is the only thing that worked for me.
  • To post as a guest, your comment is unpublished.
    stalag 17 · 4 years ago
    where i will insert this above code in vba should i create common button then inside ?? regards.
    • To post as a guest, your comment is unpublished.
      Adi · 3 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Susan · 5 years ago
    I get an error that 'numtimes' is not defined...?
  • To post as a guest, your comment is unpublished.
    Debbi · 5 years ago
    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)
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      [quote name="Debbi"]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)[/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.
  • To post as a guest, your comment is unpublished.
    Roy · 5 years ago
    how to copy with same column widths
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      Same column widths as the original Worksheet or do you want all of the column widths to be the same?
  • To post as a guest, your comment is unpublished.
    sadaqat · 5 years ago
    yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
  • To post as a guest, your comment is unpublished.
    Gopal Krishan · 5 years ago
    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.
  • To post as a guest, your comment is unpublished.
    juan · 6 years ago
    [quote name="MichaelTadashi"]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?[/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!
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      [quote name="juan"][quote name="MichaelTadashi"]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?[/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![/quote]

      If you want the sheet copies to be in sequential order instead of backwards, change the following line...

      [i]After:=ActiveWorkbook.Sheets[/i][u]("Sheet1")[/u]

      to this...

      [i]After:=ActiveWorkbook.Sheets[/i][u](Worksheets.Count)[/u]

      My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name..


      [i]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[/i]
      • To post as a guest, your comment is unpublished.
        Karsten · 4 years ago
        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.
  • To post as a guest, your comment is unpublished.
    Lim · 6 years ago
    Wow, thanks for the VBA code. It really helps a lot!
  • To post as a guest, your comment is unpublished.
    Dee · 6 years ago
    thanks, the vba code was huge
  • To post as a guest, your comment is unpublished.
    Theou Aegis · 6 years ago
    I tried the VBA code and got subscript out of range error (9). I replaced the sheet name with anything I could think of that was in the workbook already. Any idea what I did wrong?

    Also, is there a way to make it name each sheet incrementally? This would tie in with Michael's question, I'm sure. I'm guessing the answer to his question would be you'd need to set the After target to "sheet"+x somehow and that in turn would apply to my question if there was a way to specify what to name the new sheet. I could always just change my boss' "master" to "Aug 0" or whatever month it is, but it'd be easier for her to understand if the script did the naming automatically.
  • To post as a guest, your comment is unpublished.
    MichaelTadashi · 7 years ago
    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?