宏以更新主表中已存在的注释

Question

我正在尝试编写一个将子数据表中的数据导入主工作表的宏。数据将填充的单元格中已包含值，因此需要将要复制的数据添加到已存在的数据中。我知道如何查找和选择子表中的数据;问题是将子表数据添加到主文件中已存在的数据。它是一列中的11个单元格。此外，我需要将子表单元格中输入的注释粘贴到主工作表中，但不会覆盖已存在的注释。相反，他们需要粘贴在之前的评论条目下面。有没有办法做到这一点？

谢谢， 帕特里克

Answer 1

使用记录宏作为概念证明

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "=1+RC[1]"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=2+RC[1]"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=3+RC[1]"
Range("B1").Select
Range("B1").Comment.Text Text:="Fourth comment." & Chr(10) & ""
Range("A1").Select
Range("A1").Comment.Text Text:="first comment." & Chr(10) & "Fourth comment." & Chr(10) & ""
Range("B2").Select
Range("B2").Comment.Text Text:="Fifth comment."
Range("A2").Select
Range("A2").Comment.Text Text:="Second comment." & Chr(10) & "Fifth comment." & Chr(10) & ""
Range("B3").Select
Range("B3").Comment.Text Text:="Sixth comment." & Chr(10) & ""
Range("A3").Select
Range("A3").Comment.Text Text:="Third coment." & Chr(10) & "Sixth comment." & Chr(10) & ""
Range("D8").Select
End Sub  

这会使Sheet1数据带有“第五条评论”的评论。在B2中，结果为Sheet2：