Làm thế nào để trích xuất dữ liệu từ biểu đồ hoặc đồ thị trong Excel?

Trích xuất dữ liệu từ biểu đồ với VBA
Dẫn đường--Văn bản tự động (thêm các biểu đồ thường sử dụng để AutoText pane.then một cái nhấp chuột để chèn nó khi bạn cần) |

Công cụ năng suất được đề xuất cho Excel / Office
Tab Office: Đưa chỉnh sửa theo tab vào Excel và phần mềm Office khác, giống như Chrome, Firefox và Safari.Dùng thử miễn phí không giới hạn 30-ngày
Kutools cho Excel: Các tính năng mạnh mẽ của 300 giúp Excel dễ dàng hơn nhiều và tăng năng suất ngay lập tức.Dùng thử miễn phí không giới hạn 60-ngày
Trích xuất dữ liệu từ biểu đồ với VBA
1. Bạn cần phải tạo một bảng tính mới và đổi tên nó là ChartData. Xem ảnh chụp màn hình:
Kutools cho Excel, với hơn 120 tiện dụng chức năng Excel, nâng cao hiệu quả làm việc và tiết kiệm thời gian làm việc. |
2. Sau đó chọn biểu đồ bạn muốn trích xuất dữ liệu từ và nhấn Alt + F11 phím đồng thời, và Microsoft Visual Basic cho các ứng dụng cửa sổ bật lên.
3. nhấp chuột Chèn > Mô-đun, sau đó dán dưới đây mã VBA để popping Mô-đun cửa sổ.
VBA: Trích xuất dữ liệu từ biểu đồ.
Sub GetChartValues() 'Updateby20150203 Dim xNum As Integer Dim xSeries As Object 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. Sau đó nhấn vào chạy để chạy VBA. Xem ảnh chụp màn hình:
Sau đó, bạn có thể thấy dữ liệu được trích xuất ChartData tấm.

Phạm vi xuất khẩu dưới dạng đồ hoạ |
Kutools' Phạm vi xuất khẩu dưới dạng đồ hoạ là nhằm mục đích để tiết kiệm hoặc xuất khẩu một tế bào lựa chọn như nhiều định dạng đồ họa. |

Mẹo:
1. Bạn có thể định dạng các ô theo ý mình.
2. Dữ liệu của biểu đồ đã chọn được trích xuất vào ô đầu tiên của bảng ChartData theo mặc định.
![]() |
Các công cụ sản xuất được đề nghị
Tab Office
Mang các tab tiện dụng vào Excel và các phần mềm Office khác, giống như Chrome, Firefox và Internet Explorer mới.
Kutools cho Excel
Kinh ngạc! Tăng năng suất của bạn trong 5 phút. Không cần bất kỳ kỹ năng đặc biệt, tiết kiệm được hai giờ mỗi ngày!
300 Các tính năng mới cho Excel, Làm cho Excel dễ dàng và mạnh mẽ:
- Hợp nhất ô / Hàng / Cột mà không mất dữ liệu.
- Kết hợp và Hợp nhất nhiều trang tính và Workbooks.
- So sánh các dãy, sao chép nhiều dãy, chuyển đổi văn bản sang ngày, đơn vị và chuyển đổi tiền tệ.
- Đếm theo màu sắc, Paging Subtotals, sắp xếp nâng cao và Super Filter,
- Thêm / Chèn / Xóa / Văn bản / Định dạng / Liên kết / Nhận xét / Tập tin / Workheets Công cụ ...