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

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