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

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

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

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

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

Всего несколько щелчков мышью, чтобы сделать несколько копий нескольких листов в активной книге

В общем, мы можем скопировать несколько листов с Переместить или скопировать функция в Excel. Однако с помощью этой функции можно делать только одну копию за раз. Здесь с Kutools for Excel's Копировать рабочие листы Утилита, вы можете легко сделать столько копий многих листов, сколько вам нужно в активной книге, всего за несколько щелчков мышью.

Если вы хотите сделать 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 for Excel, вы можете сделать несколько копий нескольких листов одним щелчком мыши в Excel.

1. Нажмите Кутулс Плюс > Копировать рабочие листы. Смотрите скриншот:

Внимание: Нажатие Кутулс Плюс > Рабочий лист > Копировать рабочие листы также получит эту функцию.

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

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

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

Если у вас установлен Kutools for Excel, вы также можете применить его Комбинировать листы возможность сделать одну копию нескольких листов из нескольких закрытых книг в новую книгу несколькими щелчками мыши только в Excel.

1. Нажмите Кутулс Плюс > Сочетать , чтобы активировать функцию «Объединить листы».

2. В мастере объединения рабочих листов - шаг 1 из 3 проверьте Объедините несколько листов из книг в один лист и нажмите Далее кнопка. Смотрите скриншот:

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

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

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

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

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