Excelのチャートまたはグラフからデータを抽出する方法は？

Excelでは、通常、グラフを使用してデータと傾向を表示し、より明確に表示しますが、場合によっては、グラフがコピーであり、下のスクリーンショットに示すようにグラフの元のデータがないことがあります。 この場合、このグラフからデータを抽出することをお勧めします。 このチュートリアルでは、チャートまたはグラフからのデータ抽出について説明しています。
VBAを使用してグラフからデータを抽出する

VBAを使用してグラフからデータを抽出する

1.新しいワークシートを作成し、名前を次のように変更する必要があります チャートデータ。 スクリーンショットを参照してください：

2.次に、データを抽出するグラフを選択して、を押します。 Altキー+ F11 同時にキー、および アプリケーション向け Microsoft Visual Basic ウィンドウがポップします。

3。 クリック インセット > モジュール、次にVBAコードの下をポップに貼り付けます モジュール 窓。

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を実行します。 スクリーンショットを参照してください：

次に、データが抽出されていることがわかります。 チャートデータ シート。

ヒント：

1.必要に応じてセルをフォーマットできます。

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