用下面的VBA代码可以同时删除工作簿中所有工作表中的批注:
1.按Alt+F11,打开VBA编辑器。
2.在代码窗口中输入下列代码
Sub RemoveAllComments()
Dim sht As Worksheet
Dim cmt As Comment
For Each sht In ActiveWorkbook.Worksheets
For Each cmt In sht.Comments
cmt.Delete
Next
Next
End Sub
3.关闭VBA编辑器,按快捷键Alt+F8,打开“宏”对话框,选择包含“RemoveAllComments”的宏名,并单击“执行”按钮。
……