获取图表数据点单元格引用：VBA遍历图表提取底层数据技术问询

我看你已经在写VBA代码遍历图表里的数据点了，现在要获取每个数据点对应的数据源单元格引用对吧？其实可以通过Series对象的Values和XValues属性来关联到原始单元格，下面给你完善后的代码，还会拆解关键逻辑：

你的初始代码片段 #

Sub GetChartPoints() 
    Dim mySrs As Series 
    Dim iPts As Long 
    Dim bLabeled As Boolean 
    If ActiveChart Is Nothing Then 
        MsgBox "Select a chart and try again.", vbExclamation 
    Else 
        For Each mySrs In ActiveChart.SeriesCollection 
            bLabeled = False 
            With mySrs 
                For iPts = .Points.Count To 1 Step -1 
                    Debug.Print "w" 
                    Debug.Print mySrs.Points(iPts).Has...
                Next iPts 
            End With 
        Next mySrs 
    End If 
End Sub

完善后的代码（支持获取单元格引用） #

Sub GetChartPointsWithCellRefs()
    Dim mySrs As Series
    Dim iPts As Long
    Dim valCell As Range
    Dim xValCell As Range
    
    ' 检查是否有选中的图表
    If ActiveChart Is Nothing Then
        MsgBox "Select a chart and try again.", vbExclamation
        Exit Sub
    End If
    
    ' 遍历图表中的每个数据系列
    For Each mySrs In ActiveChart.SeriesCollection
        With mySrs
            ' 遍历该系列的每个数据点（从后往前遍历）
            For iPts = .Points.Count To 1 Step -1
                Debug.Print "=== 数据点 " & iPts & " ==="
                
                ' 获取数据值对应的单元格引用
                If TypeName(.Values) = "Range" Then
                    Set valCell = .Values(iPts)
                    Debug.Print "值单元格: " & valCell.Address(False, False) & " (" & valCell.Worksheet.Name & ")"
                Else
                    Debug.Print "值不是来自单元格范围，值为: " & .Values(iPts)
                End If
                
                ' 获取X轴标签对应的单元格引用（如果有）
                If TypeName(.XValues) = "Range" Then
                    Set xValCell = .XValues(iPts)
                    Debug.Print "X轴标签单元格: " & xValCell.Address(False, False) & " (" & xValCell.Worksheet.Name & ")"
                Else
                    Debug.Print "X轴标签不是来自单元格范围，标签为: " & .XValues(iPts)
                End If
                
                ' 你原来的Has...相关代码可以放在这里，比如检查是否有数据标签
                Debug.Print "是否有数据标签: " & .Points(iPts).HasDataLabel
            Next iPts
        End With
    Next mySrs
End Sub

关键逻辑说明 #

• 检查数据源类型：用TypeName(.Values)和TypeName(.XValues)判断数据是来自单元格范围还是直接输入的数组，只有范围类型才能获取单元格引用
• 关联数据点与单元格：通过.Values(iPts)和.XValues(iPts)直接定位到对应的数据点所在的单元格，还可以通过Worksheet.Name获取单元格所在的工作表名称
• 调试输出：所有结果会输出到VBA编辑器的立即窗口（按Ctrl+G可以打开）

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