Перейти до основного матеріалу

Як швидко створити кілька аркушів з однаковим форматом в Excel?

Наприклад, ви створили аркуш із певним форматуванням, і тепер ви хочете створити декілька аркушів з однаковим форматом, як цей аркуш. Як ви могли швидко вирішити це завдання в Excel? Цей підручник розповідає про методи створення декількох аркушів з однаковим форматом.

Створюйте аркуші з однаковим форматом за допомогою "Перемістити" або "Копіювати"

Створюйте аркуші з однаковим форматом від VBA

Створіть аркуші з однаковим форматом за допомогою Копіювання кількох робочих аркушів Kutools для Excel гарна ідея3


Створюйте аркуші з однаковим форматом за допомогою "Перемістити" або "Копіювати"

В Excel ви можете скористатися командою "Перемістити" або "Копіювати", щоб створити аркуш із тим же форматом, що і аркуш, який ви вибрали.

1. Клацніть на аркуші з потрібним форматом на Листок вкладкита клацніть правою кнопкою миші, щоб вибрати Перемістити або скопіювати з контекстного меню. Дивіться знімок екрана:

аркуш документа з однаковим форматом 1

2. Потім у діалоговому вікні, що з’являється, поставте галочку Створіть копію варіант. Дивіться знімок екрана:

аркуш документа з однаковим форматом 2

3. клацання OK. Спереду вибраного аркуша створюється новий аркуш із однаковим форматом. Дивіться знімок екрана:

аркуш документа з однаковим форматом 3

примітки:

(1) Ви також можете клацнути Головна > сформований > Переміщення або копіювання аркуша щоб включити Перемістити або скопіювати діалог

(2) За допомогою цього методу буде багато часу, коли вам потрібно створити сотні аркушів з однаковим форматом.


Створюйте аркуші з однаковим форматом від VBA

Існує код VBA, який допоможе вам швидко створити кілька аркушів з однаковим форматом одночасно.

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

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 для Excel

Якщо вам не подобається користуватися VBA, я представляю вам зручний інструмент - Kutools для Excel, ви можете використовувати його Скопіюйте робочі аркуші утиліта для швидкого та простого створення аркушів з однаковим форматом.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 

після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.

1. клацання Kutools Plus > Робочий аркуш > Скопіюйте робочі аркуші. Дивіться знімок екрана:

doc скопіювати кілька аркушів 1

2 В Скопіюйте кілька аркушів діалогове вікно, виконайте вказані нижче дії

(1) Позначте ім’я робочого аркуша, для якого потрібно скопіювати його формат, із списку Скопіюйте вибрані аркуші;

(2) Вкажіть кількість копій;

(3) Вкажіть місце, куди потрібно розмістити копії.

аркуш документа з однаковим форматом 7

3. клацання Ok, вискакує діалогове вікно, щоб нагадати, що копії успішно створені. Клацніть OK закрити його.

аркуш документа з однаковим форматом 8

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

Натисніть тут, щоб дізнатися більше про копіювання кількох аркушів

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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