Excel实用VBA自定义函数!一键提取单元格批注内容

=GetComments(单元格)

Public Function GetComments(ByVal 单元格 As Range) As String    Application.Volatile True    On Error Resume Next    Dim result As String    result = ""    Dim cell As Range    Set cell = 单元格.Cells(1, 1)    If Not cell.Comment Is Nothing Then        result = cell.Comment.text    Else        Dim threadedComment As Object        Set threadedComment = cell.CommentThreaded        If Not threadedComment Is Nothing Then            result = threadedComment.text        End If    End If    GetComments = result    On Error GoTo 0End Function