点赞再看，养成习惯；烈士暮年，壮心不已。
微信搜索【亦心Excel】关注这个不一样的自媒体人。
本文 GitHub https://github.com/hugogoos/Excel 已收录，包含Excel系统学习指南系列文章，以及各种Excel资料。
前几天有粉丝问：请问有没有方法把单元格里内容批量编辑成批注，且每个单元格内容不同，主要是发票编码？
我们知道批量给单元格区域添加相同的批注，可以通过选择性粘贴中的批注选项就可以实现，而且还是在现有批注基础上复制。
因此这位粉丝的问题，是没法直接通过现有功能实现的，但是强大的Excel还是留了解决复杂问题的后路的，那就是VBA。今天小编就来分享如何把不同单元格内容批量转为批注。
下面会用到VBA中Sub子程序，简单来说Sub子程序可以通过宏来执行，其他这里就不详细说明了，等着VBA系列文章再说，这里先解决问题。
1、单元格自身内容变成批注
我们先来做个简单的把单元格自身的内容变成本单元格的批注。
如上图，把C4:C9单元格区域内容就添加成自己的批注。
操作也很简单，首先点击「开发工具」选项卡「代码」命令组下的「Visual Basic」，即会弹出VBA开发窗体，接着在「VBAProject」→「Microsoft Excel 对象」下面选择当前工作表，并右击鼠标选择「插入」下的「模块」。
没有「开发工具」选项卡的可以通过「文件」选项卡下的「选项」调出「Excel选项」对话框，点击「自定义功能区」，主选项卡勾选「开发工具」。
此时「VBAProject」下面会多出一个「模块」，我们把默认的“模块1”重命名为“批注Sub子程序”，并且右边灰色区域也会多出一个空白编辑器。
Sub 添加单元格内容为自身批注() Dim r As Range, rs As Range Set rs = Selection For Each r In rs If r.Value <> "" Then If Not r.Comment Is Nothing Then r.Comment.Text Text:=r.Text Else r.AddComment r.Text End If End If Next r End Sub
并把上面代码复制到空白编辑器中，然后点击保存，弹出的对话框点击是，然后关闭VBA窗体。
然后选中C4:C9单元格区域，点击「开发工具」选项卡「代码」命令组下的「宏」，然后选择上面代码中的方法名「添加单元格内容为自身批注」，点击执行即可。
我们来看看完整的动画效果：
2、把前一列单元格内容变成后一列批注
把自身内容变成批注，实现是简单了些，但是实际应用场景就比较少了，可能我们更多的是希望把某一列内容变成另一列的批注。
如上图我们希望把B列里的内容，变成C列的批注。
其实有了前面的例子就很简单了，我们只需要修改少许代码即可。修改后的代码如下：
Sub 添加前一列单元格内容为批注() Dim r As Range, rs As Range Set rs = Selection For Each r In rs If r.Value <> "" Then If Not r.Comment Is Nothing Then r.Comment.Text Text:=r.Offset(0, -1).Value Else r.AddComment r.Offset(0, -1).Value End If End If Next r End Sub
其中r.Offset(0, -1).Value表示取同一行前一个单元格的值。
操作过程跟上面方法一样，这里就不详细描述了，直接看动态图：
当然这个方式感觉还是有点瑕疵，就是只能在代码里写死取哪一列的值，那么是否可以直接通过一个变量，输入哪一列就取哪一列呢？那是否可以通过自定义函数的形式实现呢？这两个问题就留给大家自己思考了。
今天的分享到这里就结束了，但是学习的道路才刚刚开始，希望我们可以在学习的道路上不断地前进，坚持不懈。
如果你有感兴趣的功能，可以告诉小编哦，小编会为你写一篇相应的文章。当然是先到先写哈，我会列一个计划表，尽量满足大家的需求，所以如果下一篇不是你要的文章，请不要着急，可能就在下下篇。记得告诉小编你想学习的功能哦。
文章持续更新，可以微信搜索「 亦心Excel 」第一时间阅读，本文 GitHub https://github.com/hugogoos/Excel 已经收录，包含Excel系统学习指南系列文章，欢迎Star。
