如何从Excel中的图表或图形提取数据？

Excel中的图表广泛用于更有效地可视化数据和趋势。然而，有时你可能只有图表而无法访问其原始数据，如下例所示。在这种情况下，从图表中提取数据就显得尤为重要。本教程提供了一个使用VBA代码从Excel中的图表或图形提取数据的分步指南。

使用VBA从图表中提取数据

  使用VBA从图表中提取数据

1. 你需要创建一个新的工作表，并将其重命名为“ChartData”。见截图：

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。见截图：

然后你可以看到数据被提取到了“ChartData”工作表中。

提示：

1. 你可以根据需要格式化单元格。

2. 默认情况下，所选图表的数据从ChartData工作表的第一个单元格开始提取。