我有一串資料如下
A B C D E
1 星期 數量1 數量2 數量3
2 1 10 10 1
3 2 20 20 2
4 3 30 30 44
5 4 40 20 55
6 5 80 10 66
7 6 30 20 55
我使用繪製XY折線圖錄製巨集
X軸是星期 第一數列是數量1 第二數列是數量2
當我新增數列數量3時，我想要啟動VBA自動抓值
Dim i As integer
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=Sheet1!$B$1"
ActiveChart.FullSeriesCollection(1).XValues = "=Sheet1!$A$2:$A$7"
ActiveChart.FullSeriesCollection(1).Values = "=Sheet1!$B$2:$B$7"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=Sheet1!$C$1"
ActiveChart.FullSeriesCollection(2).XValues = "=Sheet1!$A$2:$A$7"
ActiveChart.FullSeriesCollection(2).Values = "=Sheet1!$C$2:$C$8"
我想請問，這個迴圈i該怎麼加入上述程式集裡
謝謝