Перейти к содержимому

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

Author: Xiaoyang Last Modified: 2025-08-07

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

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

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

run vba code to copy a worksheet and rename with a cell value

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


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

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

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

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

1. Нажмите Kutools Plus > Лист > Создать последовательность листов, см. скриншот:

click Create Sequence Worksheets feature of kutools

set options in the dialog box

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

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

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

Скачать Kutools для Excel прямо сейчас!

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

 the specific worksheet have been copied multiple times and renamed with the cell values you selected

Лучшие инструменты для повышения продуктивности в Office

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

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


Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в новых окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни кликов мышью ежедневно!