Jak extrahovat data z grafu nebo grafu v aplikaci Excel?

Grafy v Excelu se široce používají k efektivnější vizualizaci dat a trendů. Mohou však nastat situace, kdy máte pouze graf bez přístupu k jeho původním datům, jak ukazuje příklad níže. V takových případech může být extrahování dat z grafu zásadní. Tento výukový program poskytuje podrobného průvodce načítáním dat z tabulky nebo grafu v Excelu pomocí kódu VBA.

Extrahujte data z grafu pomocí VBA

Extrahujte data z grafu pomocí VBA

1. Musíte vytvořit nový list a přejmenovat jej jako Data grafu. Viz snímek obrazovky:

2. Vyberte graf, ze kterého chcete extrahovat data. Stiskněte Alt + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

3. cvaknutí Vložit > Modula poté vložte níže uvedený kód VBA do Modul okno.

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. Pak klikněte na tlačítko Běh tlačítko pro spuštění VBA. Viz screenshot:

Poté můžete vidět data extrahovaná do Data grafu list.

Tip:

1. Buňky můžete naformátovat podle potřeby.

2. Ve výchozím nastavení jsou data vybraného grafu extrahována počínaje první buňkou listu ChartData.