VBA Excel复制注释，包括格式

Question

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

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

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