在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