excel散点图添加多组数据

Question

有两百多个样本，一个样本有x，y两组数据。
需要在一张散点图上制作这两百多个样本的散点曲线。
就是不停的添加数据，但工作量太大。
我才学会宏，不知道能不能实现，感觉不能。
vba应该可以，所以来求助vba大神们。
下图是我做的4个样本的示意图，我要做200多个样本，实在扛不住啊。跪谢。。。

Answer 1

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