ExcelVBA收纳箱：以A1单元格内容统一插入批注

1、先看动图演示吧

2、开始之前呢，我们需要整体选中需要添加批注的这个数据区域。

3、然后我们选择DIY工具箱。

4、选择最左侧的收纳箱命令。

5、弹出界面依旧选择本地新建命令。

6、直接在代码区域输入如下的代码。

Sub 以A1单元内容批量插入批注()

Dim r As Range

If Selection.Cells.Count > 0 Then

For Each r In Selection

r.AddComment

r.Comment.Visible = False

r.Comment.Text Text:=[a1].Text

Next

End If

End Sub

7、然后设置函数说明和所属类别，便于我们后期查找该应用

8、好了，搜索找到刚才添加的应用命令。

9、然后单击执行按钮即可看到添加成功的批注。