修复损坏的工作簿

复制下面的宏代码并将其粘贴到模块工作表：

Sub GetChartValues()

Dim NumberOfRows As Integer

Dim X As Object

Counter = 2

' 计算数据的行数。

NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)

Worksheets("ChartData").Cells(1, 1) = "X Values"

' 将 x 轴值写入工作表。

With Worksheets("ChartData")

.Range(.Cells(2, 1), _

.Cells(NumberOfRows + 1, 1)) = _

Application.Transpose(ActiveChart.SeriesCollection(1).XValues)

End With

' 循环遍历图表中的所有系列，并将其值写入

' 工作表。

For Each X In ActiveChart.SeriesCollection

Worksheets("ChartData").Cells(1, Counter) = X.Name

With Worksheets("ChartData")

.Range(.Cells(2, Counter), _

.Cells(NumberOfRows + 1, Counter)) = _

Application.Transpose(X.Values)

End With

Counter = Counter + 1

Next

End Sub

在工作簿中插入或删除工作表，右键单击其工作表标签，然后将其重命名为 ChartData。

选择您要从中提取基础数据值的图表。

注意: 图表可以嵌入在工作表中或嵌入在单独的图表工作表中。

运行宏。

图表中的数据将置于 ChartData 工作表中。