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

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

Пакетное переименование имен диапазонов с помощью макроса

Пакетное переименование имен диапазонов с помощью макроса

Предположим, что в книге есть несколько имен диапазонов, как показано на скриншоте ниже, теперь я переименую их, добавив префикс.

1. Нажмите Alt + F11 чтобы открыть окно Microsoft Visual Basic for Applications и нажмите Вставить > Модуль. См. скриншот:

2. Вставьте следующий код в сценарий Модуля и нажмите F5 для запуска кода.

VBA: Переименование имен диапазонов

Sub RenameCells()
Dim n As Name
    For Each n In ThisWorkbook.Names
        n.Name = "KUTOOLS_" & n.Name
    Next n
End Sub

Теперь все имена диапазонов были переименованы путем добавления указанного префикса. См. скриншот:

Примечание: В приведенном выше коде n.Name = "KUTOOLS_" & n.Name вы можете изменить KUTOOLS на другую строку по вашему усмотрению.

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

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

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