Дженнифер часто приходится создавать копии рабочих листов после того, как у нее есть первый рабочий лист рабочей тетради, и обычно это хорошее количество копий. Например, для нее нет ничего необычного в том, чтобы создать 20 копий определенного рабочего листа. Она задается вопросом, есть ли способ легко сделать несколько копий. Щелчок правой кнопкой мыши и использование функции перемещения / копирования через некоторое время становится довольно утомительным.

Есть способ более эффективно использовать опцию перемещения / копирования. Скажем, например, вы хотите создать 20 листов из исходного. Вы можете выполнить следующие действия:

  1. Убедитесь, что выбран ваш единственный рабочий лист.

  2. Щелкните правой кнопкой мыши вкладку рабочего листа. Excel отображает контекстное меню.

  3. Выберите «Переместить» или «Копировать» в контекстном меню. Excel отображает диалоговое окно «Перемещение или копирование».

  4. Выберите вариант (перейти в конец).

  5. Убедитесь, что установлен флажок «Создать копию».

  6. Щелкните ОК. Теперь у вас есть две копии рабочего листа (оригинал и копия, которую вы только что сделали).

  7. Выберите оба листа, щелкнув вкладку первого листа и, удерживая нажатой клавишу Shift, щелкните последнюю вкладку листа.

  8. Щелкните правой кнопкой мыши выбранные вкладки рабочего листа. Excel отображает контекстное меню.

  9. Выберите «Переместить» или «Копировать» в контекстном меню. Excel отображает диалоговое окно «Перемещение или копирование».

  10. Выберите вариант (перейти в конец).

  11. Убедитесь, что установлен флажок «Создать копию».

  12. Щелкните ОК. Теперь у вас есть четыре копии рабочего листа.

  13. Выберите все рабочие листы, щелкнув первую вкладку рабочего листа и, удерживая клавишу Shift, щелкнув последнюю вкладку рабочего листа.

  14. Щелкните правой кнопкой мыши выбранные вкладки рабочего листа. Excel отображает контекстное меню.

  15. Выберите «Переместить» или «Копировать» в контекстном меню. Excel отображает диалоговое окно «Перемещение или копирование».

  16. Выберите вариант (перейти в конец).

  17. Убедитесь, что установлен флажок «Создать копию».

  18. Щелкните ОК. Теперь у вас есть восемь копий рабочего листа.

  19. Выберите все рабочие листы, щелкнув первую вкладку рабочего листа и, удерживая клавишу Shift, щелкнув последнюю вкладку рабочего листа.

  20. Щелкните правой кнопкой мыши выбранные вкладки рабочего листа. Excel отображает контекстное меню.

  21. Выберите «Переместить» или «Копировать» в контекстном меню. Excel отображает диалоговое окно «Перемещение или копирование».

  22. Выберите вариант (перейти в конец).

  23. Убедитесь, что установлен флажок «Создать копию».

  24. Щелкните ОК. Теперь у вас есть 16 копий рабочего листа.

  25. Выберите четыре своих рабочих листа, щелкнув первую вкладку рабочего листа и, удерживая нажатой клавишу Shift, щелкните четвертую вкладку рабочего листа.

  26. Щелкните правой кнопкой мыши выбранные вкладки рабочего листа. Excel отображает контекстное меню.

  27. Выберите «Переместить» или «Копировать» в контекстном меню. Excel отображает диалоговое окно «Перемещение или копирование».

  28. Выберите вариант (перейти в конец).

  29. Убедитесь, что установлен флажок «Создать копию».

  30. Щелкните ОК. Теперь у вас есть 20 копий рабочего листа.

Это может показаться большим количеством шагов, но на самом деле это не так — все, что вы сделали, — это пять раз вместо 20 раз использовали функцию перемещения / копирования, чтобы добраться до нужного количества листов. Однако есть одно предостережение в отношении этого подхода — если на копируемом листе есть какие-либо определенные таблицы, вы не сможете пройти шаг 8. Когда вы попробуете шаг 9, вы получите сообщение о том, что вы не можете копировать или перемещать группу листов, если какой-либо из них содержит таблицы. (Вы можете скопировать или переместить один лист, содержащий таблицу, но не их группу.)

Вы можете использовать еще один ярлык, не использующий диалоговое окно «Перемещение» или «Копирование». Все, что вам нужно сделать, это выбрать рабочий лист, который вы хотите скопировать, и перетащить имя рабочего листа (на вкладке рабочего листа) вправо. Вы увидите небольшой значок «документ» рядом с указателем мыши. На этом этапе нажмите клавишу Ctrl, и внутри значка появится знак плюса. Когда вы отпускаете кнопку мыши, рабочий лист копируется. Вы также можете копировать группы рабочих листов таким же образом, если, опять же, на рабочих листах в группе нет определенных таблиц.

Другой вариант копирования рабочего листа — это сделать следующее:

  1. Создайте свой «основной» рабочий лист, если хотите.

  2. Добавьте достаточно пустых листов, чтобы у вас было по одному для каждой копии, которую вы хотите сделать. (Хороший способ добавить пустые листы — нажать Shift + F11.)

  3. Выберите главный рабочий лист.

  4. Нажмите Ctrl + A. Excel выбирает все на главном листе.

  5. Нажмите Ctrl + C. Теперь все скопировано в буфер обмена.

  6. Щелкните вкладку рабочего листа для первого созданного вами пустого рабочего листа.

  7. Удерживая нажатой клавишу Shift, вы щелкаете вкладку рабочего листа для последнего созданного вами пустого рабочего листа.

  8. Нажмите Ctrl + V. Содержимое буфера обмена вставляется на каждый из выбранных вами листов.

Это копирует все из главного листа, но не копирует некоторые вещи, такие как ширина столбцов, высота строк или настройки макета печати.

Вы можете выполнить некоторые дополнительные действия, чтобы скопировать некоторые из них, но скопировать их все сложно.

Однако для максимальной скорости и удобства использование макроса для создания копий (на мой взгляд) является самым простым. Вот очень простой макрос, который будет делать копии выбранного рабочего листа до тех пор, пока в книге не будет всего 20 рабочих листов:

Sub SimpleCopy1()

Do While Sheets.Count < 20         ActiveSheet.Copy After:=Sheets(Sheets.Count)

Loop End Sub

Если в вашей книге уже есть дополнительные рабочие листы (помимо того, который вы хотите скопировать), вам будет полезно использовать эту версию:

Sub SimpleCopy2()

Dim J As Integer

For J = 1 To 20         ActiveSheet.Copy After:=Sheets(Sheets.Count)

Next J End Sub

Вы можете сделать свой макрос более универсальным, задав запрос пользователю, сколько копий нужно сделать:

Sub SimpleCopy2()

Dim J As Integer     Dim iWanted As Integer

On Error GoTo Done     iWanted = Cint(InputBox("Number of copies?"))



If iWanted >0 And iWanted < 201 Then         For J = 1 To iWanted             ActiveSheet.Copy After:=Sheets(Sheets.Count)

Next J     End If Done:

On Error GoTo 0 End Sub

Этот макрос также ограничивает количество копий рабочего листа от 1 до 200 (вне этого диапазона он ничего не сделает). Обработка ошибок добавляется в случае, если в вашей книге уже есть большое количество рабочих листов, а добавление дополнительных превышает допустимое. количество рабочих листов, которое допустимо иметь в рабочей тетради.

Независимо от того, какой макрос вы выберете, рекомендуется добавить его на панель быстрого доступа или назначить ему сочетание клавиш. Таким образом, вы можете очень быстро скопировать свои рабочие листы.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (1600) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.