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

作者孫修改日期2025-04-17

Excel 中的圖表廣泛用於更清晰、有效地呈現資料與趨勢。然而，有時您可能僅有圖表，卻無法取得其背後的原始資料，如下方範例所示。在此情況下，從圖表中提取資料便顯得至關重要。本教學將逐步指導您如何運用 VBA 程式碼，從 Excel 的圖表或圖形中精準擷取資料。

使用 VBA 從圖表提取資料

1. 請建立一個新工作表，並將其重新命名為「ChartData」。詳情請參閱截圖：

Excel 中正在建立 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，請參閱截圖：

在 Microsoft Visual Basic for Applications 視窗中執行 VBA 程式碼的截圖

接著，您將看到資料已成功提取至「ChartData」工作表中。
資料已提取至 ChartData 工作表的截圖

提示：

1. 您可以根據需求自由格式化儲存格。

ChartData 工作表中待格式化的資料儲存格截圖

2. 預設情況下，所選圖表的資料會從 ChartData 工作表的第一個儲存格開始擷取。

提示：如果您經常在 Excel 中處理複雜圖表，每次都重新建立實在費時又麻煩。透過「Kutools for Excel」的「自動文字」功能，您能輕鬆簡化整個流程！只需建立一次圖表，將其儲存至「自動文字」窗格，日後即可隨時隨地快速重複使用——僅需調整引用範圍，就能完美符合當下的需求。

展示 Kutools for Excel 中 AutoText 工具重複使用圖表的 GIF

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多