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)!