VBA 散布図 系列名 設定あるいは削除

質問

以下のように複数データ範囲を選択して、散布図を作成しており、
セルA2とB2に入力した数値からデータ範囲を設定しています。
しかし、実行すると、系列1~i以降に系列i+1~がだらだらと続いてしまいます。
系列i+1以降をを削除するか、ちゃんと1~iまで系列のみ表示させるにはどのようにしたら良いのでしょうか。
どうぞ宜しくお願い致します。

Dim i As Variant
i = Range("A2").Value
Dim j As Variant
j = Range("B2").Value
Dim k As Variant
k = i
Dim l As Variant
l = j

Dim ChartObj As ChartObject
Dim ChartOne As Chart
Set ChartObj = ActiveSheet.ChartObjects.Add(1260, 100, 350, 240)
Set ChartOne = ChartObj.Chart
With ChartOne
.ChartType = xlXYScatterLines
.HasTitle = True
.ChartTitle.Text = Range("C3").Value
.HasLegend = True
.Legend.Position = xlLegendPositionRight
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Text = Range("D3").Value
End With
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Text = Range("E3").Value
End With

For k = 1 To i
For l = 1 To j
ChartOne.SeriesCollection.NewSeries
ChartOne.FullSeriesCollection(k).Name = Cells(5, k + 10)
ChartOne.FullSeriesCollection(k).XValues = Range(Cells(5, k + 30), Cells(4 + l, k + 30))
ChartOne.FullSeriesCollection(k).Values = Range(Cells(5, k + 50), Cells(4 + l, k + 50))
Next
Next

End With

回答No.1

kkkkkm · ベストアンサー

For k = 1 To i
でブレークポイント入れてステップ実行しながらどこで追加されていくか確認してみて調整してみてはいかがでしょう。

お礼

＞kkkkkm様
ご回答いただき有り難うございました。
ブレークポイントを入れて確認してみたところ、
For l = 1 To j　を設定していたせいで、
系列取得が繰り返されていたことが分かりました。
お陰様で解決致しました。
感謝申し上げます。