Как переименовать листы на основе значений ячеек в 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 Sub
4. Нажмите F5 ключ для запуска кода VBA. Затем все листы были переименованы по каждому относительному значению ячейки A1.
Переименование листов на основе определенной ячейки с помощью функции «Переименовать несколько листов»
Если вы только что Kutools for Excel, вам не нужно сохранять код VBA, вы можете использовать Переименовать несколько листов функция для быстрого переименования всего рабочего листа на основе их относительных ячеек.
Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Включите книгу, для которой вы хотите переименовать ее имена рабочих листов.
2. Нажмите Кутулс Плюс > Рабочий лист > Переименовать листы. Смотрите скриншот:
3. Затем в появившемся диалоговом окне отметьте листы, которые вы хотите переименовать, в Worksheets панели и выберите один из Переименовать вариант вам нужно, здесь я заменю имя листа, потом проверю Переименовать листы с определенной ячейкой, и выберите ячейку, которую нужно переименовать. Смотрите скриншот:
4. Нажмите Ok. Теперь листы переименованы с определенным содержимым ячеек.
Но иногда вам нужно переименовать несколько листов на основе диапазона значений ячеек, как показано на скриншоте ниже, в этом случае вы можете выбрать ниже метод.
Переименование листов на основе содержимого ячеек с помощью функции «Переименовать несколько листов»
Доступно Переименовать несколько листов of Kutools for Excel, вы также можете переименовывать листы на основе выбранного диапазона.
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Нажмите Кутулс Плюс > Рабочий лист > Переименовать листы. Смотрите скриншот:
2. в Переименовать несколько листов диалоговом окне необходимо указать следующие параметры:
(1) Выберите листы, которые нужно переименовать, из Список рабочих листов;
(2) Проверить Из определенного диапазона вариант и выберите значения ячеек, которые необходимо переименовать на основе;
(3) Укажите Параметры переименования, вы можете проверить Вставить перед именем исходного листа, Вставить после имени исходного листаили Заменить исходное имя листа, и вы можете предварительно просмотреть соответствующий результат в диалоговом окне.
3. Нажмите Ok, а затем вы увидите, что все выбранные вами листы были переименованы на основе указанных значений ячеек.
Заменить исходное имя листа
Вставить перед именем исходного листа
Вставить после имени исходного листа
С помощью утилиты Rename Worksheets вы также можете переименовывать рабочие листы с определенным префиксом или суффиксом. Щелкните здесь, чтобы узнать больше о переименовании нескольких листов.
Переименование нескольких листов на основе значений ячеек
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!