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