不好意思，我第一次使用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
