Come estrarre dati da un grafico in Excel?

I grafici in Excel sono ampiamente utilizzati per visualizzare i dati e le tendenze in modo più efficace. Tuttavia, potrebbero esserci situazioni in cui si ha solo un grafico senza accesso ai dati originali, come mostrato nell'esempio sottostante. In questi casi, l'estrazione dei dati dal grafico può essere essenziale. Questa guida fornisce una procedura dettagliata per recuperare i dati da un grafico o un diagramma in Excel utilizzando il codice VBA.

Estrai dati dal grafico con VBA

  Estrai dati dal grafico con VBA

1. È necessario creare un nuovo foglio di lavoro e rinominarlo come "ChartData". Vedere la schermata:

2. Seleziona il grafico da cui desideri estrarre i dati. Premi contemporaneamente i tasti "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

3. Clicca su "Inserisci" > "Modulo", quindi incolla il seguente codice VBA nella finestra "Modulo".

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 fai clic sul pulsante "Esegui" per eseguire il codice VBA. Vedere la schermata:

Potrai quindi vedere i dati estratti nel foglio "ChartData".

Suggerimento:

1. Puoi formattare le celle secondo necessità.

2. Per impostazione predefinita, i dati del grafico selezionato vengono estratti a partire dalla prima cella del foglio ChartData.