如何删除Excel工作表中的批注？求一键删除当前工作表批注的VBA代码

我来帮你解决这个问题，不管是手动删除还是用VBA一键搞定，都给你整理清楚了：

一、手动删除批注的几种实用方式 #

1. 删除单个批注 #

• 右键点击带批注的单元格，直接选删除批注；
• 或者选中单元格后，切换到「审阅」选项卡，点击「批注」组里的「删除」按钮。

2. 删除多个/全表批注 #

• 批量选中所有带批注的单元格：按F5打开「定位」对话框，点击「定位条件」，选择「批注」，确定后就能选中所有带批注的单元格，接着右键删除或者用审阅选项卡的删除按钮；
• 更快捷的全表删除：直接点「审阅」→「选择」→「全部批注」，然后删除即可。

另外，如果你只是烦批注自动弹出，其实不用删除也能解决：打开「文件」→「选项」→「高级」，找到「显示」区域，取消勾选「悬停时显示批注和批注标识符」，这样鼠标移上去就不会自动弹批注了。

二、VBA代码一键删除当前活动工作表所有批注 #

针对你要的立即删除当前活动工作表所有批注的需求，这段VBA代码完美适配：

1. 打开Excel，按下Alt + F11打开VBA编辑器；
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」；
3. 粘贴以下代码到模块里：

Sub DeleteAllCommentsInActiveSheet()
    ' 一键删除当前活动工作表的所有批注
    ActiveSheet.Comments.Delete
End Sub

4. 按下F5运行代码，或者回到Excel界面，点击「开发工具」→「宏」，选中DeleteAllCommentsInActiveSheet后执行就行。

如果经常用这个功能，还可以把这个宏添加到快速访问工具栏，以后一键就能触发，非常方便。

内容的提问来源于stack exchange，提问作者Pravin