点赞再看，养成习惯；老骥伏枥，志在千里 。前几天有粉丝问：请问有没有方法把单元格里内容批量编辑成批注，且每个单元格内容不同，主要是发票编码？我们知道批量给单元格区域添加相同的批注，可以通过选择性粘贴中的点赞再看，养成习惯；
【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 RangeSet rs = SelectionFor Each r In rsIf r.Value\"\" ThenIf Not r.Comment Is Nothing Thenr.Comment.Text Text:=r.TextElser.AddComment r.TextEnd IfEnd IfNext rEnd Sub并把上面代码复制到空白编辑器中，然后点击保存，弹出的对话框点击是，然后关闭 VBA 窗体 。
文章插图
文章插图
然后选中 C4:C9 单元格区域，点击「开发工具」选项卡「代码」命令组下的「宏」，然后选择上面代码中的方法名「添加单元格内容为自身批注」，点击执行即可 。
文章插图
文章插图
我们来看看完整的动画效果：
文章插图
文章插图
2、把前一列单元格内容变成后一列批注把自身内容变成批注 ， 实现是简单了些，但是实际应用场景就比较少了，可能我们更多的是希望把某一列内容变成另一列的批注 。
文章插图
文章插图
如上图我们希望把 B 列里的内容 ， 变成 C 列的批注 。
其实有了前面的例子就很简单了，我们只需要修改少许代码即可 。修改后的代码如下：
Sub 添加前一列单元格内容为批注()Dim r As Range, rs As RangeSet rs = SelectionFor Each r In rsIf r.Value\"\" ThenIf Not r.Comment Is Nothing Thenr.Comment.Text Text:=r.Offset(0, -1).ValueElser.AddComment r.Offset(0, -1).ValueEnd IfEnd IfNext rEnd Sub其中 r.Offset(0, -1).Value 表示取同一行前一个单元格的值 。
操作过程跟上面方法一样，这里就不详细描述了 ， 直接看动态图：
文章插图
文章插图
当然这个方式感觉还是有点瑕疵，就是只能在代码里写死取哪一列的值，那么是否可以直接通过一个变量，输入哪一列就取哪一列呢？那是否可以通过自定义函数的形式实现呢？这两个问题就留给大家自己思考了 。
今天的分享到这里就结束了，但是学习的道路才刚刚开始，希望我们可以在学习的道路上不断地前进 ， 坚持不懈 。
如果你有感兴趣的功能，可以告诉小编哦，小编会为你写一篇相应的文章 。当然是先到先写哈，我会列一个计划表，尽量满足大家的需求，所以如果下一篇不是你要的文章 ， 请不要着急，可能就在下下篇 。记得告诉小编你想学习的功能哦 。
Excel 技巧保持每周持续更新，如果有什么问题可以私信我 ， 让我们一起进步 。
