上図のA列をY軸方向、B, C, D, E列をX軸方向のデータとして1枚のグラフに4本の散布図をプロットする最小限のコード。軸の設定とかは書いていない。複数データの散布図を同時に1枚のグラフの上に描く方法の解説が意外にウェブ上に無かったのでメモ。手許の環境は Windows 7 + Office 2010 のデフォルト設定。こんなものいちいち覚えてられない。 Option Explicit Sub drawMultipleXYScatterGraph() Dim i As Integer, iColumn As Integer Dim iRowStart As Integer, iRowEnd As Integer, iRowOffset As Integer Dim r As Range Set r = ThisWorkbook.ActiveSheet.Range("A1") ' セル位