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

ms exceladvanced excel functionmicrosoft technologies更新于 2024/9/30 13:00:17

图表和图形等可视化数据表示形式提供了一种理解和分析数据的有效方法。然而，在某些情况下，可能需要从图表或图形中获取底层数据点，以便进行报告或进一步分析。无论您是作为研究人员、学生、数据分析师还是其他任何身份处理数据，本课程都将为您提供充分利用 Excel 可视化表示所需的知识和能力。

在本教程结束时，您将彻底了解如何从图表和图形中提取数据，从而能够发现隐藏的见解并基于数据做出决策。在我们开始探索各种技术之前，请确保您对 Excel 及其功能有基本的了解。了解如何在 Excel 中创建图表和图形也将大有裨益。那么，让我们开始探索从 Excel 图形和图表中提取数据的潜力吧!

从图表或图形中提取数据

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来学习如何从 Excel 中的图表或图形中提取数据。

步骤 1:假设您有一个 Excel 工作表，其中包含类似下图的图表。

首先，使用 Alt + F11 打开 VBA 应用程序。

步骤 2:然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 > 模块 > 复制。

示例

Sub GetChartValues()
    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