Sub 宏2()
'先画出一条
Dim i, x, y
For i = 2 To 4 '4个样本 每17行一个样本
ActiveSheet.ChartObjects("图表 2").Activate '图表名 自己改
ActiveChart.SeriesCollection.NewSeries
x = Range(Cells(2 + (i - 1) * 17, 2), Cells(i * 17, 2))
y = Range(Cells(2 + (i - 1) * 17, 3), Cells(i * 17, 3))
ActiveChart.SeriesCollection(i).XValues = x
ActiveChart.SeriesCollection(i).Values = y
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024