Note: The other languages of the website are Google-translated. Back to English

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

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


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

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

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

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

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

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

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

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


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

Kutools для Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 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 - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 30-день, кредитна картка не потрібна! Get It Now

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

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

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

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

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


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

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

Kutools для Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (25)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Використовуючи код VBA, іменування дубльованих аркушів відбувається у зворотному порядку. Скажімо, я роблю 10 копій Аркуш 1, у результаті у мене будуть Лист1, Аркуш1(10), Аркуш1(9), Аркуш1(8),.......чи можливо, щоб вони були в нормальному порядку?
Цей коментар був мінімізований модератором на сайті
Я спробував код VBA і отримав помилку за межами діапазону (9). Я замінив назву аркуша на все, що я міг придумати, що вже було в книзі. Маєте уявлення, що я зробив не так? Крім того, чи є спосіб зробити так, щоб кожен аркуш називався поступово? Це пов’язано з запитанням Майкла, я впевнений. Я припускаю, що відповідь на його запитання полягала б у тому, що вам потрібно було б якось встановити ціль After на "sheet"+x, і це, у свою чергу, стосувалося б мого запитання, якби можна було вказати, як назвати новий аркуш. Я завжди міг просто змінити "господар" свого боса на "0 серпня" або будь-який інший місяць, але їй було б легше зрозуміти, якби сценарій називав ім'я автоматично.
Цей коментар був мінімізований модератором на сайті
дякую, код vba був величезним
Цей коментар був мінімізований модератором на сайті
Ого, дякую за код VBA. Це дійсно дуже допомагає!
Цей коментар був мінімізований модератором на сайті
[quote]Використовуючи код VBA, іменування дубльованих аркушів відбувається у зворотному порядку. Скажімо, я роблю 10 копій Аркуш 1, у результаті у мене будуть Лист1, Аркуш1(10), Аркуш1(9), Аркуш1(8),.......чи можливо, щоб вони були в нормальному порядку?Автор: MichaelTadashi[/quote] Хтось міг відповісти на це запитання? Мені потрібно створити 72 копії, але їх потрібно розташувати в порядку (з 1 по 72 замість 72 по 1) Дякую!
Цей коментар був мінімізований модератором на сайті
[quote][quote]Використовуючи код VBA, іменування дубльованих аркушів відбувається у зворотному порядку. Скажімо, я роблю 10 копій Аркуш1, у мене в кінцевому підсумку будуть Лист1, Аркуш1(10), Аркуш1(9), Аркуш1(8),.......чи можна мати їх у нормальному порядку?Від Хуана[/quote] Хтось міг відповісти на це запитання? Мені потрібно створити 72 копії, але їх потрібно розташувати в порядку (з 1 по 72 замість 72 по 1) Дякую!Автор: MichaelTadashi[/quote]e] Якщо ви хочете, щоб копії аркушів були в послідовному порядку, а не назад, змініть наступний рядок... Після:=ActiveWorkbook.Shares("Аркуш 1") до цього... Після:=ActiveWorkbook.Shares(Робочі аркуші. Підрахунок) Мій завершений код виглядав так, у якому використовуються 2 підказки InputBox, щоб дозволити динамічну кількість копій та назву робочого аркуша. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Скільки копій вам потрібно?") s = InputBox("Введіть назву робочого аркуша, який ви хочете скопіювати") For numtimes = 1 До numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Цей коментар був мінімізований модератором на сайті
Як отримати безперервну нумерацію копій. Якщо аркуш, який я хочу скопіювати, має назву I002, а я хочу, щоб наступний мав назву I003, I004, I005 тощо.
Цей коментар був мінімізований модератором на сайті
Знайдіть слово «Після» та змініть його на «До». Це створить копії в правильному порядку «Перед» Листом 1. Єдине, що потрібно пам’ятати, це те, що нумерація завжди починатиметься з (2), оскільки оригінальний аркуш завжди буде вважатися першим примірником. Також ви можете замінити "Sheet1" на назву вкладки, яку ви намагаєтеся скопіювати.
Цей коментар був мінімізований модератором на сайті
так, це працює, дякую. Я успішно зробив кілька копій одного аркуша в одній книзі, використовуючи код vba thnx багато.
Цей коментар був мінімізований модератором на сайті
як копіювати з однаковою шириною стовпців
Цей коментар був мінімізований модератором на сайті
Така сама ширина стовпців, що й у вихідного робочого аркуша, чи ви хочете, щоб усі стовпці були однаковими?
Цей коментар був мінімізований модератором на сайті
Я отримав ту саму помилку, що й Теу, і, здається, ніхто не вирішив її. Мої вкладки вже мають імена PO 51, PO 52 тощо, і я замінив Sheet1 на PO 51, щоб скопіювати це, і помилка індексу вийшла за межі діапазону (9). Я дотримувався коду Шайлера, щоб отримати правильний порядок, але я все одно отримую помилку і це завжди через ці два рядки: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Цей коментар був мінімізований модератором на сайті
[quote]Я отримав ту саму помилку, що й Тео, і, здається, ніхто не вирішив її. Мої вкладки вже мають імена PO 51, PO 52 тощо, і я замінив Sheet1 на PO 51, щоб скопіювати це, і помилка індексу вийшла за межі діапазону (9). Я дотримувався коду Шайлера, щоб отримати правильний порядок, але я все одно отримую помилку і це завжди через ці два рядки: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Від Деббі[/quote] Чи можете ви включити свій повний код, щоб полегшити його налагодження? "Помилка індексу за межами діапазону" зазвичай означає, що код посилається на щось, чого не існує. Я знаходжу це у своєму власному коді, коли маю помилку чи щось подібне.
Цей коментар був мінімізований модератором на сайті
Я отримую повідомлення про те, що "numtimes" не визначено...?
Цей коментар був мінімізований модератором на сайті
куди я вставлю цей код вище в vba, чи потрібно створити загальну кнопку, а потім всередині?? з повагою.
Цей коментар був мінімізований модератором на сайті
Виконайте наведені нижче дії.
1. Скопіюйте наведений вище код
2. Утримуйте клавіші ALT + F11, і це відкриє вікно Microsoft Visual Basic для програм.
2. Натисніть Вставка > Модуль і вставте наступний код у вікно модуля.
4. Потім натисніть клавішу F5, щоб запустити код
5. З'явиться вікно підказки, щоб запитати кількість копій аркуша, яку ви хочете.
Цей коментар був мінімізований модератором на сайті
Коли я вперше спробував це, я отримав повідомлення про помилку, оскільки я не змінив назву Sheet1. Після того, як я зрозумів, що спричинило помилку, я почав досліджувати трохи далі, оскільки не хотів вручну вводити назву аркуша в макрос. І коли мені потрібна ця функція, вона майже завжди для поточного аркуша. Я додав рядок a = activesheet.name і змінив рядок після:=activeworkbook.sheets("sheet1") на activeworkbook.sheets(a).copy _ Це працювало дуже добре, але я помітив, що нумерація була змінена ... це мене не турбувало, оскільки я все одно збирався вручну перейменувати нові аркуші. Коли я побачив допис Шайлера, я додатково переглянув рядок activeworkbook.sheets(a).copy _ на after:=activeworkbook.sheets(worksheets.count). Тепер я задоволений результатом. Мій готовий макрос: Subcopies() Dim x As Integer x = InputBox("Введіть кількість разів для копіювання Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets( Worksheets.Count) Next End Sub --- Всього найкращого, Баррі
Цей коментар був мінімізований модератором на сайті
Велике спасибі Баррі. Ваш готовий макрос – єдине, що спрацювало для мене.
Цей коментар був мінімізований модератором на сайті
я отримав синтаксичну помилку на "After:=ActiveWorkbook.Sheets(Worksheets.Count)


але я не знаю, що не так... Чи можете ви мені допомогти, будь ласка?
Цей коментар був мінімізований модератором на сайті
Фантастичний код VBA - дійсно допоміг
Цей коментар був мінімізований модератором на сайті
Я новачок у цьому, я просто намагаюся зробити копії того самого аркуша, який я використовую. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Скільки копій вам потрібно?") s = InputBox("Введіть назву робочого аркуша, який ви хочете скопіювати") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub, коли я використовую код, він дає мені помилку «Синтаксична помилка», тоді цей текст стає червоним ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) і текст стає жовтим Sub Copier(), що я можу зробити, щоб це виправити.
Цей коментар був мінімізований модератором на сайті
[quote]Я новачок у цьому, я просто намагаюся зробити копії того самого аркуша, який я використовую. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Скільки копій вам потрібно?") s = InputBox("Введіть назву робочого аркуша, який ви хочете скопіювати") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub, коли я використовую код, він дає мені помилку «Синтаксична помилка», тоді цей текст стає червоним ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) і текст стає жовтим Sub Copier(), що я можу зробити, щоб це виправити.Автор Тайлер Демпсі[/quote] Двічі перевірте свій код і переконайтеся, що у вас немає місця в ActiveWorkbook. Аркуші(и).Копіювати _ або на Аркуші(Робочі аркуші.Розрахунок)
Цей коментар був мінімізований модератором на сайті
[quote]Я новачок у цьому, я просто намагаюся зробити копії того самого аркуша, який я використовую. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Скільки копій вам потрібно?") s = InputBox("Введіть назву робочого аркуша, який ви хочете скопіювати") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub, коли я використовую код, він дає мені помилку «Синтаксична помилка», тоді цей текст стає червоним ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) і текст стає жовтим Sub Copier(), що я можу зробити, щоб це виправити.Автор Тайлер Демпсі[/quote] Ось точний код, який ви хочете використовувати: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Скільки копій вам потрібно?") s = InputBox("Enter ім'я робочого аркуша, який потрібно скопіювати") Для numtimes = 1 До numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Цей коментар був мінімізований модератором на сайті
Дякую, останній врятував мені життя :)
Цей коментар був мінімізований модератором на сайті
Робочий кодекс

Додатковий копір ()
Дим як рядок
Dim numtimes як ціле число
Dim numCopies як ціле число
numCopies = InputBox("Скільки копій вам потрібно?")
s = InputBox("Введіть назву робочого аркуша, який потрібно скопіювати")
Для numtimes = 1 До numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Далі
End Sub

скопіюйте весь рядок з ActiveWorkbook.Sheets...... це була проблема, і деякі пробіли

Маю чудовий день
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL