如何提取标注信息

作者：绿色风分类：时间：2022-08-17 浏览：131

楼主蒸蒸日上	Q:请问如何提取批注信息呢，把标注的信息显示在一单元格里？ A:用自定义函数的方法解决，请将下边代码复制到模块里。 Function GetComment(Rng As Range) If Rng.Comment Is Nothing Then GetComment = "" Else GetComment = Rng.Comment.Text End If End Function 详情请参见动画！该帖已经同步到未命名提取批注，飞飞.gif
2楼蒸蒸日上	批量提取的代码： Sub 提取批注() Dim myrng As Range, cl As Range On Error Resume Next Set myrng = Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If Not myrng Is Nothing Then For Each cl In myrng cl.Offset(0, 1) = cl.Comment.Text Next End If End Sub
3楼罗刚君	高手
4楼平衡的水之子	版主，关于这个做个例子吧

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

楼主蒸蒸日上	Q:请问如何提取批注信息呢，把标注的信息显示在一单元格里？ A:用自定义函数的方法解决，请将下边代码复制到模块里。 Function GetComment(Rng As Range) If Rng.Comment Is Nothing Then GetComment = "" Else GetComment = Rng.Comment.Text End If End Function 详情请参见动画！该帖已经同步到未命名提取批注，飞飞.gif
2楼蒸蒸日上	批量提取的代码： Sub 提取批注() Dim myrng As Range, cl As Range On Error Resume Next Set myrng = Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If Not myrng Is Nothing Then For Each cl In myrng cl.Offset(0, 1) = cl.Comment.Text Next End If End Sub
3楼罗刚君	高手
4楼平衡的水之子	版主，关于这个做个例子吧