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

 Як скопіювати аркуш і перейменувати на основі значення комірки в Excel?

Зазвичай ви можете застосувати Перемістити або скопіювати скопіюйте аркуш, а потім введіть нову назву копії вручну, як вам потрібно. Але чи пробували ви коли-небудь перейменовувати аркуш на основі значення комірки після копіювання робочого аркуша? У цій статті я розповім про те, як автоматично перейменовувати аркуш на основі значення комірки під час копіювання.

Скопіюйте аркуш і перейменуйте його на основі значення комірки за допомогою коду VBA

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


Скопіюйте аркуш і перейменуйте його на основі значення комірки за допомогою коду VBA

Наступний код VBA може допомогти вам скопіювати аркуш і автоматично перейменувати його з певним значенням комірки.

1. Активуйте аркуш, який потрібно скопіювати, а потім утримуйте кнопку ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Скопіюйте аркуш і перейменуйте зі значенням комірки:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. А потім натисніть F5 ключ для запуску цього коду, і ваш поточний аркуш скопійований до поточної книги після всіх аркушів, і він перейменований із вказаним вами значенням комірки, див.

doc скопіювати raname за значенням 1

примітки: У наведеному вище коді посилання на клітинку A1 - це значення клітинки, яке потрібно перейменувати для нового скопійованого аркуша, ви можете змінити його відповідно до своїх потреб.


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

Вищезазначений код може перейменовувати лише з одним значенням комірки, якщо вам потрібно скопіювати аркуш кілька разів і перейменувати їх на основі списку значень комірок, Kutools для ExcelАвтора Створіть аркуш послідовностей може допомогти вам виконати це завдання якомога швидше.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. 

після установки Kutools для Excel, будь ласка, виконайте наступне:

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

doc скопіювати raname за значенням 3

2, в Створіть аркуш послідовностей у діалоговому вікні виконайте такі операції:

(1.) Виберіть назву робочого аркуша, який потрібно скопіювати з Базовий аркуш випадаючий список;

(2.) Виберіть Дані в опції діапазону під Назви аркушів на основі і натисніть doc скопіювати raname за значенням 5 , щоб вибрати значення комірок, на основі яких потрібно перейменувати скопійовані аркуші.

Завантажте Kutools для Excel зараз!

3. Потім натисніть Ok , а конкретний аркуш було скопійовано кілька разів і перейменовано зі значеннями комірок, вибраними в новій книзі, див.

doc скопіювати raname за значенням 4

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Демо: скопіюйте робочий аркуш кілька разів і перейменуйте на основі значень клітинок за допомогою Kutools для Excel

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

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

🤖 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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" Then ActiveSheet.Name = wh.Range("A1").Value End If wh.Activate End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations