更改命名范围

Question

如何创建宏来查找和替换命名范围的一部分。

假设我有CKWH_1，CKWH_2

有没有办法用THR取代KWH，所以它变成了CTHR_1，CTHR_2

谢谢。

Answer 1

Sub Renames()
    Const csOld As String = "KWH"
    Const csNew As String = "THR"

    Dim strN As Name

    For Each strN In ActiveWorkbook.Names
        If InStr(1, strN.Name, csOld) <> 0 Then
            strN.Name = Replace(strN.Name, csOld, csNew)
        End If
    Next strN
End Sub

使用顶部的常量来控制每个名称中要替换的文本以及在其位置插入的内容。