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

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

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

Переименование листов на основе определенной ячейки с помощью функции «Пакетное переименование листов»

Переименование листов на основе диапазона значений ячеек с помощью функции «Пакетное переименование листов»

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

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

1. Выберите ячейку, на основе которой вы хотите переименовать лист; в данном случае выберите ячейку A1. См. скриншот:

2. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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 для Excel, вам не нужно сохранять код VBA — вы можете использовать функцию «Пакетное переименование листов», чтобы быстро переименовать все листы на основе их соответствующих ячеек.

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

1. Откройте книгу, в которой вы хотите переименовать названия листов.

2. Щелкните Kutools Plus > Лист > Переименовать листы. См. скриншот:

3. В появившемся диалоговом окне отметьте листы, которые вы хотите переименовать, в панели «Листы», и выберите один из вариантов «Стиль переименования». В данном случае я заменю имя листа, затем выберу вариант «Из соответствующей ячейки листа» и укажу нужную ячейку. См. скриншот:

4. Нажмите ОК. Теперь листы переименованы на основе содержимого указанных ячеек.

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

Переименование листов на основе диапазона значений ячеек с помощью функции «Пакетное переименование листов»

С помощью функции «Пакетное переименование листов» из Kutools для Excel вы также можете переименовать листы на основе выбранного диапазона.

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

1. Щелкните Kutools Plus > Лист > Переименовать листы. См. скриншот:

2. В диалоговом окне «Пакетное переименование листов» необходимо указать следующие параметры:

(1) Выберите листы, которые нужно переименовать, из списка «Листы»;

(2) Установите флажок «Из выборки» и выберите значения ячеек, на основе которых нужно переименовать;

(3) Настройте параметры переименования: вы можете выбрать «Вставить перед исходным именем», «Вставить после исходного имени» или «Заменить исходное имя», а также просмотреть соответствующий результат в диалоговом окне.

3. Нажмите ОК, и все выбранные листы будут переименованы на основе указанных значений ячеек.

Заменить исходное имя листа

Вставить перед исходным именем листа

Вставить после исходного имени листа

С помощью утилиты «Переименовать листы» вы также можете переименовать листы, добавив определенный префикс или суффикс. Нажмите здесь, чтобы узнать больше о функции «Пакетное переименование листов».

Пакетное переименование листов на основе значений ячеек