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

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

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

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

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

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

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

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

С помощью этой команды Переименовать вы можете переименовать только один рабочий лист за раз. Для переименования нескольких листов повторите вышеуказанные действия.

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

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

Здесь я представлю вам два VBA-кода для переименования нескольких листов.

Код 1. VBA-код для переименования нескольких листов сразу желаемым именем

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

1. Нажмите Разработчик > Visual Basic, затем нажмите Вставить > Модуль в окне Microsoft Visual Basic Application 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. Нажмите OK. Теперь вы увидите, что все листы переименованы.

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

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

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

2.  Нажмите Разработчик > Visual Basic, затем нажмите Вставить > Модуль в окне Microsoft Visual Basic Application 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

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