1。 按Alt + F11键显示Microsoft Visual Basic应用程序窗口。
2.在窗口中,单击插页>模块以显示新的模块窗口,然后将以下VBA代码复制到模块窗口中。
VBA:从工作表中删除注释。
Sub Remove_All_Comments_From_Worksheet() Cells.ClearComments End Sub
VBA:从整个工作簿中删除所有评论
Sub DeleteAllComments() 'Updateby20140613 For Each xWs In Application.ActiveWorkbook.Sheets For Each xComment In xWs.Comments xComment.Delete Next Next End Sub
3。 点击运行按钮运行代码,您可以看到所有注释已从当前工作表或整个工作簿中删除。
使用Kutools for Excel重置所有评论的位置
在工作簿中插入多个注释后,可能会拖拽注释,如下图所示。 现在您想重新设置评论的位置,您可以使用Kutools for Excel“重置评论位置快速重置它们。
Kutools for Excel,与超过 300 方便的功能,使您的工作更加轻松。
后免费安装 Kutools for Excel,请执行以下操作:
单击库工具>更多>重置评论位置。 看截图:
然后选择活动表重置活动工作表中的评论位置,或所有工作表重置整个工作簿的所有注释位置。
重置所有评论的位置