Печенье помочь нам доставить наши услуги. Пользуясь нашими услугами, Вы соглашаетесь на использование нами куки.
Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Вход
x
or
x
x
Регистрация
x

or

Как извлечь данные из диаграммы или графика в Excel?

док-экстракт-чарт-данные 1
В Excel мы обычно используем диаграмму для отображения данных и тенденций для более четкого просмотра, но иногда, возможно, диаграмма является копией, и у вас нет исходных данных диаграммы, как показано ниже. В этом случае вы можете извлечь данные из этой диаграммы. Теперь в этом учебнике говорится об извлечении данных из графика или графика.
Извлечь данные из диаграммы с помощью VBA

Navigation--Авто Текст (добавьте обычно используемые диаграммы в область автотекста. Затем один клик, чтобы вставить его, когда вам нужно.)

excel добавить инструменты для вставки диаграммы водопада в любое время

arrow синий правый пузырь Извлечь данные из диаграммы с помощью VBA


1. Вам нужно создать новый рабочий лист и переименовать его как ChartData, Смотрите скриншот:

Kutools for Excel, с более чем 120 удобные функции Excel, повысить эффективность работы и сэкономить рабочее время.

док-экстракт-чарт-данные 5

2. Затем выберите диаграмму, из которой вы хотите извлечь данные, и нажмите Alt + F11 ключи одновременно и Microsoft Visual Basic для приложений всплывающие окна.

3. Нажмите Вставить > модуль, затем вставьте ниже кода VBA в popping модуль окна.

VBA: Извлечь данные из диаграммы.

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. Затем нажмите прогон для запуска VBA. Смотрите скриншот:

док-экстракт-чарт-данные 2

Затем вы можете увидеть, что данные ChartData лист.

док-экстракт-чарт-данные 3

Диапазон экспорта как графический

Kutools' Диапазон экспорта как графический направлена ​​на сохранение или экспорт выделенных ячеек в виде нескольких графических форматов.
doc export range as picture

Наконечник:

1. Вы можете отформатировать ячейки по мере необходимости.

док-экстракт-чарт-данные 4

2. Данные выбранной диаграммы извлекаются в первую ячейку листа ChartData по умолчанию.

обратите внимание1Если вы заинтересованы в этом дополнении, загрузить пробную версию 60-дней.


Рекомендуемые инструменты производительности

Office Tab

золото star1 Принесите удобные вкладки в Excel и другое программное обеспечение Office, как Chrome, Firefox и новый Internet Explorer.

Kutools for Excel

золото star1 Удивительно! Увеличьте производительность в течение 5 минут. Не нужно никаких специальных навыков, сэкономить два часа каждый день!

золото star1 Новые возможности 300 для Excel, сделать Excel намного проще и мощнее:

  • Объединить ячейки / строки / столбцы без потери данных.
  • Объединение и объединение нескольких листов и книг.
  • Сравнение диапазонов, копирование нескольких диапазонов, преобразование текста в дату, преобразование единиц и валют.
  • Подсчет количества цветов, Пейджинговые субтитры, Расширенный сортировка и Суперфильтр,
  • Подробнее Выбрать / Вставить / Удалить / Текст / Формат / Ссылка / Комментарий / Рабочие книги / Рабочие листы Инструменты ...

Снимок экрана Kutools для Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Astro · 1 years ago
    This doesn't appear to work for a scatter plot as it only extracts one set of "x" data. How can I amend it to extract all "x" data sets?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Sorry I did not found the solution about that.
      • To post as a guest, your comment is unpublished.
        Carlos · 1 years ago
        i've tried with a scatter plot graph as well, but only get one line of valor.


        i need so much to find a way to extract data from scatterplot graphs.
  • To post as a guest, your comment is unpublished.
    Ian · 1 years ago
    I failed to get the prices of a fund chart on my mac excel 2011 . Run time error '91' object variable or block variable not set . Don't know how to debug . Appreciate any help .
  • To post as a guest, your comment is unpublished.
    jignesh · 1 years ago
    Very useful and perfect
  • To post as a guest, your comment is unpublished.
    Berk · 1 years ago
    gives me values that i created chart with not all the values in range
  • To post as a guest, your comment is unpublished.
    Leo · 2 years ago
    Amazing command, thanks a lot!

    I used it with a pivot chart and it works!