Come estrarre i dati dal grafico o dal grafico in Excel?
Estrai i dati dal grafico con VBA
Estrai i dati dal grafico con VBA
1. È necessario creare un nuovo foglio di lavoro e rinominarlo come Dati Grafico. Vedi screenshot:
2. Quindi selezionare il grafico da cui si desidera estrarre i dati e premere Alt + F11 tasti contemporaneamente e a Microsoft Visual Basic, Applications Edition la finestra si apre.
3. Clic inserire > Moduli, quindi incolla sotto il codice VBA nel popping Moduli finestra.
VBA: estrai i dati dal grafico.
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. Quindi fare clic Correre pulsante per eseguire VBA. Vedi screenshot:
Quindi puoi vedere i dati vengono estratti in Dati Grafico foglio.
Mancia:
1. Puoi formattare le celle in base alle tue esigenze.
2. I dati del grafico selezionato vengono estratti nella prima cella del foglio ChartData per impostazione predefinita.
Mancia: Se di solito usi grafici complessi in Excel, che sarà fastidioso poiché li crei molto tempo, qui con l'estensione Testo automatico strumento di Kutools for Excel, devi solo creare i grafici la prima volta, quindi aggiungere i grafici nel riquadro di glossario, quindi puoi riutilizzarli ovunque in qualsiasi momento, quello che devi fare è cambiare i riferimenti per soddisfare le tue reali necessità. Fare clic per scaricarlo gratuitamente ora. |
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!