Excel情报局
生产、搬运、分享Excel基础知识
用1%的Excel基础搞定99%的日常工作
Excel是门手艺,玩转需要勇气
热衷于Excel基础知识的传播
Excel情报局推荐音乐,阅读文章更轻松。
很多小伙伴习惯在批注中输入很多的信息,这可不是个好习惯。
不好的原因有三:
第一:打印出来时候不显示批注信息。
第二:肉眼观察容易遗忘。
第三:不利于统计筛选数据分析。
解决方案:
如果有备注信息,我们可以在工作表中加上一个单独的备注列。
那么对于已经使用了批注的工作表,如何快速提取出批注内容呢?我们可以使用一个自定义函数解决。
简单两步即可搞定,神了!
右击工作表,点击查看代码,打开VBA编辑器,单击插入,模块,复制粘贴下面的代码到右边的编辑窗口。然后关闭回到Excel工作表。
复制粘贴下面代码:
-------------
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
-------------
比如要提取C2单元格的批注内容,则在D2单元格输入公式:
=GetComment(C2)
下拉公式即可提取批注。
小提示:当修改批注内容后,请及时重新填充公式,保证数据的一致性哦!
今天有没有学到呢,赶快自己动手试一试吧!
联系客服