Дженнифер часто приходится создавать копии рабочих листов после того, как у нее есть первый рабочий лист рабочей книги, и обычно это достаточное количество копий. Например, для нее нет ничего необычного в том, чтобы создать 20 копий определенного рабочего листа. Она задается вопросом, есть ли способ легко сделать несколько копий. Щелчок правой кнопкой мыши и использование функции перемещения/копирования через некоторое время становится довольно утомительным.
Есть способ использовать параметр перемещения/копирования немного более эффективно. Скажем, например, вы хотите создать 20 листов из исходного. Вы можете выполнить следующие действия:
- Убедитесь, что выбран ваш единственный рабочий лист.
- Щелкните правой кнопкой мыши вкладку рабочего листа. В Excel отображается контекстное меню.
- В контекстном меню выберите «Переместить» или «Копировать». Excel отображает диалоговое окно «Перемещение или копирование».
- Выберите параметр (перейти в конец).
- Убедитесь, что установлен флажок «Создать копию».
- Щелкните ОК. Теперь у вас есть две копии вашего рабочего листа (оригинал и копия, которую вы только что сделали).
- Выберите оба листа, щелкнув вкладку первого листа и удерживая Shift при нажатии на последнюю вкладку рабочего листа.
- Щелкните правой кнопкой мыши выбранные вкладки рабочего листа. В Excel отображается контекстное меню.
- В контекстном меню выберите «Переместить» или «Копировать». Excel отображает диалоговое окно «Перемещение или копирование».
- Выберите параметр (перейти в конец).
- Убедитесь, что установлен флажок «Создать копию».
- Щелкните ОК. Теперь у вас есть четыре копии рабочего листа.
- Выберите все рабочие листы, щелкнув первую вкладку рабочего листа и, удерживая нажатой клавишу Shift , щелкнув последнюю вкладка рабочего листа.
- Щелкните правой кнопкой мыши выбранные вкладки рабочего листа. В Excel отображается контекстное меню.
- В контекстном меню выберите «Переместить» или «Копировать». Excel отображает диалоговое окно «Перемещение или копирование».
- Выберите параметр (перейти в конец).
- Убедитесь, что установлен флажок «Создать копию».
- Щелкните ОК. Теперь у вас есть восемь копий вашего рабочего листа.
- Выберите все рабочие листы, щелкнув первую вкладку рабочего листа и удерживая клавишу Shift , когда вы нажмете на последнюю вкладка рабочего листа.
- Щелкните правой кнопкой мыши выбранные вкладки рабочего листа. В Excel отображается контекстное меню.
- В контекстном меню выберите «Переместить» или «Копировать». Excel отображает диалоговое окно «Перемещение или копирование».
- Выберите параметр (перейти в конец).
- Убедитесь, что установлен флажок «Создать копию».
- Щелкните ОК. Теперь у вас есть 16 копий вашего рабочего листа.
- Выберите четыре из ваших рабочих листов, щелкнув первую вкладку рабочего листа и удерживая клавишу Shift при нажатии на четвертая вкладка рабочего листа.
- Щелкните правой кнопкой мыши выбранные вкладки рабочего листа. В Excel отображается контекстное меню.
- В контекстном меню выберите «Переместить» или «Копировать». Excel отображает диалоговое окно “Перемещение или копирование”.
- Выберите параметр (перейти в конец).
- Убедитесь, что установлен флажок “Создать копию”.
- Нажмите “ОК”. Теперь у вас есть 20 копий вашего рабочего листа.
Это может показаться большим количеством шагов, но на самом деле это не так – все, что вы сделали, это использовали перемещение/копирование используйте пять раз вместо 20, чтобы получить желаемое количество листов. Однако к этому подходу есть одно предостережение – если на копируемом листе есть какие-либо определенные таблицы, то вы не сможете пройти шаг 8. Когда вы попробуете шаг 9, вы получите сообщение о том, что вы не можете копировать или перемещать группу листов, если какой-либо из них содержит таблицы. (Вы можете скопировать или переместить один лист, содержащий таблицу, но не группу из них.)
Вы можете использовать еще один ярлык, который не требует использования диалогового окна «Переместить» или «Копировать». коробка. Все, что вам нужно сделать, это выбрать рабочий лист, который вы хотите скопировать, и перетащить имя рабочего листа (на вкладке рабочего листа) вправо. Вы увидите небольшой значок «документ» рядом с указателем мыши. На этом этапе нажмите клавишу Ctrl , и внутри значка появится знак плюса. Когда вы отпускаете кнопку мыши, рабочий лист копируется. Вы также можете копировать группы рабочих листов таким же образом, если, опять же, на рабочих листах в группе нет определенных таблиц.
Другой вариант копирования рабочего листа – это сделать следующее:
- Создайте свой «главный» рабочий лист, если хотите.
- Добавьте достаточно пустых рабочих листов, чтобы у вас было по одному для каждой копии, которую вы хотите сделать. (Хороший способ добавить пустые рабочие листы – нажать Shift + F11 .)
- Выберите главный рабочий лист.
- Нажмите Ctrl + A . Excel выбирает все на основном листе.
- Нажмите Ctrl + C . Теперь все скопировано в буфер обмена.
- Щелкните вкладку рабочего листа для первого созданного вами пустого рабочего листа.
- Удерживайте Shift , щелкнув вкладку рабочего листа для последнего пустого рабочего листа, который вы создали.
- Нажмите Ctrl + V . Содержимое буфера обмена вставляется в каждый из выбранных вами рабочих листов.
Это копирует все из основного рабочего листа, но не копирует некоторые вещи, такие как ширина столбцов, высота строк , или параметры макета печати. Вы можете выполнить некоторые дополнительные действия, чтобы скопировать некоторые из них, но скопировать их все сложно.
Однако для чистой скорости и удобства использование макроса для создания копий (на мой взгляд, ) простейший. Вот очень простой макрос, который будет делать копии выбранного рабочего листа до тех пор, пока в книге не будет 20 рабочих листов:
Sub SimpleCopy1 () Do While Sheets.Count
Если в вашей книге уже есть дополнительные рабочие листы (помимо того, который вы хотите скопировать), вам будет полезно использовать эту версию:
Sub SimpleCopy2 () Dim J как целое число для J = от 1 до 20 ActiveSheet.Copy After: = Sheets (Sheets.Count) Next JEnd Sub
Вы можете сделать свой макрос более универсальным, если он спрашивает пользователя, сколько копий должно быть сделано:
Sub SimpleCopy2 () Dim J As Integer Dim iWanted As Integer On Error GoTo Done iWanted = Cint (InputBox («Количество копий?»)) Если iWanted> 0 и iWanted
Этот макрос также ограничивает количество копий рабочего листа, сделанных от 1 до 200. (Вне этого диапазона он ничего не сделает.) Обработка ошибок добавляется в случае, если в вашей книге уже есть большое количество рабочих листов, а добавление дополнительных превышает количество рабочих листов. допустимо иметь в книге.
Независимо от того, какой макрос вы выберете, рекомендуется добавить его на панель быстрого доступа или назначить ему сочетание клавиш. Таким образом вы сможете очень быстро скопировать свои рабочие листы.
Источник: