excel批量提取批注

打开excel

ALT+F11

​​​​​​​

​​​​​​​

插入代码

Function GetComment(rng As Range) As StringOn Error Resume NextDim commentText As StringcommentText = rng.Comment.TextcommentText = Replace(commentText, "rina.farriani:", "")GetComment = commentTextOn Error GoTo 0
End Function

保存

单元格输入

=GetComment(单元格)