将单元格中的文本从WS复制到另一个WS的评论框中

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

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

Answer 1

在Sheet1的工作表中更改事件处理程序：

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