Note: The other languages of the website are Google-translated. Back to English

如何在Excel中從圖表中提取數據?

文檔提取圖表數據 1
在Excel中,我們通常使用圖表來顯示數據和趨勢以便更清晰地查看,但有時,圖表可能是副本,並且您沒有圖表的原始數據,如下面的屏幕快照所示。 在這種情況下,您可能需要從該圖表中提取數據。 現在,本教程討論的是從圖表或圖形中提取數據。
使用VBA從圖表中提取數據

箭頭藍色右氣泡 使用VBA從圖表中提取數據

1.您需要創建一個新的工作表並將其重命名為 圖表數據。 看截圖:

文檔提取圖表數據 5

2.然後選擇要從中提取數據的圖表,然後按 Alt + F11鍵 同時輸入一個鍵 Microsoft Visual Basic for Applications 窗口彈出。

3。 點擊 插入 > 模塊,然後將以下VBA代碼粘貼到彈出窗口 模塊 窗口。

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。 看截圖:

文檔提取圖表數據 2

然後您可以看到數據被提取到 圖表數據 片。
文檔提取圖表數據 3

小提示:

1.您可以根據需要格式化單元格。

文檔提取圖表數據 4

2.默認情況下,所選圖表的數據被提取到ChartData表的第一個單元格中。


小提示: 如果您通常在Excel中使用複雜的圖表,這會很麻煩,因為創建時間很長,請在此處使用 自動文本 的工具 Excel的Kutools,您只需要首先創建圖表,然後將圖表添加到“自動圖文集”窗格中,然後就可以隨時隨地重用它們,只需要做的就是更改引用以符合您的實際需求。  點擊免費下載.
doc條件格式堆積的條形圖12


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (18)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
美好的一天,我似乎遇到了 Run-tome 錯誤“-2147467259 (80004005)”對象“系列失敗”的方法“XValues”
網站主持人對此評論進行了最小化
謝謝你。 這真的很有幫助!
網站主持人對此評論進行了最小化
驚人的命令,非常感謝! 我將它與數據透視圖一起使用,它可以工作!
網站主持人對此評論進行了最小化
給了我創建圖表的值,其中並非所有值都在範圍內
網站主持人對此評論進行了最小化
非常有用和完美
網站主持人對此評論進行了最小化
我未能在我的 mac excel 2011 上獲得基金圖表的價格。 運行時錯誤“91”對像變量或塊變量未設置。 不知道怎麼調試。 感謝任何幫助。
網站主持人對此評論進行了最小化
這似乎不適用於散點圖,因為它只提取一組“x”數據。 如何修改它以提取所有“x”數據集?
網站主持人對此評論進行了最小化
抱歉,我沒有找到解決方案。
網站主持人對此評論進行了最小化
我也嘗試過使用散點圖,但只能獲得一條勇氣線。


我非常需要找到一種從散點圖中提取數據的方法。
網站主持人對此評論進行了最小化
我在運行該命令時遇到錯誤。
此錯誤出現在從 xnum = UBound(......) 等開始的命令中

運行時錯誤“91”
對像變量或未設置塊變量
網站主持人對此評論進行了最小化
嗨,tarshul,您需要在運行代碼之前創建一個名為 ChartData 的新工作表,數據將放置在新工作表 ChartData 中。
網站主持人對此評論進行了最小化
你好晴天
正如你所說,我已經創建了新的工作表,但仍然出現同樣的錯誤。
網站主持人對此評論進行了最小化
我在上面嘗試過,它說“編譯錯誤:找不到方法或數據成員”
網站主持人對此評論進行了最小化
mong mọi người giúp đỡ làm cách nào để lấy số liệu từ biểu đồ này với ạ!
網站主持人對此評論進行了最小化
給出錯誤並告訴設置塊變量和對像變量
網站主持人對此評論進行了最小化
你好,我已經更新了VBA,你可以再試一次。
網站主持人對此評論進行了最小化
非常有幫助! 非常感謝!
網站主持人對此評論進行了最小化
驚人...
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護