VBA excel复制单元格注释并将其传递到新工作表而不使用剪贴板？

Question

您好我的目标是复制一个单元格的注释，而不必使用剪贴板（或所有添加的代码：D）我仍然是VBA的新手，所以对于任何错误抱歉：D

我试图在下面使用此代码，它在单元格上工作得很好，但我不确定它是否适用于评论

Sheets("Dump").Range("A1").Copy Destination:=Sheets("RR").Range("K1")

我尝试稍微改变它但是它给了我一个错误“应用程序定义或对象定义的错误”

Sheets("Dump").Range("A1").CopyComment Destination:=Sheets("RR").Range("K1").AddComment

可以给予任何帮助

Answer 1

以下是使用将A1条评论复制到B1

的示例

Sub Testit()
    Range("A9").Copy
    Range("B9").PasteSpecial xlPasteComments
End Sub