excel中VBA删除工作簿中的所有批注

用下面的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”的宏名，并单击执行”按钮。

转载请注明：范的资源库 » excel中VBA删除工作簿中的所有批注