自学内容网 自学内容网

excel批量提取批注

打开excel

ALT+F11

​​​​​​​

​​​​​​​

插入代码

Function GetComment(rng As Range) As String
    On Error Resume Next
    Dim commentText As String
    commentText = rng.Comment.Text
    commentText = Replace(commentText, "rina.farriani:", "")
    GetComment = commentText
    On Error GoTo 0
End Function

保存

单元格输入

=GetComment(单元格)

原文地址:https://blog.csdn.net/Jay_NanX/article/details/145286397

免责声明:本站文章内容转载自网络资源,如侵犯了原著者的合法权益,可联系本站删除。更多内容请关注自学内容网(zxcms.com)!