第1个回答 2008-12-19
好像没有直接的方法,但是可以用vba。
PS:使用方法:按住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本回答被提问者采纳