vba - 用于更新主表中已存在的注释的宏

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 中的结果：