Requested graph is "not-very-typical" for Excel, because for each series, you use different Yvalues and Xvalues. (standard is different Y values but for the same set of eXes).
I'd do this with simple macro.
I recorded a macro while adding second series (column C data), and it was like this:
Sub Makro1()
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=Sheet1!$C$1"
ActiveChart.SeriesCollection(2).XValues = "=Sheet1!$C$2:$C$77"
ActiveChart.SeriesCollection(2).Values = "=Sheet1!$C$80:$C$155"
End Sub
So I used it to create a macro to add all series (just added a loop to tyhe recorded one and used loop's counter to get propper addresses).
So having a graph with one series (column B data) ready and selected, run such a macro:
Sub Makro2()
Dim i As Integer
For i = 2 To Cells(1, Columns.Count).End(xlToLeft).Column + 1
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = "=Sheet1!" & Cells(1, i + 1).Address
ActiveChart.SeriesCollection(i).XValues = "=Sheet1!" & Range(Cells(2, i + 1), Cells(77, i + 1)).Address
ActiveChart.SeriesCollection(i).Values = "=Sheet1!" & Range(Cells(80, i + 1), Cells(155, i + 1)).Address
Next i
End Sub
Bookmarks