用下面的自定義函數可以將某個單元格中的批注提取到其他單元格中，方法如下：
1.按Alt+F11打開VBA編輯器，單擊菜單“插入→模塊”，在“工程”窗口中會看到Excel插入了一個名稱為“模塊1”的模塊。
2.在右側“模塊1”的代碼窗口中輸入下列代碼：
Function GetComment(rCell As Range)
Application.Volatile ‘將自定義函數標記為易失性函數
Dim Cmt As String
On Error Resume Next
Cmt = rCell.Comment.Text
GetComment = Right(Cmt, Len(Cmt) – InStr(1, Cmt, ":", vbTextCompare))
On Error GoTo 0
End Function
3.關閉VBA編輯器，返回到Excel界面。假如要提取A10單元格中的批注，則在其他單元格中輸入公式：
=GetComment(A10)
回車后即可得到A10單元格中的批注內容，注意本自定義函數僅提取批注內容，而不包含批注作者。由于將自定義函數標記為易失性函數，如果A10單元格中的批注被修改，按F9鍵或當任意單元格進行計算時即可得到修改后的批注內容。
