軟體:Excel
版本:Office 365
請問我想要做xy圖表
A1、D1、G1、J1、M1...=圖表名稱
B1:B1400、E1:E1400、H1:H1400、K1:K1400...=x軸
C1:C1400、F1:F1400、I1:I1400、L1:L1400...=y軸
vba如下
Sub Chartxy()
Range("B1400:C1400").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Range("工作表1!$B$1:$C$1065")
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Name = "=工作表1!$A$1"
Dim i As Integer
For i = 2 To 48
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = "=工作表1!$D$1"
ActiveChart.SeriesCollection(i).XValues = "=工作表1!$E$1:$E$1400"
ActiveChart.SeriesCollection(i).Values = "=工作表1!$F$1:$F$1400"
Next i
End Sub
請問如何把 工作表1! 改成像上述的遞增
謝謝!

range("b1:b1400").offset(,i*3).address

好像不用加.address也可用 thanks