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

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

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

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

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

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Edge, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

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

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

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

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

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

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

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

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

1. Нажмите на Застройщик > Визуальный Бейсики нажмите Вставить > Модули в Приложение 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. Нажмите OK. Затем вы увидите, что все листы переименованы.

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

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

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

2.  Нажмите Застройщик > Визуальный Бейсики нажмите Вставить > Модули в Приложение Microsoft Visual Basic Окон.

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 for Excel

Статьи по теме