Como extrair dados de um gráfico ou diagrama no Excel?
Os gráficos no Excel são amplamente utilizados para visualizar dados e tendências de forma mais eficaz. Contudo, pode surgir a necessidade de trabalhar com um gráfico sem ter acesso aos seus dados originais, como ilustrado no exemplo abaixo. Nestes casos, extrair os dados diretamente do gráfico torna-se essencial. Este tutorial oferece um guia passo a passo para recuperar os dados de um gráfico ou diagrama no Excel utilizando código VBA.
Extrair dados do gráfico com VBA
1. Crie uma nova planilha e altere o seu nome para «ChartData». Veja a imagem:
2. Selecione o gráfico do qual pretende extrair os dados e, em seguida, prima simultaneamente as teclas «Alt» + «F11» para abrir a janela «Microsoft Visual Basic for Applications».
3. Clique em «Inserir» > «Módulo» e cole o seguinte código VBA na janela do módulo.
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. Em seguida, clique no botão «Executar» para executar o código VBA. Veja a imagem:
Poderá então verificar que os dados foram extraídos para a folha «ChartData».
Dica:
1. Pode formatar as células de acordo com as suas necessidades.
2. Por predefinição, os dados do gráfico selecionado são extraídos da primeira célula da folha ChartData.
Dica: Se trabalha frequentemente com gráficos complexos no Excel, recriá-los constantemente pode tornar-se tedioso. Com a ferramenta «Texto Automático» do Kutools para Excel, simplifica todo este processo: crie os gráficos uma única vez, guarde-os no painel Texto Automático e reutilize-os sempre que e onde precisar — basta atualizar as referências de acordo com as suas necessidades específicas.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já |
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos