excel - 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