没怎么用过VBA,但这些Basic语言的东西都是一猜就好了
自动生成的下面这行的常量变成变量就好了:
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$D$3:$J$18")
比如:
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$D$" & Row*31 + 3 & ":$J$" & (Row*31 + 18)")
然后用For循环 Row这个变量,把做表格的部分套进去,比如
For Row = 0 to 99
AcitveChart....
Next
VBA很强大,什么插图一类的操作,你先用record macro做出来,然后看源码就好了
建议花几个小时看看VB的语法,做做练习,挺简单的,有一晚上就会了。