Как переименовать имена серий или диапазонов и сделать их глобальные

Question

• У меня есть 2 шаблона (в Excell 2010) с именами «DefaultDesign» и «DefaultDesignMaterials» с несколькими именами ячеек с областью действия книги.Например, имя диапазона называется «DefaultDesign_NumberOfServers» с областью действия рабочей группы.Я хочу скопировать эти 2 шаблона и переименовать их в «Design1» и «Design1Materials», а затем переименовать имя ячейки (или диапазон) «DefaultDesign_NumberOfServers» в «Design1_NumberOfServers» и «DefaultDesign_OS» в «Design1_OS» и т. Д. И т. Д.... Все с областью деятельности рабочей группы.Слишком много имен ячеек и диапазонов ячеек для переименования вручную.

Answer 1

Вы можете циклически перемещаться по списку Имен активной книги, чтобы захватить каждый именованный диапазон, и переименовать его - пример

Sub RangeRename()
Dim N As Name

    For Each N In ActiveWorkbook.Names
        N.Name = N.Name & "_New" ' or any other transformation
    Next N
End Sub

Для манипуляции со строками - если ваши имена постоянно содержат «_»в качестве разделителя между именем файла и именем диапазона вы можете использовать это преобразование:

N.Name = ActiveWorkbook.Name & "_" & Mid(N.Name, InStr(1, N.Name, "_") + 1, 99)

Надеюсь, это поможет.

Удачи - MikeD