我利用VB在excel生成折线，A1:B100 单元格在CHART1生成一根线，d1:e100 单元格CHART1生成一根线。都在CHART1生成。代码如下
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("a1:b100")
ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("d1:e100")

却发现只生成了一根线，只生成了d1:e100，而a1:b100没有生成。求解。

Sub a()
ActiveChart.ChartType = xlXYScatterSmooth
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("a1:b100")
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("d1:e100")
End Sub