如何在 Excel 中從圖表或圖形中提取資料

視覺化資料表示，例如圖表和圖形，提供了一種理解和分析資料的有用方法。但是，在某些情況下，為了報告或進一步分析，可能需要從圖表或圖形中獲取基礎資料點。無論您是以研究人員、學生、資料分析師還是任何其他身份處理資料，本課程都將為您提供獲取 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