如何删除Excel工作表中的注释？

Question

当我单击 Excel 中的特定单元格时，出现的注释让我很不安，因此我希望 vba 代码立即删除活动工作表中的所有注释。

Answer 1

您真正需要做的就是获得一个范围，然后明确注释：

Worksheets("MySheet").Activate 
ActiveSheet.UsedRange.ClearComments

这有帮助吗？

更多详细信息 要使上述代码正常工作，有多种方法。我在这里推荐的是：

• 打开 Excel 工作簿。
• 单击“开发人员”选项卡上的“Visual Basic”选项。这将打开一个 VBA 窗口，左侧有一个树控件，其中显示工作表和工作簿。
• 右键单击工作表并选择插入模块。
• 在打开的模块窗口中，粘贴我在这些说明底部显示的代码。
• 将工作表另存为 Excel 启用宏的工作簿类型。
• 关闭 VBA 窗口。

返回 Excel 后，点击打开“运行宏”窗口。您应该会看到列出的 RemoveComments 宏。现在单击“运行”，您的评论应该会被删除。

我实际上对此进行了测试，所以如果做得正确的话它会起作用。如果它仍然不适合您，请确保有问题的工作表是您工作簿中的第一个工作表。如果不是，则在您的RemoveComments Sub 中更改Worksheets(1).Activate，以便它引用正确的工作表。

Sub RemoveComments() 
  Worksheets(1).Activate 
  ActiveSheet.UsedRange.ClearComments 
End Sub