Question

excel中用vba语句对每一行数据都生成折线图怎么实现？？？

我现在有对超市1000种商品在一个月里每天销售量的统计 我要对这1000行数据每行生成一张折线图，单行的宏可以录制，现在就是不知道怎么用vba语句搞个循环让他自动生成每行的表格……求大牛帮助……
目前对某行数据生成表格的语句如下：
Sub 宏9()
'
' 宏9 宏
'
' 快捷键: Ctrl+q
'
ActiveCell.Offset(-2, -29).Range("A1:AI1").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkersStacked
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$4:$AI$4")
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!$E$3:$AI$3"
End Sub
就是不知道怎么定义一个变量让里面那个4一直循环到1000

Answer 1

for i=4 to 1000
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$" & i & ":$AI$" & i)
next i

Answer 2

这个代码得好好写，不然你图表会很乱

Answer 3

发个数据给我，我抽空看看如何实现，否则，写了东西也不适合你用。
BD.excelclub@gmail.com