Як витягти дані з діаграми або графіку в Excel?
Витяг даних із діаграми за допомогою VBA
Витяг даних із діаграми за допомогою VBA
1. Вам потрібно створити новий аркуш і перейменувати його як ChartData. Дивіться знімок екрана:
2. Потім виберіть діаграму, з якої потрібно витягти дані, та натисніть Alt + F11 одночасно клавіші та a Microsoft Visual Basic для додатків спливаючі вікна.
3. клацання Insert > Модулі, потім вставте нижче код 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% та зменшує сотні клацань миші для вас щодня!