Cum se extrag date din diagramă sau grafic în Excel?

În Excel, de obicei folosim grafic pentru a afișa date și tendințe pentru o vizualizare mai clară, dar uneori, poate graficul este o copie și nu aveți datele originale ale graficului așa cum este prezentat mai jos. În acest caz, poate doriți să extrageți datele din această diagramă. Acum, acest tutorial vorbește despre extragerea datelor dintr-un grafic sau grafic.
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.