1. Du må opprette et nytt regneark og endre navnet som ChartData. Se skjermbilde:
to. Deretter velger diagrammet du ønsker å hente ut data fra og trykk ALT + F11 taster samtidig, og en Microsoft Visual Basic for Applications vindus spretter.
3. Klikk Sett > Modul, deretter lime inn under VBA kode til popping modulen vinduet.
Kutools for Excel, med mer enn 120 praktiske Excel-funksjoner, forbedre arbeidseffektivitet og lagre din arbeidstid. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce VBA: Pakk data fra diagrammet.
Sub GetChartValues () 'Updateby20150203 Dim xNum As Integer Dim xSeries som objekt xCount = 2 xNum = UBound (Application.ActiveChart.SeriesCollection (1) .Values) Application.Worksheets ("ChartData"). Cells (1, 1) = "X-verdier" Med Application.Worksheets ("ChartData") .Range (.Cells (2, 1), _ .Cells (xNum + 1, 1)) = _ Application.Transpose (ActiveChart.SeriesCollection (1) .XValues ) End With for hver xSeries I Application.ActiveChart.SeriesCollection Application.Worksheets ("ChartData"). Cells (1, xCount) = xSeries.Name Med Application.Worksheets ("ChartData") .Range (.Cells (2, xCount) , _ .Cells (xNum + 1, xCount)) = _ Application.WorksheetFunction.Transpose (xSeries.Values) End With xCount = xCount + 1 NextEnd Sub4. Deretter klikker du på Kjør-knappen for å kjøre VBA. Se skjermbilde:
Så du kan se dataene er hentet til ChartData ark
. Tips:
1. Du kan formatere cellene som du trenger.
To. Dataene for den valgte figuren er hentet til den første cellen i ChartData arket misligholdt.
Aldri trenger å bekymre deg for lange lange formler i Excel lenger! Kutools for Excel Auto Tekst kan legge alle formler til en gruppe som automatisk tekst, og frigjøre hjernen din! Klikk her for å vite Auto Text Klikk her for å få gratis prøve
Du kan interessert i dette: