如何從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工作表的第一個單元格開始提取。