Cum se extrag date din diagramă sau grafic în Excel?
Extrageți date din grafic cu VBA
Extrageți date din grafic cu VBA
1. Trebuie să creați o nouă foaie de lucru și să o redenumiți ca ChartData. Vedeți captura de ecran:
2. Apoi selectați diagrama din care doriți să extrageți date și apăsați Alt + F11 tastele simultan și a Microsoft Visual Basic pentru aplicații apare fereastra.
3. clic Insera > Module, apoi lipiți mai jos codul VBA în popping Module fereastră.
VBA: extrageți date din grafic.
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. Apoi apasa Alerga pentru a rula VBA. Vedeți captura de ecran:
Apoi, puteți vedea cum sunt extrase datele ChartData foaie.
Sfat:
1. Puteți formata celulele după cum aveți nevoie.
2. Datele graficului selectat sunt extrase în prima celulă a foii ChartData în mod implicit.
|
Sfat: Dacă utilizați de obicei diagrame complexe în Excel, ceea ce va fi supărător pe măsură ce le creați foarte mult timp, aici cu Text automat instrument de Kutools pentru Excel, trebuie doar să creați diagrame pentru prima dată, apoi să adăugați diagrame în panoul Text automat, apoi le puteți reutiliza oriunde, oricând, ceea ce trebuie doar să faceți este să modificați referințele pentru a se potrivi cu nevoia dvs. reală. Faceți clic pentru descărcare gratuită acum. |
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
