Como extrair dados de um gráfico ou gráfico no Excel?
Extraia dados do gráfico com VBA
Extraia dados do gráfico com VBA
1. Você precisa criar uma nova planilha e renomeá-la como Dados do gráfico. Veja a imagem:
2. Em seguida, selecione o gráfico do qual deseja extrair os dados e pressione Alt + F11 teclas simultaneamente, e um Microsoft Visual Basic para Aplicações janela aparece.
3. Clique inserção > Móduloe cole abaixo o código VBA no popping Módulo janela.
VBA: Extraia dados do gráfico.
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. Então clique Execute botão para executar o VBA. Veja a imagem:
Então você pode ver que os dados são extraídos para Dados do gráfico Folha.
Dica:
1. Você pode formatar as células conforme necessário.
2. Os dados do gráfico selecionado são extraídos para a primeira célula da planilha ChartData por padrão.
Dica: Se você costuma usar gráficos complexos no Excel, o que será problemático à medida que você os cria muito tempo, aqui com o Auto texto ferramenta de Kutools for Excel, você só precisa criar os gráficos na primeira vez, depois adicionar os gráficos no painel de AutoTexto, então, você pode reutilizá-los em qualquer lugar a qualquer hora, o que você só precisa fazer é alterar as referências para corresponder à sua necessidade real. Clique para baixar gratuitamente agora. |
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!