Excel批量添加批注和删除的VBA代码

　　在Excel中，我们可以使用如下的代码，分别批量添加批注和批量删除批注。

　　一、批量添加批注

　　Dim r As Range, msg As String

　　msg = InputBox("请输入批注内容", "提示", "标题文字")

　　If Selection.Cells.Count > 0 Then

　　For Each r In Selection

　　r.AddComment

　　r.Comment.Visible = False

　　r.Comment.Text Text:=msg

　　Next

　　End If

　　二、批量删除批注

　　①简单方法

　　执行菜单操作：“查找”→“定位条件”→“批注”，点击确定，这个时候，Excel工作表中的所有批注都会被选中；

　　现在，在选中的状态下，在任何一个批注上点击右键→删除批注。

　　②使用代码

　　Sub ClearComments()
　　　Cells.Select    '全选工作表
　　　Selection.ClearComments    '删除选区内的批注(单元格内容不变)
　　End Sub

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18