如何將欄位的內容，變成註解？

例如：姓名---電話--生平小記王小明 1234 內容有一百個字李大維 2234 內容有三百個字趙英明 3234 內容有二百個字○○○ 4234 內容有二百個字一共有二十個人。

如果滑鼠點到「王小明」的儲存格時

按右鍵→插入註解

會出現一個方框

等你輸入文字

當你輸入完畢後

二、三百個字的內容

就會被註解收起來

這樣工作表的版面就不會佔用很大

看起來很清爽。

但是我現在

已經有一個做好的檔案

除了將「生平小記」的內容

一筆一筆的copy

再貼到註解顯示的方框中

有什麼函數或用vba的方法

可以將「生平的內容」

二十筆

全部「自動」變成註解。

謝謝高手！

A欄輸入姓名

B欄輸入註解內容執行以下程式Sub AddCmt()Dim Rg As Range

RgC As RangeSet Rg = [A1:A20]For Each RgC In Rg.CellsOn Error Resume NextRgC.ClearCommentsOn Error GoTo 0RgC.AddComment.Text Text:=RgC.Offset(0

1).TextNextEnd Sub

王小明 植物人,王小明飲料店,王小明鬼片,艋舺 王小明,王小明茶,王小明 水鬼,王小明笑話,王小明的店,王小明金卡,王小明 英文王小明,李大維,趙英明,變成,For Each RgC In Rg.Cells On Error Resume Next RgC.ClearComments On Error GoTo,Sub AddCmt,RgC,小記,Dim,Range

Visio|金融|試算表|vba|PowerPoint|傳真|客戶管理|文書處理|符號|進銷存|庫存表|Spss|簡報|進銷存軟體|Project|財務|Office|會計軟體|資料庫|OpenOffice|庫存管理|專案管理|