VBA获取图表系列数据点名称异常：始终返回S1P1求助

你用Points(pointEntryIndex).Name获取的是Excel图表数据点的内部标识符，格式为S[系列序号]P[点序号]，所以不管遍历哪个数据点，都会返回类似S1P1、S1P2这类内部命名，而非实际的名称或标签内容。

要获取你需要的实际名称，有两种常用方法：

方法1：从数据源单元格读取对应名称 #

如果图表的X轴标签或数据点名称来自工作表单元格，直接从数据源范围获取对应值：

Dim pointNames As String
Dim pointEntryIndex As Integer
Dim seriesDataRange As Range

' 获取系列1对应的X轴标签数据源范围（根据你的图表实际数据源调整）
Set seriesDataRange = ActiveChart.FullSeriesCollection(1).XValues

For pointEntryIndex = 1 To ActiveChart.FullSeriesCollection(1).Points.Count
    ' 按索引读取数据源单元格的值
    pointNames = seriesDataRange.Cells(pointEntryIndex).Value
    Debug.Print pointNames
Next pointEntryIndex

方法2：读取数据标签文本（如果已设置数据标签） #

如果图表数据点已经添加了数据标签，直接读取标签文本：

Dim pointNames As String
Dim pointEntryIndex As Integer

For pointEntryIndex = 1 To ActiveChart.FullSeriesCollection(1).Points.Count
    ' 读取数据点的标签文本
    pointNames = ActiveChart.FullSeriesCollection(1).Points(pointEntryIndex).DataLabel.Text
    Debug.Print pointNames
Next pointEntryIndex

注意：如果数据点没有设置数据标签，第二种方法会报错，需要先确保已为数据点添加数据标签。

内容的提问来源于stack exchange，提问作者yen bico