在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