excel散点图

使用方法：按住ALT依次按F11,I,M；将代码粘贴至右侧窗口后按F5运行。
如果图表名称、数据系列不同，请根据实际修改。

Sub 数据标签修改()
    R = 0 '如果姓名从A列第N行开始，将0改为N-1
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.SeriesCollection(1).ApplyDataLabels ShowSeriesName:=True
    For Each P In ActiveChart.SeriesCollection("系列1").DataLabels
        P.Select
        R = R + 1
        Selection.Text = "=sheet1!r" & R & "c1"
    Next
End Sub