如果您在工作表中大量使用注释，您可能会想知道是否有一种打印注释的方法，但是没有通常在每个注释前面都加上名称和冒号的方法。不幸的是，没有内置的方法可以在Excel中完成此操作。但是，可以使用宏来快速从工作表中提取所有注释，并将其放置在自己的工作表中。然后可以打印该工作表，因为它相当于所有评论的纲要。宏如下：

Sub Workbook_BeforePrint(Cancel As Boolean)

myCount = 0     For Each c In ActiveSheet.Comments         myCount = myCount + 1         myComment = ActiveSheet.Comments(myCount).Text         Sheets(2).Range("a1").Offset(myCount, 0).Value = _           Mid(myComment,InStr(myComment, Chr(10)))

Next End Sub

此宏将注释放在工作簿的第二个工作表上，因此，如果您希望将它们放在另一个工作表上（这样就不会覆盖第二个工作表上已经存在的信息），则必须对Sheets（2）对象进行修改。 。

还要注意，宏名称是Workbook_BeforePrint。这意味着该宏将在您每次打印工作表时运行。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（9602）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

调整评论打印输出。