代码：
Sub NewSeries()
Dim i As Integer
i = 0
For A = Asc("A") To Asc("G")
For B = Asc("A") To Asc("F")
i = i + 1
Dim XV, YV As String
XV = Chr(A) + Chr(B) + "!$B$16:$B$79"
YV = Chr(A) + Chr(B) + "!$c$16:$c$79"
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).XValues = XV
ActiveChart.SeriesCollection(i).Values = YV
ActiveChart.SeriesCollection(i).Name = "系列" & I
Next B
Next A
End Sub
image.png
