Как извлечь данные из диаграммы или графика в Excel?
Диаграммы в Excel широко используются для наглядного представления данных и выявления тенденций. Однако бывают ситуации, когда у вас есть только сама диаграмма, а доступ к исходным данным отсутствует — как в приведённом ниже примере. В таких случаях извлечение данных непосредственно из диаграммы может оказаться крайне важным. В этом руководстве пошагово описано, как с помощью кода VBA извлечь данные из диаграммы или графика в Excel.
Извлечение данных из диаграммы с помощью VBA
1. Создайте новый лист и переименуйте его в «ChartData». См. снимок экрана:
2. Выберите диаграмму, из которой требуется извлечь данные, и нажмите одновременно клавиши «Alt» + «F11», чтобы открыть окно «Microsoft Visual Basic для приложений».
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. См. снимок экрана:
После этого извлечённые данные появятся на листе «ChartData».
Совет:
1. Вы можете форматировать ячейки так, как вам удобно.
2. По умолчанию данные для выбранной диаграммы извлекаются, начиная с первой ячейки листа ChartData.
Совет: если вы часто работаете со сложными диаграммами в Excel, их повторное создание каждый раз может быть утомительным. С помощью инструмента «Авто текст» из Kutools для Excel вы легко упростите этот процесс: создайте диаграммы один раз, сохраните их на панели «Авто текст» и используйте повторно в любое время и в любом файле — останется лишь обновить ссылки под ваши текущие задачи.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас |
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек