エクセル　大量のグラフ修正の仕方

VBAでよろしければ以下のようになります。


Sub sample()

Dim CO As ChartObject
Dim Ser As Series
Dim Oldname As String
Dim Newname As String

Oldname = "Data1" '元のシート名
Newname = "Data2" '置換後のシート名

For Each CO In ActiveSheet.ChartObjects 'アクティブシート内のグラフ全て
For Each Ser In CO.Chart.SeriesCollection 'グラフ内の系列全て
Ser.Formula = Replace(Ser.Formula, Oldname, Newname) '置換する
Next Ser
Next CO

End Sub


Alt+F11を押して出てきた画面で、挿入→標準モジュールを選択、出てきたウィンドウに上記のコードを貼り付けて実行してください。実行時は、Sheet2(置換したいグラフのあるシート)をアクティブにしておいてください。

なお、シート名の先頭に数字が使われているなどの場合、シート名をシングルクォーテーションで囲む必要がありますのでご注意ください。