步驟/方法

單擊選單欄上的“插入”，開啟的選單單擊“模組”命令

將下面的程式碼複製到模組框中

Subcomm()

DimcAsComment,strAsString,iAsInteger,Spl,s

ForEachcInActiveSheet.Comments

str=c.Text

Spl=Split(str,Chr(10))

str="":i=0

ForEachsInSpl

i=i+1

str=str&s&Chr(10)

Next

c.Delete

c.Parent.AddComment.TextLeft(str,Len(str)-1)

c.Parent.Comment.Shape.TextFrame.AutoSize=True

Next

EndSub

退出VBA編輯器視窗，檢視效果