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

Question

当我点击excel中的特定单元格时，出现的评论会给我带来很大的打扰，所以我希望vba代码能够立即删除活动工作表中的所有注释。

Answer 1

你真正需要做的就是获得一个范围，然后明确评论：

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

这有帮助吗？

更多细节 为了使上述代码有效，有几种方法。我在这里推荐的是：

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

返回Excel时，点击以显示“运行宏”窗口。您应该会看到列出的RemoveComments宏。现在点击“运行”，您的评论应该被移除。

我实际测试过这个，所以如果做得好，它会起作用。如果它仍然不适合您，请确保相关工作表是工作簿中的第一个工作表。如果不是，则更改Worksheets（1）。在您的RemoveComments Sub中激活，以便它引用正确的工作表。

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

Answer 2

请参阅我的答复

Sub delete_comments()
Dim i As Range
     For Each i In ActiveSheet.UsedRange
         i.ClearNotes
     Next i
End Sub