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

Question

我只需要帮助制作一个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