每天清晨六点，准时与您相约

　　问题情境

　　如下样表：

　　A列很多项目都已批注的形式注明了完成情况，现需要将完成情况的批注内容提取到B列备注中。

　　韩老师给大家讲一种自定义函数提取批注的方法。

　　实现过程

　　1、，打开VBA窗口，插入模块：+f11>

　　2、在模块中输入以下代码：

　　Function pz(rng As Range)

　　Application.Volatile

　　On Error GoTo err

　　pz = rng.Comment.Text

　　Exit Function

　　err:

　　pz = ""

　　End Function

　　即可实现自定义函数pz，可以提取批注。

　　3、保存为启用宏的工作簿，在B2单元格输入公式=pz(A2)，确定，公式向下填充，即可批量提取批注。

　　保存与使用过程如下动图：

　　批量删除批注

　　如果大量数据中，存在不规律分布的批注，可用【查找】-【批注】功能定位到有批注的单元格，右键删除批注。

　　如下动图：