Sub 拆线图()
Dim i, mg As Ranges
Range("b1:k2").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Name = Cells(2, 1)
For i = 2 To 10 '自己改
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Values = Range("b1:k1").Offset(i, 0)
ActiveChart.SeriesCollection(i).Name = Cells(i + 1, 1)
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024