KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

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

АвторКеллиДата изменения

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

Динамическое переименование листа по значению ячейки с помощью VBA

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

Шаг 1: Щёлкните правой кнопкой мыши по имени листа, который вы хотите динамически переименовывать на основе значения ячейки, и выберите в контекстном меню пункт Просмотреть код.
Щелкните правой кнопкой мыши по имени листа и выберите «Просмотреть код»

Шаг 2: В открывшемся окне Microsoft Visual Basic for Applications вставьте следующий код VBA в окно модуля.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Совет: Этот код VBA автоматически переименовывает лист в соответствии со значением в ячейке A1. При необходимости вы можете заменить «A1» на любую другую ячейку.

Шаг 3: Сохраните код VBA и закройте окно Microsoft Visual Basic for Applications.

Теперь вы увидите, как имя листа динамически меняется в зависимости от значения указанной ячейки.

Примечания:

  • Если указанная ячейка пуста, лист не переименуется.
  • Лист будет автоматически переименовываться при каждом изменении значения в указанной ячейке.
  • Если в указанную ячейку ввести специальные символы, например «*», появится предупреждение об ошибке.

Переименование нескольких листов на основе значений ячеек в соответствующих листах

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

Kutools для Excelпредлагает более 300 расширенных функций для упрощения сложных задач, повышая креативность и эффективность.Интегрировано с возможностями ИИ, Kutools автоматизирует задачи с высокой точностью, делая управление данными простым и удобным.Подробная информация о Kutools для Excel…         Бесплатная пробная версия…
  1. Нажмите KUTOOLS PLUS > Лист > Переименовать листы. См. скриншот:
    нажмите функцию «Переименовать листы» Kutools
  2. В открывшемся диалоговом окне Пакетное переименование листоввыполните следующие действия:
    1. В списке Листы отметьте те листы, которые вы хотите переименовать.
    2. В разделе Стиль переименования отметьте опцию Заменить исходное имя.
    3. В разделе Источник имени файла отметьте опцию Из соответствующей ячейки листа и укажите ячейку, содержимым которой будете переименовывать соответствующий лист.
    4. Нажмите кнопку ОК.

Теперь все выделенные листы переименованы согласно указанной ячейке на каждом из них. См. скриншот:

укажите параметры и получите результат

Примечание: Хотите воспользоваться функцией Пакетное переименование листов? Скачайте Kutools для Excel прямо сейчас! Помимо этого, Kutools предлагает более 300 других полезных функций и 30-дневную бесплатную пробную версию. Не откладывайте — попробуйте уже сегодня!

Переименование нескольких листов из указанного списка

Функция Пакетное переименование листов в Kutools для Excel также позволяет переименовывать сразу несколько листов на основе значений ячеек из указанного списка.

Kutools для Excelпредлагает более 300 расширенных функций для упрощения сложных задач, повышая креативность и эффективность.Интегрировано с возможностями ИИ, Kutools автоматизирует задачи с высокой точностью, делая управление данными простым и удобным.Подробная информация о Kutools для Excel…         Бесплатная пробная версия…
  1. Нажмите KUTOOLS PLUS > Лист > Переименовать листы.
    нажмите функцию «Переименовать листы» Kutools
  2. В открывшемся диалоговом окне Пакетное переименование листовнастройте следующим образом:
    1. В списке Листы выберите листы, которые хотите переименовать.
    2. В разделе Стиль переименованияотметьте опцию Заменить исходное имя.
    3. В разделе Источник имени файла отметьте опцию Из выборки, затем нажмите кнопку , чтобы открыть второе диалоговое окно Пакетное переименование листов (см. скриншот справа). Далее выберите диапазон ячеек, по значениям которых будут переименованы листы, и нажмите кнопку ОК.
    4. Нажмите кнопку ОК, чтобы применить переименование.
    5. укажите параметры в диалоговом окневыберите значения ячеек

Теперь имена всех отмеченных листов заменятся значениями ячеек из указанного списка. См. скриншот ниже:
имена листов заменены значениями ячеек

Примечание:Хотите воспользоваться функцией Пакетное переименование листов? Скачайте Kutools для Excelпрямо сейчас! Кроме этого, Kutools предлагает множество других функций (300+) и 30-дневную бесплатную пробную версию. Не откладывайте — попробуйте уже сегодня!

Демонстрация: присвоение имён листам на основе значений ячеек (из списка) в Excel

 

Связанные статьи:

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

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 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 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек