沒怎麽用過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的語法,做做練習,挺簡單的,有一晚上就會了。