不好意思，我第一次使用VBA，今天晚上已经在网上查了关于loop的语句两个小时了，但是出现的例子都和我问的不相关，只好厚着脸皮贴个帖子麻烦大家了。
我要做的其实很简单，就是在excel做100个表。第一个表的范围是D3到J18（横坐标是C4到C18），第二张表的数据是往下走31行，即D34到J49（横坐标是C35到C49），以此类推，每张表格的数据都往下31行。总共要做100张图。
我学习了record macro，以下是做第一张表格的宏。我看了一些for语句的应用，但是如何把行数换成自动升值的数字呢？不知道能否请教一下有经验的朋友，我要如何改动下面的宏，可以实现自动生成100个表格呢？
另外，不知道有没有语句可以让这个生成的图放到指定的位置。比如第一张图，我希望左上角放在C19（紧挨着数据），第二张图，我希望放在C50........
Sub graph()
'
' graph Macro
'
'
Range("D3:J18").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$D$3:$J$18")
ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection(1).XValues = "='Sheet1'!$C$4:$C$18"
End Sub