如何通过VBA宏为现有图表添加指定数据范围的新系列并解决动态引用工作表名称问题

嗨，我明白你遇到的问题了——动态引用工作表名称的时候很容易踩坑，尤其是当工作表名有空格或者特殊字符时，原代码的写法会导致Excel无法正确识别引用范围。咱们一步步来修复这个宏：

修正后的完整代码 #

Sub PyGraph()
'
' PyGraph Macro
'
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 先把当前工作表赋值给变量，更清晰也更稳定
    
    With ActiveChart
        .SeriesCollection.NewSeries
        With .FullSeriesCollection(2)
            .Name = "CL" ' 直接赋值字符串，比带引号的公式写法更简单
            ' 处理工作表名称：如果名称有空格/特殊字符，用单引号包裹
            .Values = "='" & ws.Name & "'!$F$2:$F$256"
            .XValues = "='" & ws.Name & "'!$H$2:$H$256"
            .AxisGroup = 2 ' 指定到次坐标轴
        End With
    End With
    
End Sub

关键修改点说明 #

• 修复工作表名称引用错误：原代码直接用ActiveSheet拼接字符串，这其实是引用工作表对象而非名称字符串。我们改用ws.Name获取工作表的名称，并且用单引号'把名称括起来——这一步很关键，如果工作表名包含空格、数字开头或者特殊字符，Excel必须用单引号包裹才能正确识别单元格引用。
• 简化系列名称写法：原代码里.Name = "=""CL"""虽然能生效，但直接写.Name = "CL"更简洁易懂，最终效果完全一致。
• 增加工作表变量提升稳定性：把ActiveSheet赋值给ws变量，不仅让代码逻辑更清晰，还能避免宏运行过程中因切换工作表导致的ActiveSheet对象变化问题。

额外注意事项 #

运行这个宏之前，要确保你已经选中了目标图表（也就是ActiveChart确实存在），不然会触发对象不存在的错误。如果想让宏自动定位特定图表，可以把ActiveChart改成Sheets("你的工作表名").ChartObjects("图表名称").Chart，这样无需手动选中图表也能执行操作。

备注：内容来源于stack exchange，提问作者helpoatmeal