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
Trích xuất dữ liệu từ biểu đồ với VBA
1. Bạn cần tạo một trang tính mới và đổi tên nó thành Biểu đồDữ liệu. Xem ảnh chụp màn hình:
2. Sau đó chọn biểu đồ bạn muốn trích xuất dữ liệu và nhấn Alt + F11 các 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 mã VBA bên dưới vào cửa sổ bật lên Mô-đun cửa sổ.
VBA: Trích xuất dữ liệu từ biểu đồ.
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. 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 sang Biểu đồDữ liệu tấm.
Mẹo:
1. Bạn có thể định dạng các ô khi cần.
2. Dữ liệu của biểu đồ đã chọn được trích xuất vào ô đầu tiên của trang dữ liệu ChartData theo mặc định.
Mẹo: Nếu bạn thường sử dụng các biểu đồ phức tạp trong Excel, điều này sẽ gây rắc rối vì bạn tạo chúng rất mất thời gian, tại đây với Văn bản tự động công cụ của Kutools cho Excel, bạn chỉ cần tạo các biểu đồ ở lần đầu tiên, sau đó thêm các biểu đồ trong ngăn Văn bản tự động, sau đó, bạn có thể sử dụng lại chúng ở mọi nơi mọi lúc, những gì bạn chỉ cần làm là thay đổi các tham chiếu để phù hợp với nhu cầu thực sự của mình. Nhấp để tải xuống miễn phí ngay bây giờ. |
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!