Excelでチャートやグラフからデータを抽出するにはどうすればよいですか？

Author Sun Last modified 2025-08-26

A screenshot of a chart in Excel without the original data

Excelのグラフは、データや傾向をより効果的に視覚化するために広く使用されています。しかし、以下の例に示すように、元のデータにアクセスできない場合があり、そのような状況ではチャートからデータを抽出することが重要です。このチュートリアルでは、VBAコードを使用してExcelのチャートやグラフからデータを取り出すためのステップバイステップガイドを提供します。

VBAを使用してチャートからデータを抽出

1. 新しいワークシートを作成し、「ChartData」と名前変更する必要があります。スクリーンショットをご覧ください：

A screenshot of the ChartData worksheet being created in Excel

2. データを抽出したいチャートを選択します。「Alt」+「F11」キーを同時に押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

3. 「挿入」>「モジュール」をクリックし、以下のVBAコードを「モジュール」ウィンドウに貼り付けます。

Sub GetChartValues()
    'Updateby20220510
    Dim xNum As Integer
    Dim xSeries As Object
    On Error Resume Next
    xCount = 2
    xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
    Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
    With Application.Worksheets("ChartData")
        .Range(.Cells(2, 1), _
        .Cells(xNum + 1, 1)) = _
        Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
    End With
    For Each xSeries In Application.ActiveChart.SeriesCollection
        Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
        With Application.Worksheets("ChartData")
            .Range(.Cells(2, xCount), _
            .Cells(xNum + 1, xCount)) = _
            Application.WorksheetFunction.Transpose(xSeries.Values)
        End With
        xCount = xCount + 1
    Next
End Sub

4. そして「実行」ボタンをクリックしてVBAを実行します。スクリーンショットをご覧ください：

A screenshot of running VBA code in the Microsoft Visual Basic for Applications window

これで、データが「ChartData」シートに抽出されたのが確認できます。
A screenshot of data extracted into the ChartData worksheet

ヒント：

1. 必要に応じてセルの書式を設定できます。

A screenshot of data cells in the ChartData worksheet to be formatted

2. デフォルトでは、選択したチャートのデータは、ChartDataシートの最初のセルから抽出されます。

ヒント: Excelで複雑なチャートを頻繁に扱う場合、毎回それらを作成するのは面倒です。「Kutools for Excel」の「オートテキスト」ツールを使用すると、このプロセスを簡素化できます。一度チャートを作成し、それをオートテキストペインに追加することで、いつでもどこでも再利用できます。参照を更新して特定のニーズに合わせるだけです。

A GIF demonstrating the AutoText tool in Kutools for Excel for reusing charts

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数