Excel 图表批量添加系列

代码：

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