[算表] VBA 換列

[Pettitte1 ()]

軟體: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! 改成像上述的遞增

謝謝!

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.52.73.115 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1625723207.A.AA2.html
→ soyoso: range("b1:b1400").offset(,i*3).address
→ Pettitte1: 好像不用加.address也可用 thanks