EXCEL 多变量制作图表遇到的问题

eric_sun

现程序目的：1步、以B4：H14数据区域为源，做个图表。

                      2步、以B19：H29数据区域为源，做个图表。

                      3步、以B34：H44数据区域为源，做个图表。

                       共生成3个图表，依据现实要求可以通过改写变量来增加图表。

现程序如下：

Sub ABC()

    Set Sht2 = Sheets("Sheet2")
    Dim x As Integer, y As Integer, i As Integer, n As Integer
   
    For x = 1 To 3
    For y = 1 To 3   

    For i = 1 To 3
    For n = 1 To 3

    Set myRange = Sht2.Range("B" & 15 * x - 11 & ":H" & 15 * y - 1)
   
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=myRange, PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = Range("C" & 15 * i - 14)
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "TEM"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = Range("C" & 15 * n - 13)
    End With

     Next n
    Next i
 Next y
Next x

End Sub

----------------------------------------------------------------------------------------------------------------------------------------------------

问题：这个程序我想x、y、i、n,这四个变量同时变，可是遇到的问题是有的变有的不变？

求教：这个问题如何解决呢？谢谢！