请教一个VBA中range问题

[aioria0815]

我想用VBA生成一个折线图，数据区域是不相邻的两列。

Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Summary").Range("K4:K27","N4:N27")，PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Summary"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Retest Rate by Week"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Week"
.Axes(xlValue, xlPrimary).HasTitle = False
.HasLegend = False

End With
问题是,我选的range区域是不固定的,是从Cells(4,12)到Cells(i,12)和cells(4,14)到Cells(i,14)两列,但是range没法用变量表示啊,我刚接触VBA,所以哪位高手告诉我应该怎么表示才能达到我的目的呢?谢谢了

[ChinaOBS]

可以这样表示：
ActiveChart.SetSourceData Source:=Sheets("Summary").Range("K" & i & ":K" & j,"N" & i & ":N" & j")，PlotBy:=xlColumns

[aioria0815]

非常感谢，结贴