如何用VBA自动创建带动态数字的Excel命名范围及解决显示异常

• 核心逻辑错误：给Names.Add的RefersTo参数传入的是Selection.Address(External:=True)生成的纯地址文本，没有带引用要求的前导等号，Excel会直接把这段文本识别为固定常量值，而非动态关联单元格的区域引用，最终导致名称管理器里“值”和“引用位置”都显示地址文本，无法读取区域实际内容。
• 稳定性缺陷：原代码依赖Select操作，且Cells没有限定所属工作表，一旦运行时代码激活的工作表不是TTMIS，就会引用到错误的单元格区域。
• 参数不匹配：循环步长设为4，对应列号每次偏移4格，不符合“与起始列相隔5列”的需求。

Sub AddNamesMacro()
    Dim startingrow As Integer
    startingrow = 1
    Dim endingrow As Integer
    endingrow = 1000
    Dim targetSheet As Worksheet
    Dim targetRange As Range
    ' 直接绑定目标工作表，从根源避免引用错位
    Set targetSheet = ThisWorkbook.Worksheets("TTMIS")
    
    ' i为列偏移量：从第1列开始，每次偏移5列，匹配“相隔5列”的要求
    For i = 0 To 100 Step 5
        ' 通过坐标直接获取目标列的单元格范围，无需执行Select操作，运行无界面闪烁
        Set targetRange = targetSheet.Range( _
            targetSheet.Cells(startingrow, 1 + i), _
            targetSheet.Cells(endingrow, 1 + i) _
        )
        ' 直接传入Range对象作为引用，VBA会自动生成规范的绝对引用格式
        ThisWorkbook.Names.Add _
            Name:="IS_AccountNames_Year" & i, _
            RefersTo:=targetRange
    Next i
End Sub

• 代码运行生成的命名范围，会依次覆盖A列（偏移0）、F列（偏移5）、K列（偏移10）的1-1000行区间，完全符合“隔5列处理一次”的要求。
• 生成的命名范围会被Excel正确识别为动态单元格引用：名称管理器中“值”列会显示对应区域左上角单元格的实际内容，“引用位置”列指向正确的表内区域，不会再出现地址文本被当成常量的问题。
• 如果需要调整起始列位置，只要把代码里的1 + i替换成对应的起始列号即可，步长保持5就满足相隔5列的需求。

内容的提问来源于stack exchange，提问作者Dmitriy