VBA Excel复制注释，包括格式

我正在使用Excel 2007，并尝试编写将复制单元格注释（包括格式）的VBA子例程。 单元格注释可以包含基本的文本格式（例如，粗体等样式），我可以成功复制文本，但无法find一种方式来带格式。

我希望我可以简单地定义一个评论对象，然后设置它，但没有去：

Sub TestCommentCopy() Dim r As Range Dim c As Comment Set r = Selection If (Not r.Areas(1).Comment Is Nothing) Then Set c = r.Areas(1).Comment End If 'Set r(1, 2).Comment = c ' Object error ' r(1, 2).Comment = c 'Object error ' Set r(1,2).Comment = c ' Object error r(1, 2).ClearComments ' Works ' r(1, 2).AddComment c 'Does not work - requires text only r(1, 2).AddComment c.Text 'Works, but only get plain text, no formatting End Sub 

有没有办法在Excel中复制一个单元格的评论到另一个，包括格式，而不仅仅是文本？

Answer 1

要复制格式化的评论：

 Sub Macro1() Range("E9").Copy Range("L3").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub