エクセル・VBA、マクロを用いて乱数再計算ごとの結果を一つのグラフにまとめて表示したい。

前提・実現したいこと

エクセルでマクロを用いて以下の処理を行いたいです。
[現状]
Sheet1
A1:A100にRAND()で生成した乱数を入れています。

B1:B100に上記乱数を計算に組み込んだ数値が入っています。（例B2=30A2C2・・・）
1〜100を横軸にしたB1〜B100の線付き散布図を表示しています。
Sheet2
Sheet1のA1:A100を参照してA1:A100まで埋めています。
B1:B100に上記を組み込んだ数値が入っています。（例B2=10A2C2・・・）
1〜100を横軸にしたB1〜B100の線付き散布図を表示しています。
Sheer3以降はSheet2同様、Sheet4まであるとします。
[行いたい処理]
乱数を100回再計算させ、都度得られる線付き散布図を重ねて表示して一つのグラフとしたものをSheetごとに生成する。
その際、100回試行する一回ごとの乱数の値は各Sheetで共有し、異ならないようにする。

分かりにくい長文ですいません！不明な点はどんどん突っ込んでいただいて大丈夫です。
何卒よろしくお願いいたします。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

ソースコード

試したこと

一つのSheetに関してなら、100回の結果をまず作業スペースに表示させて、それから一つグラフを作って、残りをデータ系列として追加していくのかなーというイメージまでしかできていません・・・

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

seastar3

2018/12/26 20:35

C列のウェイトが分からないので縦軸の範囲が分かりませんが、例えば横軸100番まで縦軸0－1000等の範囲で400ドットが並んだ散布図グラフを100枚作りたいと言うことですね。その各グラフは100個の独立したファイルに置いていくのでしょうか。それとも400枚のワークシートを並べて、各4の倍数番のシートに置いていくのでしょうか。いずれにしろ、D列あたりに1番から100番までの連続番号を与えておかないと横軸に対応できないでしょう。(本来は左端が望ましい。)

seastar3

2018/12/26 20:49

sheet2からsheet4までの作成値をなぜsheet1の右の列に列記できないのでしょうか。また、4つのグラフ及び全ドットのグラフを1つのシート上に表現してはいけないのでしょうか。

行動規範の内容に同意します

回答4件

シート１のA1:A100の値を更新
シート１の計算結果であるB1:B100をコピー
シート５に値として貼り付け
をシート５のA～CVまで100回繰り返すコードです。
これによりシート１の100回試行結果がシート５にありますので、
シート５のデータよりグラフを生成してください。

シート２→シート６等はご自分でソースを改変して作成してください。
申し訳ありませんがこのソースがさっぱりわからないようでしたら、
テラテイル向きの質問ではないかと思われます。（これ以上の回答は望めないかと思います）

また、「そうじゃなくて！」という場合は質問の内容を変更できますので、
"削除せず追記"にてさらなる説明をお願いいたします。

VBA
1    For o = 1 To 100
2        With Worksheets("Sheet1")
3            For i = 1 To 100
4                .Cells(i, 1).Value = Rnd
5            Next i
6        End With
7        With Worksheets("Sheet1")
8            .Range(.Cells(1, 2), .Cells(100, 2)).Copy
9        End With
10        With Worksheets("Sheet5")
11            .Range(.Cells(1, o), .Cells(100, o)).PasteSpecial Paste:=xlPasteValues
12        End With
13    Next o