关于vba循环生成图表

jiekey489

ActiveChart.SetSourceData Source:=Sheets("report1").Range(Cells(7, 1), Cells(8, 12)), PlotBy:=xlRows ActiveChart.SetSourceData Source:=Sheets("report1").Range("A7:L8"), PlotBy:=xlRows ActiveChart.Location Where:=xlLocationAsObject, Name:="report2"

这样是对的，可是为了循环，不能用Range("A7:L8")，把这个句子改为

ActiveChart.SetSourceData Source:=Sheets("report1").Range(Cells(7, 1), Cells(8, 12)), PlotBy:=xlRows就不行了，更不用说cells中带参数了，不知道怎么解决啊？

刚开始用excel，不懂得地方太多了。谢谢大家

snood

.Range("A" & I & ":L" & J)

jiekey489

可是如果 A, L行和列也要变动怎么办啊？

snood

Dim rng As Range Set rng = Sheets("Sheet1").Range(Cells(2, 1), Cells(6, 2))

Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=rng ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

jiekey489

终于搞定了，谢谢：）