excel利用自定义函数提取单元格中的批注

Excel利用自定义函数提取单元格中的批注

用下面的自定义函数可以将某个单元格中的批注提取到其他单元格中，方法如下：

1.按Alt+F11打开VBA编辑器，单击菜单“插入→模块”，在“工程”窗口中会看到Excel插入了一个名称为“模块1”的模块。

2.在右侧“模块1”的代码窗口中输入下列代码：

Function GetComment(rCell As Range)Application.Volatile ‘将自定义函数标记为易失性函数Dim Cmt As StringOn Error Resume NextCmt = rCell.Comment.TextGetComment = Right(Cmt, Len(Cmt) – InStr(1, Cmt, ":", vbTextCompare))On Error GoTo 0End Function

3.关闭VBA编辑器，返回到Excel界面。假如要提取A10单元格中的批注，则在其他单元格中输入公式：

=GetComment(A10)

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。