Excel 将文本从WS中的单元格复制到另一WS中的注释框

Excel 将文本从WS中的单元格复制到另一WS中的注释框,excel,vba,Excel,Vba,我只需要帮助制作一个VBA,自动将所有条目作为注释从sheet1单元格E2:E32复制到sheet2单元格C347:Y347 例如,如果我在sheet1的单元格E2上键入文本,它将自动将其粘贴到单元格C347 sheet2上作为注释。可能吗 在工作表中更改Sheet1的eventhandler: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 And Target.Row >= 2 A

我只需要帮助制作一个VBA,自动将所有条目作为注释从sheet1单元格E2:E32复制到sheet2单元格C347:Y347


例如,如果我在sheet1的单元格E2上键入文本,它将自动将其粘贴到单元格C347 sheet2上作为注释。可能吗

在工作表中更改Sheet1的eventhandler:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 And Target.Row >= 2 And Target.Row <= 32 Then
        With Worksheets("Sheet2").Cells(347, Target.Row + 1)
            If .Comment Is Nothing Then .AddComment
            .Comment.Text Target.Value & vbNewLine & .Comment.Text
        End With
    End If
End Sub
Private子工作表\u更改(ByVal目标作为范围)

如果Target.Column=5,Target.Row>=2,Target.Row,我对此有一个问题。如果目标单元格上已经有注释怎么办?我可以向这个VBA添加一些东西,只在已经存在的注释上添加注释。