Jim希望将在工作簿属性的“注释”部分中找到的文本插入单元格中。这不是附加到单元格的注释,而是工作簿属性中“注释”字段的内容。

如果您只需要复制评论一次,那么最好手动进行。您可以显示“注释”字段,选择要放入工作表的任何内容,然后按Ctrl + C。关闭属性,选择所需的单元格,然后按Ctrl + V。

如果您更需要动态包含,则将这些注释添加到单元格的唯一方法是使用宏。如果要使内容显示在特定的单元格(例如A1)中,则只需使用一行代码即可:

Range("A1")=ActiveWorkbook.BuiltinDocumentProperties("comments")

而已;一行代码将注释填充到单元格中。

如果需要,您可以以此为基础创建一个用户定义的函数,该函数有助于将注释放置在所需的任何位置。

Function putComments() As String     putComments=ActiveWorkbook.BuiltinDocumentProperties("comments")

End Function

为了使用此用户定义的功能,只需在单元格中使用以下内容:

=mySheetComment()

注意:

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

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

本技巧(6560)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: