excel的批注怎么导出
发布网友
发布时间：2022-04-22 04:06
共1个回答
热心网友
时间：2023-08-16 18:17
Alt+F11 ----插入---模块 输入如下内容：
Function GetComment(rCell As Range)
Application.Volatile '将自定义函数标记为易失性函数
Dim Cmt As String
On Error Resume Next
Cmt = rCell.Comment.Text
GetComment = Right(Cmt, Len(Cmt) - InStr(1, Cmt, ":", vbTextCompare))
On Error GoTo 0
End Function
关闭VBA编辑器，返回到Excel界面。假如要提取A1单元格中的批注，则在其他单元格中输入公式：
=GetComment(A1)
