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

office教程网 2023-05-08 10:05:33

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要： 用下面的VBA代码可以同时删除工作簿中所有工作表中的批注：
1.按Alt F11，打开VBA编辑器。Excel中有关打印预览的一些VBA代码显示指定工作表的打印预览，假如该工作表...

用下面的VBA代码可以同时删除工作簿中所有工作表中的批注：

1.按Alt F11，打开VBA编辑器。

Excel中有关打印预览的一些VBA代码
显示指定工作表的打印预览，假如该工作表名称为Sheet1：Worksheets(Sheet1).PrintPreview显示活动工作表的打印预览：Worksheets(Sheet1).PrintPreview显示工作簿中所有工作表的打印预览：Sheets.PrintPrevie

2.在代码窗口中输入下列代码

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

3.关闭VBA编辑器，按快捷键Alt F8，打开“宏”对话框，选择包含“RemoveAllComments”的宏名，并单击“执行”按钮。