Как извлечь данные из диаграммы или графика в Excel?

Диаграммы в Excel широко используются для более эффективной визуализации данных и трендов. Однако могут возникнуть ситуации, когда у вас есть только диаграмма без доступа к исходным данным, как показано в примере ниже. В таких случаях извлечение данных из диаграммы может быть крайне важным. Это руководство предоставляет пошаговую инструкцию по получению данных из диаграммы или графика в Excel с использованием кода VBA.

Извлечение данных из диаграммы с помощью VBA

  Извлечение данных из диаграммы с помощью VBA

1. Вам нужно создать новый лист и переименовать его как "ChartData". См. скриншот:

2. Выберите диаграмму, из которой хотите извлечь данные. Нажмите клавиши "Alt" + "F11" одновременно, чтобы открыть окно "Microsoft Visual Basic for Applications".

3. Нажмите "Вставить" > "Модуль", затем вставьте следующий код VBA в окно "Модуль".

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. Затем нажмите кнопку "Выполнить", чтобы запустить VBA. См. скриншот:

После этого вы увидите, что данные извлечены на лист "ChartData".

Совет:

1. Вы можете форматировать ячейки по своему усмотрению.

2. По умолчанию данные выбранной диаграммы извлекаются, начиная с первой ячейки листа ChartData.