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单元格批量变为批注 excel批量转换单元格为文本格式】Excel 技巧保持每周持续更新，如果有什么问题可以私信我，让我们一起进步。