Перейти к основному содержанию

Как быстро создать несколько листов одного формата в Excel?

Например, вы создали лист с определенным форматированием и теперь хотите создать несколько листов с тем же форматом, что и этот лист, как вы могли бы быстро решить эту задачу в Excel? В этом руководстве рассказывается о методах создания нескольких листов одного формата.

Создавайте листы с одинаковым форматом с помощью перемещения или копирования

Создавайте листы с одинаковым форматом с помощью VBA

Создайте листы с одинаковым форматом, скопировав несколько рабочих листов Kutools for Excel хорошая идея3


Создавайте листы с одинаковым форматом с помощью перемещения или копирования

В Excel вы можете использовать команду «Переместить» или «Копировать», чтобы создать лист в том же формате, что и выбранный вами лист.

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

лист документов того же формата 1

2. Затем в появившемся диалоговом окне отметьте Создать копию вариант. Смотрите скриншот:

лист документов того же формата 2

3. Нажмите OK. Новый лист создается в том же формате перед выбранным листом. Смотрите скриншот:

лист документов того же формата 3

Внимание:

(1) Вы также можете нажать Главная > Формат > Переместить или скопировать лист для Переместить или скопировать Диалог.

(2) Использование этого метода займет много времени, когда вам нужно будет создать сотни листов с одинаковым форматом.


Создавайте листы с одинаковым форматом с помощью VBA

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

1. Нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно, затем щелкните Вставить > Модулископируйте и вставьте приведенный ниже код в Модули окно.

VBA: создавайте листы того же формата.

Sub CopyWorkSheets()
'Updateby20150526
Dim xNumber As Integer
Dim xWsName As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
xWsName = Application.InputBox("Copy worksheet name", xTitleId, , Type:=2)
xNumber = Application.InputBox("Copy number", xTitleId, , Type:=1)
For i = 1 To xNumber
    Application.ActiveWorkbook.Sheets(xWsName).Copy _
    After:=Application.ActiveWorkbook.Sheets(xWsName)
Next
End Sub

2. Нажмите F5 нажмите клавишу для запуска кода VBA, затем появится диалоговое окно, в котором вы можете ввести имя рабочего листа, необходимое для копирования его формата.

лист документов того же формата 4

3. Нажмите OK, и укажите необходимое количество копий в другом всплывающем диалоговом окне. Смотрите скриншот:

лист документов того же формата 5

4. Нажмите OK. Затем создается шесть копий рабочих листов в том же формате.


Создайте листы с одинаковым форматом, скопировав несколько рабочих листов Kutools for Excel

Если вам не нравится использовать VBA, я представляю вам удобный инструмент - Kutools for Excel, вы можете использовать его Копировать рабочие листы утилита для быстрого и легкого создания листов одинакового формата.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После бесплатная установка Kutools for Excel, сделайте следующее:

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

документ копировать несколько листов 1

2. в Копировать несколько листов диалог, сделайте как показано ниже:

(1) Отметьте имя рабочего листа, формат которого вы хотите скопировать, из списка Скопируйте выбранные листы;

(2) Укажите количество копий;

(3) Укажите место, куда вы хотите поместить копии.

лист документов того же формата 7

3. Нажмите Ok, появится диалоговое окно, напоминающее об успешном создании копий. Нажмите OK закрыть его.

лист документов того же формата 8

Теперь вы можете видеть, что указанное количество листов было создано в том же формате.
doc kutools копировать рабочие листы 4

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

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Are you able to add in code to the VBA by automatically changing the sheet name? instead of doing that manually?
This comment was minimized by the moderator on the site
Thank you SO MUCH! I've always created multiple sheets, then copy/paste the data, but that doesn't copy over the "print gridlines" formatting, which I often forget to select. The actual copy/ paste bit doesn't save me that much in actual min:sec, but it saves me so much in aggravation. I love this! I've copied your instructions and will use them every month from now on. Thank you, again!
This comment was minimized by the moderator on the site
I created a file that contains 12 sheets, one for each month. Each month should have the same page format. I finished decorating my page but when I look at each sheet, I realize that only January, March, July, and September were modified. Why did this happen? How do I fix it?
This comment was minimized by the moderator on the site
Which method you use? Both of above methods, you need to format a sheet first, then apply the methods.
This comment was minimized by the moderator on the site
I need multiple copies of the entire WORKBOOK with multiple sheets in each book.
This comment was minimized by the moderator on the site
Directly copy the workbooks and paste them in several copies with different names?
This comment was minimized by the moderator on the site
I NEED TO CREATE TIMESHEETS FOR 25 WORKERS EVERY MONTH USING 1 TIMESHEET FORMAT, HOW DO I CHANGE THE NAMES ONCE SO THAT IT PRINTS ALL 25 TIMSHEETS WITH EACH WORKERS NAME
This comment was minimized by the moderator on the site
You can use Kutools for Excel's Create Sequence Worksheet utility to solve your problem. For more details, you can refer to this site:https://www.extendoffice.com/product/kutools-for-excel/create-sequence-worksheets.html
This comment was minimized by the moderator on the site
I was hoping to do something similar, but wayyy more complicated. Do you have tips?

----
I have to create 79 tabs in excel using a standard template [see below], but that references sequential values in a separate worksheet. We will call the template worksheet "Template" and the worksheet that contains the reference values "Reference". I need help creating a macro to do the following:

1) Copy the template 79 times.


2) Name each new worksheet according to the sequential rows in column F of "Reference" (so the first copy of "Template" would have a name defined in F3 in the "Reference" sheet. the second copy of "Template" would have a name defined by F4, etc. etc. etc).


3) Set the values of cells in the new worksheets (i.e. the copies of "Template") equal to sequential rows in Column A, B, C, D, E of the worksheet "Reference", such that copy 1 of the "Template" references cells A3, B3, C3, D3 and E3; copy 2 of the "Template" references cells A4, B4, C4, D4, E4; etc.
This comment was minimized by the moderator on the site
Firstly, you can use the Split Data utility function of Kutools to split each row or the range to a separate sheet in a new workbook, then copy the column or "reference" which use to name the sheet to one of the sheet in the new workbook, and apply Rename Multiple Worksheet and check From specific range to select the cells you have copied to rename the sheets. Then remove the reference cells.
This comment was minimized by the moderator on the site
I do not why one file is missing after reply~here are the complicated screenshots, 1,3,4,5,6.
This comment was minimized by the moderator on the site
THANK YOU!! I needed 15 copies of a worksheet and it would've taken me ages to do without this. Thanks a million.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations