我們可以用一個自定義函數(shù)來提取單元格注釋。方法如下:
1.按Alt+F11,打開VBA編輯器。
2.單擊菜單“插入→模塊”,在右邊的代碼窗口中輸入代碼:
Function GetCommentText(rCommentCell As Range)
Dim strGotIt As String
On Error Resume Next
strGotIt = WorksheetFunction.Clean(rCommentCell.Comment.Text)
GetCommentText = strGotIt
On Error GoTo 0
End Function
3.關(guān)閉VBA編輯器。在單元格中輸入公式:
=GetCommentText(B4)
將在當(dāng)前單元格中返回B4單元格中的注釋。