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

在Excel中，一般可以通过批注来对某个单元格作的说明一类的文字信息的说明。当把鼠标移动到这个单元格的时候，不需要按鼠标按键，就能显示出来这些文字了。加入批注的办法很简单：鼠标右键点这个格，弹出的命令菜单里，选择“插入批注”就能开始编辑了，编辑完成，鼠标点任何一个别的地方，就自动保存。在已经加入批注的格的右上角，会有一个三角形，表示是“这个格有批注”。但是如果批注用多了。逐个删除明显是不科学的。这里我们用Excel VBA代码自定义函数批量删除批注。

1507881020131294.png

详细源码：SubRemoveAllComments()
DimshtAsWorksheet
DimcmtAsComment
ForEachshtInActiveWorkbook.Worksheets
ForEachcmtInsht.Comments
cmt.Delete
Next
Next
EndSub
运行函数删除后结果：

1507881117879268.png