Как скопировать несколько листов несколько раз в Excel?

С помощью команды Переместить или скопировать в Excel вы можете создать одну копию листа, нескольких выбранных листов или всех листов в текущей или другой книге за один раз.

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

2. Щёлкните правой кнопкой мыши по выбранной вкладке листа на панели вкладок листов и выберите Переместить или скопировать в контекстном меню. См. скриншот:

3. В Переместить или скопировать диалоговом окне укажите следующие параметры:
(1) Укажите книгу назначения, в которую вы хотите скопировать листы, из выпадающего списка В книгу Вы можете выбрать текущую книгу, другую открытую книгу или новую книгу по необходимости.
(2) Укажите положение скопированных листов на панели вкладок листов, например, после всех существующих листов.
(3) Отметьте Создать копию если не отметить этот параметр, выбранные листы будут перемещены в книгу назначения.
(4) Нажмите кнопку OK .

Теперь будет создана только одна копия выбранных листов в указанной книге. Чтобы создать несколько копий этих листов, повторите операцию несколько раз.

Хотя создать копию нескольких листов в Excel просто, если вы хотите сделать несколько копий нескольких листов в текущей книге, вам придётся снова и снова использовать команду Переместить или скопировать. Хотите выполнить это действие одним кликом? С помощью функции Копировать листы стороннего надстройки Kutools для Excel вы сможете создать несколько копий нескольких листов одним кликом в Excel.

1. Нажмите Kutools Plus > Копировать листы. См. скриншот:

Примечание: При нажатии Kutools Plus > Лист > Копировать листы вы также получите доступ к этой функции.

2. Установите параметры в диалоговом окне Пакетное копирование листов :
(1) Отметьте листы, которые вы хотите скопировать, в разделе Копировать выбранные листы раздела.
(2) Укажите Количество копий.
(3) Определите положение скопированных листов, например, перед или после всех листов, перед или после текущего листа.
(4) Нажмите кнопку ОК для выполнения.

3. Появится окно с напоминанием, что выбранные листы были скопированы нужное количество раз, нажмите кнопку OK чтобы закрыть его. См. скриншот:

Функция Пакетное копирование листов Kutools для Excel позволяет создать несколько копий выбранных листов в активной книге всего за несколько кликов. Попробуйте бесплатно!

Если вам нужно создать10 копий определённого листа, команда Переместить или скопировать займёт много времени, и вам придётся повторять операцию много раз. С помощью следующего VBA-кода вы сможете быстро скопировать лист10 раз за один раз.

1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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. Затем нажмите ОК — указанный лист будет скопирован100 раз в текущей книге.

Если у вас установлен Kutools для Excel, вы также можете воспользоваться функцией Объединить данные, чтобы создать одну копию нескольких листов из закрытых книг в новую книгу всего за несколько кликов в Excel.

1. Нажмите Kutools Plus > Объединить чтобы активировать функцию Объединить данные.

2. В мастере Объединить данные – Шаг1 из3, отметьте Копировать данные из нескольких книг в один лист и нажмите кнопку Далее См. скриншот:

3. В мастере Объединить данные – Шаг2 из3 выполните действия, показанные на скриншоте:
(1) Нажмите Добавить > Файл или Папка чтобы добавить книги, из которых вы будете копировать листы.
(2) В разделе Список рабочих книг отметьте книгу, листы которой вы будете копировать;
(3) В разделе Список листов отметьте листы, которые вы будете копировать;
(4) Повторите вышеуказанные (2) и (3) чтобы выбрать листы из других книг, которые вы будете копировать.
(5) Нажмите кнопку Далее для продолжения.

4. В мастере Объединить данные – Шаг3 из3 настройте параметры копирования по необходимости и нажмите кнопку Завершить для завершения.

5. В новом диалоговом окне укажите папку для сохранения новой книги, задайте имя новой книги в поле Имя файла и нажмите кнопку Сохранить См. скриншот:

Теперь появятся ещё два диалоговых окна с предложением открыть новую книгу и сохранить сценарий объединения — нажмите нужные кнопки по необходимости. Таким образом, все выбранные листы из нескольких книг будут скопированы за один раз.

С помощью этой функции Объединить (Листы)вы легко сможете копировать и объединять листы и книги, как показано в следующем списке. Попробуйте бесплатно!
(1) Быстро объединяйте несколько листов / диапазонов из книг в один лист;
(2) Быстро объединяйте все листы с одинаковым именем из разных книг в один лист;
(3) Быстро объединяйте листы или книги в одну книгу;
(4) Быстро суммируйте / вычисляйте данные из нескольких листов в одном листе.