Wie extrahiere ich Daten aus einem Diagramm in Excel?
Extrahieren Sie Daten aus dem Diagramm mit VBA
Extrahieren Sie Daten aus dem Diagramm mit VBA
1. Sie müssen ein neues Arbeitsblatt erstellen und es umbenennen in Diagrammdaten. Siehe Screenshot:
2. Wählen Sie dann das Diagramm aus, aus dem Sie Daten extrahieren möchten, und drücken Sie Alt + F11 Tasten gleichzeitig und a Microsoft Visual Basic für Applikationen Fenster knallt.
3 Klicken Insert > ModulFügen Sie dann den folgenden VBA-Code in das Popping ein Modul Fenster.
VBA: Daten aus dem Diagramm extrahieren.
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. Dann klick Führen Sie Schaltfläche zum Ausführen des VBA. Siehe Screenshot:
Dann können Sie sehen, dass die Daten extrahiert werden Diagrammdaten Blatt.
TIPP:
1. Sie können die Zellen nach Bedarf formatieren.
2. Die Daten des ausgewählten Diagramms werden standardmäßig in die erste Zelle des ChartData-Blattes extrahiert.
|
TIPP: Wenn Sie normalerweise komplexe Diagramme in Excel verwenden, die beim Erstellen sehr schnell auftreten, klicken Sie hier Autotext Werkzeug von Kutools for ExcelWenn Sie die Diagramme nur beim ersten Mal erstellen und dann im AutoText-Bereich hinzufügen müssen, können Sie sie jederzeit und überall wiederverwenden. Sie müssen lediglich die Referenzen ändern, um sie Ihren tatsächlichen Anforderungen anzupassen. Klicken Sie hier, um es jetzt kostenlos herunterzuladen. |
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
