Перейти до основного матеріалу

Як скопіювати кілька аркушів кілька разів у Excel?

Іноді нам може знадобитися зробити копію або кілька копій зазначених аркушів у книзі. Ось кілька швидких способів допомогти вам легко скопіювати один або кілька аркушів кілька разів у Excel.


Створіть одну копію декількох аркушів один раз в активну книгу або іншу книгу за допомогою команди "Перемістити" або "Копіювати"

З Перемістити або скопіювати За допомогою команди в Excel ви можете одночасно зробити одну копію аркуша, декілька конкретних аркушів або всі аркуші в активній книзі чи іншій книзі.

1. У певній книзі, куди ви копіюватимете робочі аркуші, виберіть кілька аркушів на панелі вкладки Аркуш.
примітки: Холдинг CTRL клавішу, ви можете вибрати кілька сусідніх вкладок аркуша, клацнувши по черзі на панелі вкладки Аркуш; проведення SHIFT клавішу, ви можете вибрати кілька суміжних вкладок аркуша, натиснувши першу вкладку аркуша та останню на панелі вкладки Аркуш.

2. Клацніть правою кнопкою миші на вибраній вкладці аркуша на панелі вкладки Аркуш і виберіть Перемістити або скопіювати з контекстного меню. Дивіться знімок екрана:
doc копіювати кілька аркушів 01

3, в Перемістити або скопіювати у діалоговому вікні, будь ласка, вкажіть такі налаштування:
(1) Будь ласка, вкажіть цільову книгу, до якої ви скопіюєте аркуші з Резервувати випадаючий список. Ви можете вибрати активну книгу, іншу відкриту книгу або нову книгу, як вам потрібно.
(2) Вкажіть положення скопійованих аркушів на панелі вкладки Аркуш, яку ви можете вибрати після всіх існуючих аркушів.
(3) Перевірте Створіть копію Якщо не встановити цей прапорець, вибрані аркуші будуть переміщені до книги призначення.
(4) Клацніть на OK кнопки.

Тепер він зробить лише одну копію вибраних аркушів у зазначену книгу. Щоб зробити кілька копій цих аркушів, можна повторити операцію кілька разів.

Всього кілька кліків, щоб зробити кілька копій декількох аркушів в активній книзі

Загалом, ми можемо скопіювати кілька аркушів за допомогою Перемістити або скопіювати функцію в Excel. Однак ця функція може створювати лише одну копію за раз. Тут, з Kutools для Excel Скопіюйте робочі аркуші Ви можете легко зробити стільки копій багатьох аркушів, скільки вам потрібно в активній книзі, лише декількома клацаннями миші.


копія оголошення декілька робочих аркушів 01

Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now

Створіть кілька копій одного вказаного робочого аркуша в активну книгу з кодом VBA

Якщо ви хочете зробити 10 копій зазначеного робочого аркуша, файл Перемістити або скопіювати команда буде трудомістким способом, і ви повинні повторити операцію багато разів. Але за допомогою наступного коду VBA ви можете швидко скопіювати аркуш 10 разів одночасно.

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

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 разів в активній книзі.


Зробіть кілька копій кількох аркушів в активну книгу за допомогою Kutools для Excel

Хоча зробити копію кількох аркушів у Excel просто, якщо ви хочете зробити кілька копій кількох аркушів у поточній книзі, можливо, доведеться скористатися Перемістити або скопіювати командний елемент знову і знову. Хотіли б зробити справу одним кліком? За допомогою Скопіюйте робочі аркуші утиліта сторонньої надбудови Kutools для Excel, ви можете зробити кілька копій декількох аркушів одним клацанням миші в Excel.

Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now

1. Клацання Kutools Plus > Скопіюйте робочі аркуші. Дивіться знімок екрана:

примітки: Клацання Kutools Plus > Робочий аркуш > Скопіюйте робочі аркуші також отримає цю функцію.

2. Застосувати налаштування в Скопіюйте кілька аркушів діалогове вікно:
(1) Перевірте аркуші, з яких потрібно скопіювати Скопіюйте вибрані аркуші .
(2) Вкажіть Кількість примірників.
(3) Визначте положення скопійованих аркушів, наприклад, до або після всіх аркушів, перед або після поточного аркуша.
(4) Клацніть на Ok кнопки.

3. Вискакує вікно із нагадуванням, щоб нагадати, що перевірені аркуші скопійовано кілька разів, коли вам потрібно, клацніть OK , щоб вийти з нього. Дивіться знімок екрана:

це Скопіюйте кілька аркушів особливість Kutools для Excel зробить кілька копій кількох зазначених аркушів в активній книзі лише кількома клацаннями миші. Отримайте безкоштовну пробну версію!


Створіть одну копію декількох аркушів із кількох книг в нову

Якщо у вас встановлено Kutools для Excel, ви також можете застосувати його Об’єднайте робочі аркуші функція створення однієї копії декількох аркушів із декількох закритих книг у новій книзі за допомогою декількох клацань лише в Excel.

Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now

1. Клацання Kutools Plus > Поєднувати щоб активувати функцію комбінування робочих аркушів.

2. У майстрі "Об'єднати робочі аркуші" - крок 1 з 3, перевірте Об’єднайте кілька аркушів із книг в один аркуш та натисніть кнопку МАЙБУТНІ кнопку. Дивіться знімок екрана:

3. У майстрі «Об’єднати робочі аркуші» - крок 2 з 3, виконайте наступний знімок екрана:
(1) Клацніть додавати > філе or Папка щоб додати книги, з яких ви скопіюєте аркуші.
(2) В Список робочих книжок розділ, перевірте книгу, робочі аркуші якої ви скопіюєте;
(3) В Список робочого аркуша розділ, перевірте аркуші, які ви скопіюєте;
(4) Повторіть вище (2) та (3) щоб вибрати аркуші з інших книг, які ви скопіюєте.
(5) Клацніть на МАЙБУТНІ кнопки.

4. У майстрі «Об’єднати робочі аркуші» - крок 3 із 3, налаштуйте параметри копіювання, як вам потрібно, і натисніть обробка кнопки.

5. Тепер у новому діалоговому вікні вкажіть цільову папку для збереження нової книги, назвіть нову книгу в Файл і натисніть на зберегти кнопку. Дивіться знімок екрана:

Тепер з’являться ще два діалогові вікна з проханням відкрити нову книгу та зберегти сценарій комбінування. Будь ласка, клацніть кнопки, як вам потрібно. Наразі він одночасно скопіював усі зазначені аркуші з кількох книг.

З цим Комбінат (робочі аркуші) Утиліта, ви можете легко копіювати та комбінувати робочі аркуші та книги, як показано нижче. Отримайте безкоштовну пробну версію!
(1) Швидко об’єднати декілька робочих аркушів / діапазонів від книг в один аркуш;
(2) Швидко об’єднати / об’єднати всі однойменні аркуші між книгами в один аркуш;
(3) Швидко об’єднати / об’єднати аркуші чи книги в одну книгу;
(4) Швидко узагальнюйте / обчислюйте дані з декількох аркушів на одному аркуші.

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, 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