VBA为Excel动态图表添加系列触发1004运行时错误求助

你代码的错误全部集中在If分支内的系列属性赋值环节，没有外部依赖问题：

• 命名区域的调用逻辑完全错误：ActiveSheet.Names("RSr").Value本身已经是带等号开头的合法单元格引用字符串（例如=Sheet1!$C$10:$C$35），对其执行Evaluate会直接返回对应的Range对象，后续将该对象和固定文本拼接为地址时，Range会被自动转换为内部数值数组，最终生成的字符串完全不符合Excel的地址语法规则，必然触发对象定义类错误。
• 工作表名拼接存在兼容性漏洞：直接拼接ActiveSheet.Name生成引用的写法，一旦工作表名包含空格、特殊字符，没有用单引号包裹工作表名称，Excel同样无法识别该地址，触发1004。

Sub UpdateChart()
    Dim chrt As ChartObject
    Dim chrtsercoll As SeriesCollection
    Dim chtser As Series
    ' 绑定目标图表对象
    Set chrt = ActiveSheet.ChartObjects(1)
    Set chrtsercoll = chrt.Chart.SeriesCollection
    ' 清空图表原有系列
    For Each chtser In chrtsercoll
        chtser.Delete
    Next chtser
    ' 残差序列匹配分支
    If Range("C21").Value = "residual series" Then
        Dim newSeries As Series
        Set newSeries = chrtsercoll.NewSeries
        ' 给工作表名加单引号做全场景兼容
        newSeries.Name = "='" & ActiveSheet.Name & "'!B15"
        ' 直接使用命名区域的合法引用，无需额外Evaluate转换
        newSeries.Values = ActiveSheet.Names("RSr").Value
        ' 设置折线图类型
        chrt.Chart.ChartType = xlLine
    End If
End Sub

• 如果修正后赋值Values环节仍报错，检查命名区域RSr的定义：确认它指向连续的单元格区域，没有定义为输出数组的公式名称，也没有绑定整行/整列这类无效范围。
• 后续为系列添加X轴分类标签时，遵循同样的引用规则即可，不需要额外对地址字符串做Evaluate转换。

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