问题情境

如下样表：

 

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

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

实现过程

1、<Alt+F11>，打开VBA窗口，插入模块：

 

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)，确定，公式向下填充，即可批量提取批注。

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

 

批量删除批注

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

如下动图：