Как быстро переименовать несколько листов в Excel?

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

Использование команды «Переименовать» для Переименовать листы

Использование удобного инструмента для комфортного пакетного переименования листов

Использование кода VBA для пакетного переименования листов

Использование команды «Переименовать» для Переименовать листы

Мы можем быстро Переименовать листы в Excel с помощью команды:Переименоватьсогласно следующей процедуре:

Щелкните правой кнопкой мыши по вкладке листа, который хотите переименовать, и выберите команду Переименовать в контекстном меню. Либо дважды щёлкните по вкладке листа, чтобы начать переименование. Затем введите новое имя и нажмите клавишу Enter, чтобы завершить переименование (см. снимок экрана):

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

Использование удобного инструмента для комфортного пакетного переименования листов

Использование кода VBA для пакетного переименования листов

Далее я покажу два кода VBA для пакетного переименования листов.

Код 1. Код VBA для массового переименования листов в соответствии с заданными именами

Следующий код VBA позволяет быстро переименовать все листы в текущей книге, добавив к их именам один и тот же префикс — например: KTE-order1, KTE-order2, KTE-order3 и т.д.

1. Щелкните Разработчик > Visual Basic, затем в окне Microsoft Visual Basic для приложений Windows выберите Вставка > Модуль.

2. Скопируйте и вставьте приведённый ниже код в Модуль.

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

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3. Нажмите кнопку , чтобы выполнить код, и введите желаемое имя в появившемся диалоговом окне (см. снимки экрана):

4. Нажмите ОК. После этого все листы будут переименованы.

2. Код VBA для массового переименования листов текущей книги на основе значения указанной ячейки в каждом из них

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

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

2. Щелкните Разработчик > Visual Basic, затем выберите Вставка > Модуль в окне Microsoft Visual Basic для приложений Windows.

3. Скопируйте и вставьте приведённый ниже код в модуль.

VBA: Переименовать листы на основе содержимого определенной ячейки

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4. Нажмите кнопку , чтобы выполнить код. Все листы будут переименованы в соответствии с содержимым ячейки A1.

Демонстрация: Пакетное переименование листов с помощью Kutools для Excel

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