Excel竟然能批量提取批注，真是神了！

Excel情报局

生产、搬运、分享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)

下拉公式即可提取批注。

小提示：当修改批注内容后，请及时重新填充公式，保证数据的一致性哦！

今天有没有学到呢，赶快自己动手试一试吧！