Excel VBA编辑注释（如果存在）

我的代码正在检查两张图纸中的单元格值是否不同，如果没有，则继续检查下一行，如果不同，则将单元格值从图纸2复制到图纸1中我需要的位置，并将带有旧值的注释添加到图纸1中的单元格中（该值也被复制）。 每次值再次更改时，它都会删除注释并放置新注释。 如果存在，我需要进行注释检查，并将旧值追加到注释中。 我希望注释将包含单元格中更改的所有旧值

这是我的一段代码：

                        If Not IsEmpty(datasheet.Cells(iData, j).Value) Then
                        comm = user & vbNewLine & "Old Date:" & vbNewLine & ActiveCell.Value
                        datasheet.Cells(iData, j).Copy Destination:=ActiveCell
                        With ActiveCell
                            ActiveCell.Interior.ColorIndex = 0
                            With ActiveCell.Borders
                                .LineStyle = xlContinuous 'Setting style of border line
                                .Weight = xlThin 'Setting weight of border line
                                .ColorIndex = xlAutomatic 'Setting colour of border line
                            End With
                            If Not .Comment Is Nothing Then .Comment.Delete
                                .ClearComments
                                .AddComment
                                .Comment.Text Text:=comm
                                .Comment.Visible = False
                        End With

---

没有太多的代码或上下文。

ActiveCell

？如何获取活动单元格？使用

.Find

，在表2上运行列中的所有行，在表1中，我“查找”了它，当它创建了

活动单元格时，这里有问题吗？你有一个代码，我认为它是有效的。它只适用于一直添加新注释。我要求编辑评论，如果它存在