Как да извлека данни от диаграма или графика в Excel?
Извличане на данни от диаграма с VBA
Извличане на данни от диаграма с VBA
1. Трябва да създадете нов работен лист и да го преименувате като ChartData. Вижте екранна снимка:
2. След това изберете диаграмата, от която искате да извлечете данни, и натиснете Alt + F11 клавиши едновременно и a Microsoft Visual Basic за приложения пукане на прозореца.
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. Вижте екранна снимка:
След това можете да видите, че данните са извлечени до ChartData лист.
Съвет:
1. Можете да форматирате клетките според нуждите си.
2. Данните от избраната диаграма се извличат в първата клетка на листа ChartData по подразбиране.
Съвет: Ако обикновено използвате сложни диаграми в Excel, което ще бъде обезпокоително, тъй като ги създавате много време, тук с Автоматичен текст инструмент на Kutools за Excel, просто трябва да създадете диаграмите за първи път, след това да добавите диаграмите в панела за автоматичен текст, след което можете да ги използвате повторно навсякъде по всяко време, това, което трябва само да направите, е да промените препратките, за да отговарят на вашите реални нужди. Щракнете за безплатно изтегляне сега. |
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!