Как извлечь данные из диаграммы или графика в Excel?
Извлечь данные из диаграммы с помощью VBA
Извлечь данные из диаграммы с помощью VBA
1. Вам необходимо создать новый рабочий лист и переименовать его как ДиаграммаДанные. Смотрите скриншот:
2. Затем выберите диаграмму, из которой нужно извлечь данные, и нажмите Alt + F11 одновременно, а 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. Затем нажмите Run кнопку для запуска VBA. Смотрите скриншот:
Затем вы можете увидеть, что данные извлекаются в ДиаграммаДанные лист.
Наконечник:
1. Вы можете отформатировать ячейки по своему усмотрению.
2. По умолчанию данные выбранной диаграммы извлекаются в первую ячейку листа ChartData.
|
Наконечник: Если вы обычно используете сложные диаграммы в Excel, что будет затруднительно, поскольку вы создадите их очень быстро, здесь с Авто текст инструмент Kutools for Excel, вам просто нужно сначала создать диаграммы, затем добавить диаграммы в панель автотекста, а затем вы можете повторно использовать их в любом месте в любое время, вам нужно только изменить ссылки в соответствии с вашими реальными потребностями. Нажмите, чтобы бесплатно скачать сейчас. |
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
