前景提要

分享了好一段时间的单元格的提取功能了，暂时我能想到的场景也基本上都已经想到了，差不多，按照章节我们将要进入下一个序列，单元格的批注

单元格的批注就是指上面的这个，想要实现也不难，右键选择单元格批注就可以插入一个单元格批注了。

但是如果有很多单元格要插入批注呢？

你还会选择右键一个个的插入吗？

来今天来学习下通过VBA实现批量插入单元格批注

场景说明

我们来虚拟构造一个数据

这是今天的数据源，假设A列的都是考试成绩，我们希望将B列姓名作为批注插入到对应的A列单元格上

右键选择插入批注之后，在复制A列的内容，数据量多了，这操作真是是酸爽，还是来看看VBA的操作

代码区

Sub pizhu()

Dim rng As Range, a As Range

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

For Each a In rng

a.AddComment

a.Comment.Text Text:=a.Offset(0, 1).Value & "的成绩"

Next a