Hur extraherar jag data från diagram eller diagram i Excel?

Diagram i Excel används ofta för att visualisera data och trender mer effektivt. Det kan dock finnas situationer där du bara har ett diagram utan tillgång till dess ursprungliga data, som visas i exemplet nedan. I sådana fall kan det vara viktigt att extrahera data från diagrammet. Denna handledning ger en steg-för-steg-guide för att hämta data från ett diagram eller diagram i Excel med hjälp av VBA-kod.

Extrahera data från diagram med VBA

Extrahera data från diagram med VBA

1. Du måste skapa ett nytt kalkylblad och byta namn på det ChartData. Se skärmdump:

2. Välj det diagram som du vill extrahera data från. Trycka Alt + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

3. klick Insert > Modulerna, klistra sedan in nedanstående VBA-kod i Modulerna fönster.

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. Klicka sedan Körning för att köra VBA. Se skärmdump:

Du kan sedan se data som extraherats till ChartData ark.

Dricks:

1. Du kan formatera cellerna efter behov.

2. Som standard extraheras data från det valda diagrammet med början från den första cellen i diagramdatabladet.