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

在Excel中，一般可以通过批注来对某个单元格作的说明一类的文字信息的说明。

当把鼠标移动到这个单元格的时候，不需要按鼠标按键，就能显示出来这些文字了。

加入批注的办法很简单：鼠标右键点这个格，弹出的命令菜单里，选择“插入批注”就能开始编辑了，编辑完成，鼠标点任何一个别的地方，就自动保存。在已经加入批注的格的右上角，会有一个三角形，表示是“这个格有批注”。

但是如果批注用多了。逐个删除明显是不科学的。这里我们用Excel VBA代码自定义函数批量删除批注。

详细源码：

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

运行函数删除后结果：