要用到宏吧,放到模块里面
例如
Sub t()
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=Sheet1!$A$1:$A$11" ‘修改部分1,名字
ActiveChart.SeriesCollection(1).Name = "=Sheet1!$B$1:$B$11" ‘修改部分2,数据
End Sub
用offset偏移函数,引用数据。
看表格里的公式》定义名称。