Простые способы переименования листа в Excel

В Microsoft Excel переименование листов помогает эффективнее организовывать и быстрее находить нужные данные. В этом руководстве описаны различные способы переименования одного или нескольких листов одновременно, а также приведены основные правила именования листов в Excel.

Переименование одного листа Дважды щелкните по ярлычку листа Щелкните правой кнопкой мыши по ярлычку листа Использование сочетания клавиш Пакетное переименование листов Настройка пакетного переименования для определённых/всех листов Метод VBA для переименования всех листов Правила именования листов в Excel

Видео: Переименование листов в Excel

Переименование листа в Excel

В Excel есть три простых способа переименовать лист. Давайте подробнее рассмотрим каждый из них.

Переименование листа двойным щелчком по вкладке листа

1. Дважды щёлкните ярлычок листа, который хотите переименовать, чтобы активировать режим редактирования имени.
2. Введите нужное имя для листа и нажмите Enter.

Переименование листа правым щелчком по вкладке листа

1. Щёлкните правой кнопкой мыши по ярлыку листа, который вы хотите переименовать.
2. В появившемся раскрывающемся меню выберите Переименовать, чтобы активировать режим редактирования имени.
3. Введите новое имя и нажмите Enter.
4. 

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

1. Выберите вкладку листа, который вы хотите переименовать.
2. Нажмите последовательно Alt + H + O + R, чтобы активировать режим редактирования имени.
3. Введите ваше Новое имя и нажмите Enter.

Переименование нескольких листов в Excel

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

Переименование выбранных/всех листов с помощью универсального инструмента

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

После установки Kutools для Excel перейдите на вкладку KUTOOLS PLUS и выберите Лист > Переименовать листы. В появившемся диалоговом окне выполните следующие действия:

1. Выберите листы, которые вы хотите переименовать.
2. Выберите нужные параметры для переименования.
3. Выберите источник имени.Если вы выберете параметр Из поля ввода, необходимо ввести значение в поле ввода.
4. 

Результат

Выбранные листы мгновенно переименовываются в соответствии с заданными параметрами.

Переименование всех листов с помощью VBA (сложный способ)

В этом разделе представлены два кода VBA: один добавляет префикс или суффикс ко всем именам листов, а другой переименовывает все листы на основе значения указанной ячейки в каждом из них.

Шаг 1: создание нового модуля

1. Нажмите Alt + F11, чтобы открыть редактор Visual Basic для приложений (VBA).
2. Щелкните Вставка > Модуль, чтобы создать новый модуль.
3. Модуль в редакторе VBA" />

Шаг 2: копирование кода VBA в окно модуля

Скопируйте один из приведённых ниже кодов VBA и вставьте его в открывшееся окно Модуля в соответствии с вашими потребностями.

• Код VBA 1: добавление префикса/суффикса ко всем именам листов

• Sub renameSheetsWithPrefixSuffix()
  'Update by ExtendOffice
      Dim xWs As Worksheet
      Dim xPrefix As String
      Dim xSuffix As String
      xPrefix = "MyPre_" 'Replace "MyPre_" with your desired prefix.
      xSuffix = "_MySuf" 'Replace "_MySuf" with your desired suffix.
      On Error Resume Next
      For Each xWs In Worksheets
          xWs.Name = xPrefix & xWs.Name & xSuffix 'This snippet adds both prefix and suffix to sheet names. Adjust as needed.
      Next xWs
  End Sub

• Примечание:

  • Чтобы добавить префикс и суффикс ко всем именам листов в этом коде, замените «MyPre_» и «_MySuf» в шестой и седьмой строках на нужные вам префикс и суффикс соответственно.
  • Чтобы добавить только префикс, замените десятую строку кода на xWs.Name = xPrefix & xWs.Name.
  • Чтобы добавить только суффикс, замените десятую строку кода на xWs.Name = xWs.Name & xSuffix.
• Код VBA 2: переименование всех листов на основе значения указанной ячейки в каждом листе

• Sub renameSheetsBasedOnCellValue()
  'Update by ExtendOffice
      Dim xWs As Worksheet
      Dim xRgAddress As String
      xRgAddress = "A1" 'Replace "A1" with your target cell address.
      On Error Resume Next
      For Each xWs In Worksheets
          xWs.Name = xWs.Range(xRgAddress).Value
      Next xWs
  End Sub

• Примечание: В этом коде VBA не забудьте заменить «A1» в пятой строке на фактический адрес ячейки, содержащей новое имя для каждого листа. Также убедитесь, что указанная ячейка (в данном случае A1) на каждом листе заполнена значением — иначе при выполнении этого кода VBA возникнет ошибка времени выполнения «1004».

Шаг 3: выполнение кода VBA

В окне Модуля нажмите F5 или щелкните кнопку , чтобы выполнить вставленный код.

Результат

• Результат выполнения кода VBA 1: Ко всем именам листов добавлены префикс «Pre_» и суффикс «_Suf».
• 
• Результат выполнения кода VBA 2: Все листы переименованы в соответствии со значениями в ячейке A1 каждого из них: «Test1», «Test2» и «Test3» соответственно.
• 

Правила именования листов в Excel

При переименовании листов необходимо соблюдать несколько правил:

• Имя листа должно быть уникальным в пределах одной книги.
• Название листа не должно содержать более 31 символа.
• Имя листа не может быть пустым.
• Имя листа не должно содержать следующие символы: \ / ? : * [ ].
• Имя листа не должно начинаться или заканчиваться апострофом ()'), но его можно использовать в середине имени.
• Имя листа не должно быть History, так как это имя зарезервировано Excel для внутреннего использования.

Следуя этому руководству, вы сможете эффективно переименовывать листы в Excel для лучшей организации и управления данными. Надеемся, что материал оказался полезным! Если хотите освоить ещё больше советов и приёмов работы в Excel, щёлкните здесь, чтобы получить доступ к нашей обширной коллекции из тысяч обучающих материалов.

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

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