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

 Как скопировать лист и переименовать на основе значения ячейки в Excel?

Обычно вы можете применять Переместить или скопировать для копирования рабочего листа, а затем введите новое имя для копии вручную по мере необходимости. Но пробовали ли вы когда-нибудь переименовать лист на основе значения ячейки после копирования рабочего листа? В этой статье я расскажу о том, как автоматически переименовать рабочий лист на основе значения ячейки при создании копии.

Скопируйте рабочий лист и переименуйте на основе значения ячейки с кодом VBA

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


Скопируйте рабочий лист и переименуйте на основе значения ячейки с кодом VBA

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

1. Активируйте рабочий лист, который вы хотите скопировать, а затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код 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 ключ для запуска этого кода, и ваш текущий рабочий лист был скопирован в текущую книгу после всех рабочих листов, и он переименован с указанным вами значением ячейки, см. снимок экрана:

документ скопировать raname по значению 1

Внимание: В приведенном выше коде ссылка на ячейку A1 - это значение ячейки, которое вы хотите переименовать для нового скопированного листа, вы можете изменить его по своему усмотрению.


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

Приведенный выше код можно переименовать только с одним значением ячейки, если вам нужно скопировать лист несколько раз и переименовать их на основе списка значений ячеек, Kutools for ExcelАвтора Создать рабочий лист последовательности может помочь вам выполнить эту задачу как можно быстрее.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

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

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

документ скопировать raname по значению 3

2. В Создать рабочий лист последовательности диалоговом окне выполните следующие операции:

(1.) Выберите имя рабочего листа, который вы хотите скопировать из Базовый рабочий лист раскрывающийся список;

(2.) Выберите «Данные в диапазоне» под Имена листов на основе раздел и нажмите документ скопировать raname по значению 5 кнопку, чтобы выбрать значения ячеек, на основе которых вы хотите переименовать скопированные листы.

Загрузите Kutools для Excel прямо сейчас!

3. Затем нажмите Ok кнопку, и конкретный рабочий лист были скопированы несколько раз и переименованы значениями ячеек, которые вы выбрали в новой книге, см. снимок экрана:

документ скопировать raname по значению 4

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


Демонстрация: скопируйте рабочий лист несколько раз и переименуйте на основе значений ячеек с помощью Kutools for Excel

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

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

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

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

вкладка kte 201905


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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