エクセル 複数系列の散布図グラフの書き方について

質問

下記のようなデータを、一気に散布図でグラフ化（データ間は線で結びたい、つまり1個のグラフ中に100本の線ができている状態）したいのですが、やり方がわからず困っています。
（X1とY1、X2とY2、・・・、X100とY100が対応）
X1に対してY1というように、一つ一つ、系列を追加していけばできるのはわかるのですが、データが多いのでそれでは時間がかかりすぎてしまいます。どなたか時間をかけずに一気にグラフ化する方法をご存知であれば、おしえていただけないでしょうか。

＜X軸＞
X1: 2 8 10 3
X2: 3 21 29 40
・
・
X100：4 9 10 18

＜Y軸＞
Y1: 1 4 5 2
Y2: 2 8 19 4
・
・
Y100：14 9 2 30

回答No.4

xls88

まだ締め切り処理をされないのは何か問題が残っているのでしょうか？
もし、そうでしたら遠慮なく質問してください。

グラフ操作関連のテクニック
http://moug.net/tech/exvba/0021.htm

回答No.3

wisemac21

>この配置換え
添付ファイルの例
G2に=INDEX($B$2:$E$6,FLOOR(ROW()+2,COLUMNS($B$2:$E$2))/COLUMNS($B$2:$E$2),MOD(ROWS($B$9:$B9)-1,COLUMNS($B$2:$E$2))+1)
下へコピー
H2に
=IF(COLUMNS($H$1:H1)=FLOOR(ROWS($A$9:A9)+COLUMNS($B$9:$E$9)-1,COLUMNS($B$9:$E$9))/COLUMNS($B$9:$E$9),INDEX($B$9:$E$13,COLUMNS($B$9:B9),MOD(ROWS($B$9:B9)+COLUMNS($B$9:$E$9)-1,COLUMNS($B$9:$E$9))+1),"")
右、下へコピー

回答No.2

wisemac21

複数系列の散布図のデータ表の作成方法

X軸 Y1 Y2 Y3
2 1
8 4
10 5
3 2
3 2
21 8
29 19
40 4
4 14
9 9
10 2
18 30

こうように作成するとデータ範囲を選択して一度にグラフが作成できます

お礼

ご回答ありがとうございました。
確かにずらすとできました。
ただ、100個分のXとYを配置換えしないといけないのですよね。
この配置換えは地道にコピーペーストでやる必要があるのでしょうか。
もし分かったら教えていただけないでしょうか。

回答No.1

xls88

マクロのサンプルです。
シート名、データセル範囲等は実情に合わせて変更してください。

With Sheets("グラフ").Range("H2:P20")
With ActiveSheet.ChartObjects.add(.left, .Top, .Width, .Height).Chart
.ChartType = xlXYScatterLines
For i = 0 To 99
With .SeriesCollection.NewSeries
.Name = Sheets("グラフ").Range("A3").Offset(i)
.XValues = Sheets("グラフ").Range("B3:E3").Offset(i)
.Values = Sheets("グラフ").Range("B105:E105").Offset(i)
End With
Next i
End With
End With

お礼

ご回答ありがとうございました。
当方、マクロを使ったことがなく、正直よく分かっていません。
このマクロを実行すると、希望する散布図がそのままできるのでしょうか。初心者ですみません。

補足

今マクロを少し勉強してやってみたらできました。
ありがとうございました。