用宏可以很好地解决。选中你的图表,同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub test()
Dim i As Integer
ActiveChart.SeriesCollection(1).ApplyDataLabels
For i = 4 To 21
ActiveChart.SeriesCollection(1).DataLabels(i - 3).Caption = Range("C" & i) & " " & Range("B" & i)
Next i
End Sub
黑体字的调整:假设你的A、D、C...在单元格B4到B21里,数字在C4到C21里,3相应地改为比4小1。然后在此界面下直接按F5运行此宏,完成。
自己输入进去啊
把图发来