excel

去掉单元格中的空格

=TEXT(VLOOKUP(TRIM(B2),$K:$L,2,0),"000000")

坐标图制作

1.绘制散点图

2.右击背景横线、竖线“删除”，并转化为气泡图，且此时选中图中气泡

3.“ALT”+‘F11’进入VBA，输入下列代码，保存（ctrl+s）

Sub AddLabel()
'为气泡图数据系列添加文本数据标签'
Dim rRng As Range
Dim i As Integer
On Error GoTo line1
Set rRng = Application.InputBox("选择包含数据标签的列区域", Title:="选择区域", Type:=8)
Selection.ApplyDataLabels
For i = 1 To rRng.Rows.Count
Selection.Points(i).DataLabel.Text = rRng.Item(i).Text
Next i
line1:
End Sub
4.回到excel主界面，‘开发工具’--‘宏’--‘执行’，选中名称，‘确定’

5.最后再变回散点图就可以了