如何在已有的VBA中添加注释？

Question

如果已有评论，是否可以在单元格中添加评论？我需要将文本添加到现有注释中。我在下面尝试过，但不起作用...索引，因为这是循环的一部分。有人可以帮忙吗？非常感谢：）

                koment2 = Worksheets("x").Cells(n - 1, s).Comment.Text & koment2 & Chr(10) & Worksheets("y").Cells(i, 1) & " "
                Worksheets("x").Cells(n - 1, s).ClearComments
                Worksheets("x").Cells(n - 1, s).AddComment (koment2)

Answer 1

您可以使用下面的代码向具有注释的现有单元格添加注释。

Range("A1").Comment.Text (Range("A1").Comment.Text & "New Edited Comment.")

根据您的情况，将是

Worksheets("x").Cells(n - 1, s).Comment.Text (Worksheets("x").Cells(n - 1, s).Comment.Text & "New Edited Comment.")