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(单元格)