Как переименовать листы в Excel на основе значений ячеек?
Переименование листов — обычная практика при работе с Excel, но пробовали ли вы когда-нибудь переименовывать листы на основе значений ячеек? Конечно, это можно делать вручную, но в этом руководстве представлены приёмы для быстрого пакетного переименования листов по значениям ячеек, которые помогут вам сэкономить рабочее время.
Переименовать листы на основе конкретной ячейки с помощью VBA
Переименовать листы на основе конкретной ячейки с помощью Пакетное переименование листов 
Переименовать листы на основе диапазона содержимого ячеек с помощью Пакетное переименование листов
Переименовать листы на основе конкретной ячейки с помощью VBA
С помощью приведённого ниже кода VBA вы сможете переименовать нужный лист, используя значение из указанной ячейки.
1. Выберите ячейку, на основе которой нужно переименовать лист; в данном случае — ячейку A1. См. снимок экрана:
2. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
3. Щёлкните Вставка > Модуль, затем вставьте приведённый ниже код VBA в новое окно Модуль.
VBA: Переименуйте листы, используя значения из указанной ячейки.
Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range(xRngAddress).Value
If xName <> "" Then
xInt = 0
Set xSSh = Nothing
Set xSSh = Worksheets(xName)
While Not (xSSh Is Nothing)
Set xSSh = Nothing
Set xSSh = Worksheets(xName & "(" & xInt & ")")
xInt = xInt + 1
Wend
If xInt = 0 Then
xWs.Name = xName
Else
If xWs.Name <> xName Then
xWs.Name = xName & "(" & xInt & ")"
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub4. Нажмите клавишу F5, чтобы запустить код VBA. После этого все листы будут переименованы в соответствии со значениями ячеек A1 на каждом из них.
Переименовать листы на основе конкретной ячейки с помощью Пакетное переименование листов
Если у вас установлено Kutools для Excel, сохранять код VBA не нужно — воспользуйтесь функцией Пакетное переименование листов, чтобы мгновенно переименовать все листы на основе соответствующих ячеек!
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Активируйте книгу, листы которой вы хотите переименовать.
2. Щёлкните KUTOOLS PLUS > Лист > Переименовать листы. См. снимок экрана:
3. В появившемся диалоговом окне отметьте на панели Листы те листы, которые требуется переименовать, выберите нужный параметр в разделе Вариант переименования (в данном случае будет заменено имя листа), установите флажок Из соответствующей ячейки листа и укажите ячейку, на основе которой нужно выполнить переименование. См. снимок экрана:
4. Нажмите кнопку ОК. Теперь листы переименованы в соответствии с содержимым указанных ячеек.
Однако иногда нужно переименовать сразу несколько листов на основе диапазона значений ячеек, как показано на снимке экрана ниже. В этом случае воспользуйтесь следующим методом.
Переименовать листы на основе диапазона содержимого ячеек с помощью Пакетное переименование листов
С помощью Пакетного переименования листов из набора инструментов Kutools для Excel вы также можете переименовывать листы на основе выбранного диапазона.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Щёлкните KUTOOLS PLUS > Лист > Переименовать листы. См. снимок экрана:
2. В диалоговом окне Пакетное переименование листов укажите следующие параметры:
(1) Выберите листы, которые требуется переименовать, из списка Список листов;
(2) Установите флажок Из выборкии выберите значения ячеек, на основе которых нужно выполнить переименование;
(3) Укажите Стиль переименования. Вы можете выбрать: Вставить перед исходным именем, Вставить после исходного имени или Заменить исходное имя — и сразу увидеть соответствующий результат прямо в диалоговом окне.
3. Нажмите кнопку ОК, и вы увидите, что все выбранные листы переименованы в соответствии с указанными значениями ячеек.
Заменить исходное имя
Вставить перед исходным именем
Вставить после исходного имени
С помощью утилиты Переименовать листы вы также можете Переименовать листы с определённым префиксом или суффиксом.Щелкните здесь, чтобы узнать больше о Пакетное переименование листов.
Пакетное переименование листов на основе значений ячеек
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал 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.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек