今天在寫畢業論文的時候發現自己需要畫座標圖，在網上找來找去終於找到了方法，下面是記錄：

開啟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

點選執行之後出現

然後直接選擇你需要的標籤名

確定之後就變成這樣：

這樣之後就可以直接轉換成散點圖了

整個圖就完成了。