Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

Переименовать рабочие листы на основе конкретной ячейки с VBA

Переименование таблиц на основе определенной ячейки с переименованием нескольких рабочих листов хорошая идея3

Переименовать рабочие листы на основе диапазона содержимого ячеек с помощью переименования нескольких рабочих листов хорошая идея3


Вставка случайных данных (Введите произвольное целое число, дату, время, строку или пользовательский список в диапазоне.)

excel addin tool для генерации случайных целых чисел
Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Kutools работает с Office 2007-2019 и 365. Он поддерживает все языки и очень прост в установке и развертывании. Полнофункциональная 60-дневная бесплатная пробная версия.


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

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

doc переименовать рабочий лист 1

2. Нажмите Alt + F11 открывать ключи Microsoft Visual Basic для приложений окна.

3. Нажмите Вставить > модуль, затем вставьте ниже кода VBA в новый модуль окна.

VBA: переименовать рабочие листы на основе определенных значений ячейки.

Sub RenameSheet()
'Updateby20150602
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
xRngAddress = Application.ActiveCell.Address
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xWs.Name = xName
    End If
Next
End Sub

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

doc переименовать рабочий лист 2


Если у вас есть Kutools for Excel, вам не нужно сохранять код VBA, вы можете использовать Переименование нескольких рабочих листов чтобы быстро переименовать весь рабочий лист на основе их относительных ячеек.

Kutools for Excel, с более чем 120 удобные функции Excel, повышают эффективность работы и экономят ваше рабочее время.

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

1. Включите книгу, которую вы хотите переименовать в имена своих листов.

2. Нажмите Предприятие > Рабочий лист > Переименование нескольких рабочих листов, Смотрите скриншот:

doc переименовать рабочий лист 11

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

doc переименовать рабочий лист 9

4. Нажмите Ok, Теперь листы переименовываются с определенным содержимым ячейки.

doc переименовать рабочий лист 2

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

doc переименовать рабочий лист 3


Переименование нескольких рабочих листов of Kutools for Excel, вы также можете переименовать листы на основе выбранного диапазона.

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

1. Нажмите Предприятие > Рабочий лист > Переименование нескольких рабочих листов, Смотрите скриншот:

doc переименовать рабочий лист 11

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

(1) Выберите таблицы, которые необходимо переименовать из Список рабочих листов;

(2) Проверка Из определенного диапазона и выберите значения ячеек, которые необходимо переименовать на основе;

(3) Укажите Переименовать параметры, вы можете проверить Вставить перед именем оригинального листа, Вставить после имени оригинального листа или Заменить имя оригинального листа, и вы можете просмотреть соответствующий результат в диалоговом окне.

doc переименовать рабочий лист 10

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

Заменить имя оригинального листа

doc переименовать рабочий лист 6

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

doc переименовать рабочий лист 7

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

doc переименовать рабочий лист 8

С помощью утилиты Rename Multiple Worksheets вы также можете переименовать рабочие листы с определенным префиксом или суффиксом. Нажмите здесь, чтобы узнать больше о переименовании нескольких рабочих листов.


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 22 hours ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]