用excel画坐标散点图，并添加数据标签

今天在写毕业论文的时候发现自己需要画坐标图，在网上找来找去终于找到了方法，下面是记录：

打开excel之后填好数据：

像这样，之后选择要画的坐标点，点击插入散点图，

之后出现的散点图是这样的：并没有达到预期的目的，因为我想让每个点上都标上序号。

开始：

首先将散点图转换成气泡图，，好了之后，按Alt+F11进入VBA编辑器，输入 以下代码：

SubAddLabel()

'为气泡图数据系列添加文本数据标签'

DimrRng As Range

Dimi As Integer

OnError GoTo line1

SetrRng = Application.InputBox("选择包含数据标签的列区域", Title:="选择区域", Type:=8)

Selection.ApplyDataLabels

Fori = 1 To rRng.Rows.Count

Selection.Points(i).DataLabel.Text= rRng.Item(i).Text

Nexti

line1:

EndSub

点击运行之后出现

然后直接选择你需要的标签名

确定之后就变成这样：

这样之后就可以直接转换成散点图了

整个图就完成了。