[by 公众号：Excel和VBA]

前景提要

昨天我们学习了单元格批注的修改，紧接着就有小伙伴反馈说，单元格的批注修改什么的都不是常用功能，最常用的是单元格批注的查阅，因为单元格的批注，一定需要将鼠标移动到单元格上才会显示的，离开单元格批注就消失了

这给我们数据的阅读和查阅带来很大的麻烦，是否能够像单元格内容的提取一样，通过正则的方式将单元格的批注提取出来，这样看的更加方便，也更加利于数据的保存呢？

场景说明

既然大家有这样的需要，那么今天我就继续说下，如何提取单元格的批注，并存储到隔壁的单元格中

2

这是我们今天的数据源，我们看到单元格都已经设置了批注，为了创造更加不同的场景，所以其中A3单元格的批注，我已经提前删除了，那么我们今天来试下如何提取单元格的批注

之前我们学习了设置单元的批注，修改单元格的批注，判断单元格是会否存在批注，好像唯独没有学习如何读取单元的批注

那么今天就一起来看看

代码区

Sub tiqupizhu()

Dim rng As Range, a As Range

Set rng = Application.InputBox("请选择单元格区域", "需要删除批注的单元格区域", , , , , , 8)

For Each a In rng

a.Offset(0, 1) = a.Comment.Text

Next a