就是循环+字符串转化的问题吧

没怎么用过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的语法，做做练习，挺简单的，有一晚上就会了。