Hoe gegevens uit een diagram of grafiek te extraheren in Excel?
Extraheer gegevens uit de grafiek met VBA
Extraheer gegevens uit de grafiek met VBA
1. U moet een nieuw werkblad maken en het hernoemen als GrafiekData. Zie screenshot:
2. Selecteer vervolgens het diagram waaruit u gegevens wilt extraheren en druk op Alt + F11 toetsen tegelijk, en a Microsoft Visual Basic voor toepassingen venster springt.
3. klikken Invoegen > Moduleen plak vervolgens onder VBA-code in de popping Module venster.
VBA: extraheer gegevens uit de grafiek.
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. Dan klikken lopen knop om de VBA uit te voeren. Zie screenshot:
Vervolgens kunt u zien dat de gegevens zijn geëxtraheerd naar GrafiekData vel.
Tip:
1. U kunt de cellen naar wens opmaken.
2. De gegevens van het geselecteerde diagram worden standaard geëxtraheerd naar de eerste cel van het ChartData-blad.
Tip: Als u meestal complexe grafieken in Excel gebruikt, wat lastig zal zijn omdat u ze heel vaak maakt, hier met de Auto-tekst tool van Kutools for Excel, u hoeft alleen de grafieken de eerste keer te maken en vervolgens de grafieken in het AutoTekst-paneel toe te voegen, en u kunt ze overal en altijd opnieuw gebruiken, u hoeft alleen de referenties te wijzigen zodat ze overeenkomen met uw werkelijke behoefte. Klik voor gratis download het nu. |
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!