每日Excel分享（VBA）| 如何将指定单元格的内容批量添加为批注内容？

感

谢

2017再见，2018我来了！我的Excel继续与您每天不见不散！

关

注

村长以前跟大家分享过如何将单元格中的批注内容提取到指定单元格的方法，用的是自定义函数的方法，动画如下：

操作方法：

1、按ALT F11组合键打开VBE编辑窗口，粘贴以下代码

Function demo(k As Range)

demo = Split(k.Comment.Text)

End Function
然后关闭VBE编辑器

2、在B2单元格输入公式

=demo(A2)

公式下拉即可。

今天村长再来跟大家分享如何将指定单元格的内容作为批注内容添加到批注的方法。

数据如下图：

我们需要将A列的单元格内容作为B列的批注内容，效果如下图：

首先我们要新建模块添加VBA代码

操作方法：

1、按ALT F11组合键打开VBE编辑窗口，新建模块，粘贴以下代码

Sub 添加批注()

Dim k As Range

For Each k In Selection

    k.AddComment

    k.Comment.Text Text:=k.Offset(0, -1).Value

Next k

End Sub

执行代码，展示效果

操作方法：

1、选中B2：B6单元格区域，然后选择“开发工具”选项卡；

2、点击“宏”，默认选中我们前面添加的SUB过程“添加批注”，然后点击“执行”，这个时候就会把A列的单元格内容对应变成B列的批注内容。