Note: The other languages of the website are Google-translated. Back to English

 Як скопіювати аркуш і перейменувати на основі значення комірки в 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (2)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Код нижче працює чудово. Моє запитання полягає в тому, чи можна автоматично відкрити новий робочий аркуш (на основі A1) та видалити вміст із попереднього аркуша, оскільки він використовується як шаблон. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) Якщо wh.Range("A1").Value "" Тоді ActiveSheet.Name = wh.Range("A1 ").Value End Якщо wh.Activate End Sub
Цей коментар був мінімізований модератором на сайті
Ваш код — це те, що я шукав, але вміст клітинки, який я хочу використовувати для перейменування аркуша, — це дата. Наприклад, на першому аркуші клітинка A2 відображає дату як понеділок, 3 квітня 2017 року. Я хотів би, щоб наступний аркуш був створений макросом, щоб взяти дату з A2, додати 7 до відображення, для наприклад, «понеділок, 10 липня 2017 року», але перейменуйте новий аркуш у форматі дд-мм-рр, тобто «10-07-17». Це можливо? До речі, у мене є Kutools для Excel, але ця електронна таблиця буде записом артеріального тиску для мого тата, який не має Kutools. Спасибі заздалегідь!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL