Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

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

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

Navigation--автотекст (добавете обикновено използваните диаграми към pane.Then AutoText) едно кликване, за да го поставите, когато имате нужда.)

excel добавете инструменти за вмъкване на диаграма на водопад по всяко време

arrow синя десен балон Извличайте данните от графиката с VBA


1. Трябва да създадете нов работен лист и да го преименувате като ChartData, Вижте екранна снимка:

Kutools за Excel, с повече от 120 удобни функции на Excel, повишаване на ефективността на работа и спестяване на работно време.

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

2. След това изберете графиката, от която искате да извлечете данни, и натиснете Alt + F11 ключове едновременно и а Microsoft Visual Basic за приложения прозорец се появи.

3. кликване Поставете > Модули, след което поставете под код VBA на изскачащия прозорец Модули прозорец.

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 диапазон за експортиране като картина

Съвет:

1. Можете да форматирате клетките според нуждите ви.

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

2. Данните от избраната диаграма се извличат по подразбиране към първата клетка на листа ChartData.

обърнете внимание1Ако се интересувате от тази добавка, Изтеглете безплатния пробен период 60 дни.


Препоръчителни инструменти за производителност

Таб на Office

златна звезда1 Носете удобни раздели в Excel и друг софтуер на Office, също като Chrome, Firefox и новия Internet Explorer.

Kutools за Excel

златна звезда1 Невероятно! Увеличете производителността си в 5 минути. Не се нуждаете от специални умения, освен два часа всеки ден!

златна звезда1 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!